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

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 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

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 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 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 related to the web site

Mortenbs.com \ Contact \ Links

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

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

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

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

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

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

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