(Delphi) Ejemplo de descarga de archivos de red

Descarga FTP: http://www.7880.com/info/article-19938be0.html

http://community.csdn.net/expert/topic/3300/3300012.xml?temp=5.028933e-02

Descarga FTP: TIDFTP Control (Delphi7 Indy)

HTTP Descargar: (Delphi7) Use el control de diseño de diseño para descargar archivos de red ///////////////

Agregar controles en Form1:

Dos controles Indy: Idantifreeze1, Idhttp1;

Un botón: botón1;

Una barra de progreso: ProgressBar1 muestra la velocidad de descarga

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

Mystream: tmemorystream;

Comenzar

Idantifreeze1.onlywhenidle: = false; // set para hacer que el programa reaccione.

Mystream: = tMemoryStream.create;

intentar

Idhttp1.get ('http://www.appcontrols.com/demos/exe/httpdemo.exe',mystream);

excepto

ShowMessage ('¡No descargar exitoso!');

Mystream.free;

Salida;

fin;

Mystream.savetofile (ExtractFilePath (paramstr (0))+'httpdemo.zip');

Mystream.free;

ShowMessage ('ok');

fin;

procedimiento tForm1.idhttp1workBegin (remitente: tobject; aworkmode: tworkmode;

const aworkcountmax: entero);

Comenzar

// Antes de comenzar a descargar, establezca el valor máximo de ProgressBAR1 en el tamaño de datos que debe recibir.

ProgressBar1.max: = aworkcountmax;

ProgressBar1.Min: = 0;

ProgressBar1.Position: = 0;

fin;

procedimiento tForm1.idhttp1work (remitente: tobject; aworkmode: tworkmode;

const aworkcount: entero);

Comenzar

// Al recibir datos, el progreso se mostrará en ProgressBAR1.

ProgressBar1.Position: = ProgressBar1.Position+AworkCount;

fin;