Téléchargement FTP: http://www.7880.com/info/article-19938be0.html
http://community.csdn.net/expert/topic/3300/3300012.xml?Temp=5.028933E-02
Téléchargement FTP: Contrôle TIDFTP (Delphi7 Indy)
Téléchargement HTTP: (Delphi7) Utilisez le contrôle de conception Indy pour télécharger les fichiers réseau //////////////////
Ajouter des contrôles dans Form1:
Deux commandes Indy: idantifreeze1, idHttp1;
Un bouton: Button1;
Une barre de progression: ProgressBar1 affiche la vitesse de téléchargement
Procédure tform1.button1Click (expéditeur: tobject);
var
Mystream: tmemorystream;
Commencer
Idantifreeze1.onlywhenidle: = false; // défini pour faire réagir le programme.
Mystream: = tmeMoryStream.Create;
essayer
Idhttp1.get ('http://www.appcontrols.com/demos/exe/httpdemo.exe',mystream);
sauf
ShowMessage («No Download réussit!»);
MyStream.free;
Sortie;
fin;
Mystream.savetofile (extractfilepath (paramstr (0)) + 'httpdemo.zip');
MyStream.free;
ShowMessage ('OK');
fin;
Procédure tform1.idhttp1workbegin (expéditeur: tobject; aworkmode: tworkmode;
const AworkCountMax: entier);
Commencer
// Avant de commencer le téléchargement, définissez la valeur maximale de ProgressBar1 à la taille des données qui doit être reçue.
ProgressBar1.max: = AworkCountMax;
ProgressBar1.min: = 0;
ProgressBar1.Position: = 0;
fin;
Procédure tform1.idhttp1work (expéditeur: tobject; aworkmode: tworkmode;
Const AworkCount: entier);
Commencer
// Lors de la réception de données, les progrès seront affichés dans ProgressBar1.
ProgressBar1.Position: = ProgressBar1.Position + AworkCount;
fin;