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;