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

Listen to music by MBS. Find samples and Reason Refills. Information about musical instruments etc.. Music by MBS, samples and information about music and production

Mortenbs.com \ Music

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

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

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

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

Music by MBS download page. Royalty free music for non commercial use. You can use in YouTube vidoes but please put credit in your description with name and link to the website or music channel. Also please comment on the song if you use it, with link to your video. Thanks.. Royalty free music for non commercial use. You can use it in your YouTube vidoes but please add credit in your description with link to my channel (*1). Also please comment on the song (*2) if you use it, with link to your video.

Mortenbs.com \ Music \ Download music by MBS