FTP Download: http://www.7880.com/info/article-19938be0.html
http://community.csdn.net/expert/topic/3300/3300012.xml?temp=5.028933e-02
Download do FTP: Controle do Tidftp (Delphi7 Indy)
HTTP Download: (Delphi7) Use o Design Indy Control para baixar arquivos de rede /////////////////////////////////////////////
Adicionar controles no Form1:
Dois controles da Indy: idantifreeze1, idhttp1;
Um botão: botão1;
Uma barra de progresso: ProgressBar1 exibe a velocidade de download
procedimento TForm1.Button1Click (remetente: TOBJECT);
var
MyStream: TMemorystream;
Começar
Idantifreeze1.onlywhenidle: = false; // Defina para fazer o programa reagir.
MyStream: = tmemorystream.create;
tentar
Idhttp1.get ('http://www.appcontrols.com/demos/exe/httpdemo.exe'.myStream);
exceto
ShowMessage ('sem download bem -sucedido!');
MyStream.Free;
Saída;
fim;
MyStream.Savetofile (ExtractFilePath (paramstr (0))+'httpdemo.zip');
MyStream.Free;
ShowMessage ('ok');
fim;
procedimento tform1.idhttp1workbegin (remetente: tabject; aworkmode: tworkmode;
const AWORKCOUNTMAX: INTEGER);
Começar
// Antes de iniciar o download, defina o valor máximo do ProgressBar1 como o tamanho dos dados que precisa ser recebido.
ProgressBar1.max: = aworkCountMax;
ProgressBar1.Min: = 0;
ProgressBar1.Position: = 0;
fim;
Procedimento TForm1.idhttp1work (remetente: TOBJECT; AWORKMODE: TWORKMODE;
Const AworkCount: Inteiro);
Começar
// Ao receber dados, o progresso será exibido no ProgressBar1.
ProgressBar1.Position: = ProgressBar1.Position+AworkCount;
fim;