Baixar varios Arquivos .zip com IdFTP no Delphi

[eltomarley 0]

Olá pessoal, sou novo aqui no fórum e venho pedir uma ajuda !!!

 

Estou criando um launcher de um jogo online, já esta quase todo concluído.

O problema e o seguinte, e que o launcher so esta baixando 1 arquivo por vez, e queria saber se tem como vocês me ajudarem

para que este Launcher Baixe Vários arquivos .zip em uma unica atualização.

 

Segue o código que estou usando:

 

// faz o download do arquivo "Atualizacao.zip"

 

IdFTP.Get('atualizacao/Atualizacao.zip',ObterDiretorioDoExecutavel + 'Atualizacao.zip', True, True);

 

 

 

Agradesço Desde já!!!

[SBits 1]

Crie os IDFTP em tempo de execução,e para cada,atribua um item

 

ex:

procedure TForm1.Button1Click(Sender: TObject);
 var
  id1: TIDFtp;
  hostftp,usuario,senha: string; 
  tryagain:
 begin

  hostftp:= 'google.com.br';
  
  usuario:= 'anonymous';
  senha:= '001';

  id1:= TIDFtp.Create();
  id1.Host:= hostftp;
  id1.Port:= 21;
  id1.Username:= usuario;
  id1.Password:= senha;
  
  try
   ID1.Connect();
   ID1.Get('atualizacao/Atualizacao.zip',ObterDiretorioDoExecutavel + 'Atualizacao.zip',True,True);
  except
   MessageBox(Application.Handle,'Não foi possivel conectar ou obter o arquivo','Erro',mb_ok+mb_iconerror);
end;
end;

Obs: não se esqueça de libera-los da memoria quando terminarem de baixar-o arquivo atribuído,pois se deixa-los, poderá causar um certo lag rsrs.

 

Adapte o código para seu uso.

[eltomarley 0]

Obrigadão, esta resolvido. Valeu mesmo!!!!

[sales2004 0]

aguardando

[sales2004 0]

favor liberar download, estou aguardando