Search Page 1 of 1 Showing no. 1 to 14 of 14 items Download file using Indy HTTP Delphi: Download file from internet using INDY. Customize the parameters for timeout and redirects. It saves the file to a given location using stream. uses windows,sysUtils,idHttp; const NONE = $00; //Blank number INET_USERAGENT = 'Mozilla/4.0, Indy Library (Windows; en-US)'; INET_REDIRECT_MAX = 10; function forceDeleteFile(pFileName:pAnsiChar):boolean; begin windows.setFileAttributes(pFileName,NONE);//clear file attributes result:=windows.deleteFile(pFileName); //then Mortenbs.com \ Programming \ Delphi programming \ Delphi examples \ Download file using Indy HTTP Download HTML-source using Indy HTTP Delphi: Download HTML-source from internet as text. Customize the parameters for timeout and redirects. It returns the destination URL when navigating is done. uses idHttp; const INET_USERAGENT = 'Mozilla/4.0, Indy Library (Windows; en-US)'; INET_TIMEOUT_SECS = 3; INET_REDIRECT_MAX = 10; function downloadSrc(var aUrl:ansiString):ansiString; begin with tIdHttp.create(nil) do begin //Create Indy http object request.userAgent:=INET_USERAGENT; //Custom user agent string Mortenbs.com \ Programming \ Delphi programming \ Delphi examples \ Download HTML-source using Indy HTTP XOBS Drum-Kit 3.0 stereo, Pearl BLX XOBS Drumkit version 3, Stereo samples from the Pearl BLX drum kit, recorded by MBS. In this version samples are now pre-processed (rumble frequencies filtered out), so requires less real time processing and a faster process of equalizing in the mix.. XOBS Drumkit version 3, Stereo samples from the Pearl BLX drum kit, recorded by MBS. In this version samples are now pre-processed (rumble frequencies filtered out),- so requires less real time processing and a faster process of equalizing in the mix. Mortenbs.com \ Music \ XOBS Drum-Kit 3.0 stereo, Pearl BLX Transistor Various transistors and how to use them. A transistor is basically an electronic switch. Used for analog and digital purpose, and works for both DC and AC power. Mosfets is certainly best for heavier loads while regular transistors can be used for smaller loads. NPN-transistors reacts to positive and opens for negative current, and PNP-transistors reacts to negative and opens for positive current. Transistors are widely used to convert voltages, and to invert between plus and minus when needed. Mortenbs.com \ Archive \ Transistor Contact Contact information. Morten Bøgelund Sørensen (MBS). Send e-mail message. Social media. Morten B. S. mortenbs.com. You can contact MBS using social media listed below, or send a private message. Please like and follow on YouTube if you are interested in future videos Mortenbs.com \ Contact Thailand travel Thailand travel pages of MBS Travel & Photography. Nice country with many attractions to visit on your travel.. Welcome to the Thailand travel pages of MBS Travel &Photography. Nice country with many attractions to visit on your travel Mortenbs.com \ Gallery \ Thailand travel Links Links related to the web site Mortenbs.com \ Contact \ Links Use TLabel as a web link Delphi: Use TLabel as link to a web site (URL). Create new label on the form, and doubleclick on it to create OnClick event. uses windows,shellApi,forms; function launchUrl(url:ansiString;h:THandle=INVALID_HANDLE_VALUE):boolean; begin if h=INVALID_HANDLE_VALUE then h:=application.handle; result:=shellExecuteA(h,'open',pAnsiChar(url),nil,nil,SW_NORMAL)>0; end; procedure TForm1.Label1Click(Sender: TObject); begin launchUrl('http://www.mortenbs.com/delphi-programming/') end; Mortenbs.com \ Programming \ Delphi programming \ Delphi examples \ Use TLabel as a web link Formant vowels, Reason 5 List of vowel-values for Thor formant filter, Propellerhead Reason. Thor formant filter values listed below is in the range 0..127 Mortenbs.com \ Music \ Formant vowels, Reason 5 Execute a program or web-URL Delphi: Run a program or web-link using ShellExecute API-command. Run a program or web-link using ShellExecute api command. uses shellApi; function launch(pFileName:pAnsiChar;pParams:pAnsiChar=nil):boolean; const sz=sizeOf(TShellExecuteInfoA); var si:TShellExecuteInfoA; begin pFill(@si,sz); si.cbSize := sz; si.fMask := SEE_MASK_NOCLOSEPROCESS; si.wnd := windows.getDesktopWindow; si.lpFile := pFileName; si.lpParameters := pParams; si.lpDirectory := nil; si.nShow Mortenbs.com \ Programming \ Delphi programming \ Delphi examples \ Execute a program or web-URL NS1 NetStumbler files Read and write NetStumbler NS1 file-format with Delphi. Read and write NetStumbler .ns1 file-format with Delphi. Supports .ns1 file-versions: 12,11,8,6,1 (Used by NetStumbler &MiniStumbler) Make a descendant class of the TNs1Object-object to exchange data to your list. 1. Make an inherited class of TNs1Object. 2. Override all virtual parameters for read. 3. Override all virtual parameters for write. 4. In readEntry, create your external object. (used for load) 5. In writeEntry, define from your external Mortenbs.com \ Programming \ Delphi programming \ File formats and fileinfo \ NS1 NetStumbler files PNG file information Read basic file info from a PNG file using Windows API.... Read basic file info from a bitmap file using Windows API... type pPngHeader=^TPngHeader; TPngHeader=packed record uSig :int64; //int64($0A1A0A0D474E5089); uChunk1Len :longWord; //reverse byte order uChunk1Type :longWord; //IHDR: $52444849 uWidth :longWord; //reverse byte order uHeight :longWord; //reverse byte order uBitDepth :byte; //1, 2, 4, 8 or 16 uColorType :byte; //0, 2, 3, 4 Mortenbs.com \ Programming \ Delphi programming \ File formats and fileinfo \ PNG file information NGG Nokia Group Graphics type //16-byte header, followed by pixel data in ASCII text format. pNokiaNggHeader=^TNokiaNggHeader; TNokiaNggHeader=packed record uSig :longWord; //SIG_NOKIA_NGG uVersion :word; //version (01) uWidth :word; //width (72) uHeight :word; //height (14) uUnknown1 :word; //unknown #1 uUnknown2 :word; //unknown #2 uUnknown3 :word; //unknown #3 end; const NULL = #0; SIG_NOKIA_NGG = $0047474E; //NGG[NULL] //Read header from a file into preallocated Mortenbs.com \ Programming \ Delphi programming \ File formats and fileinfo \ NGG Nokia Group Graphics NOL Nokia Operator Logo type //20-byte header, followed by pixel data in ASCII text format. pNokiaNolHeader=^TNokiaNolHeader; TNokiaNolHeader=packed record //probably 72x14 or 78x21 px, other sizes supported uSig :longWord; //SIG_NOKIA_NOL uVersion :word; //version uUnknown1 :word; //unknown #1 uUnknown2 :word; //unknown #2 uWidth :word; //width (72) uHeight :word; //height (14) uUnknown3 :word; //unknown #3 uUnknown4 :word; //unknown #4 uUnknown5 :word; Mortenbs.com \ Programming \ Delphi programming \ File formats and fileinfo \ NOL Nokia Operator Logo Showing no. 1 to 14 of 14 items