FTP download: http://www.7880.com/info/Article-19938Be0.html http://community.9cbs.net/expert/topic/3300/3300012.xml?temp=5.028933E-02FTP Download: TIDFTP control (Delphi7 IND) HTTP Download: (Delphi7) Downloading Network Files using Design IND control: 2 Controls in Form1: Two Indy controls: idantifreeze1, idHTTP1; a button: Button1; a progress bar: Progressbar1 Display download speed Procedure TFORM1. Button1Click (Sender: TObject); var MyStream: TMemoryStream; begin IdAntiFreeze1.OnlyWhenIdle: = False; // make the program is provided with a reaction MyStream: = TMemoryStream.Create; try IdHTTP1.Get ( 'http://www.appcontrols.com. /Demos/exe/httpdemo.exe', message ('no download success!'); MyStream.free; exit; end; mystream.savetofile (extractfilepath (paramstr (0)) 'httpdemo.zip' ; MyStream.Free; Showmessage ( 'OK'); end; procedure TForm1.IdHTTP1WorkBegin (Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); begin // begin before downloading, to set the maximum value needs to receive ProgressBar1 Data size. Progressbar1.max: = aworkcountmax; progressbar1.min: = 0; progressbar1.position: = 0; end; procedure tForm1.idhttp1work (sender: Tobject; A Workmode: TWORKMODE; Const AWORKCOUNT: INTEGER; becom // When receiving data, the progress will appear in ProgressBar1. ProgressBar1.position: = progressbar1.position aworkcount;
