FTP-Download: http://www.7880.com/info/article-19938be0.html
http://community.csdn.net/expert/topic/3300/3300012.xml?temp=5.028933E-02
FTP -Download: TIDFTP -Steuerung (Delphi7 Indy)
HTTP -Download: (DelPhi7) Verwenden Sie das Design Indy Control zum Herunterladen von Netzwerkdateien /////////////////.
Fügen Sie Steuerelemente in Form1 hinzu:
Zwei Indy -Kontrollen: idantifreeze1, Idhttp1;
Eine Schaltfläche: Button1;
Eine Fortschrittsleiste: ProgressBar1 zeigt die Download -Geschwindigkeit an
procedure tform1.button1click (Absender: tobject);
var
MyStream: tmemorystream;
Beginnen
Idantifreeze1.Ollywhenidle: = false; // setzt das Programm reagieren.
Mystream: = tmemorystream.create;
versuchen
Idhttp1.get ('http://www.appcontrols.com/demos/exe/httpdemo.exe',mystream);
außer
ShowMessage ('Nein Download erfolgreich!');
Mystream.free;
Ausfahrt;
Ende;
Mystream.savetofile (extractFilepath (paramstr (0))+'httpdemo.zip');
Mystream.free;
ShowMessage ('OK');
Ende;
procedure tform1.idhttp1workBegin (Absender: tobject; aWorkMode: tworkMode;
const aworkountmax: Ganzzahl);
Beginnen
// Legen Sie vor dem Download den Maximalwert von ProgressBar1 auf die Datengröße fest, die empfangen werden muss.
ProgresorBar1.max: = aWorkountMax;
ProgresorBar1.min: = 0;
ProgressBar1.Position: = 0;
Ende;
procedure tform1.idhttp1work (Absender: tobject; aWorkMode: tworkMode;
const aworkcount: Ganzzahl);
Beginnen
// beim Empfangen von Daten wird der Fortschritt in Bearbeitung angezeigt.
ProgressBar1.Position: = progresorBar1.position+aworkcount;
Ende;