Fórum Multiplos downloads com IndyFTP #354781
04/03/2008
0
vlw!!!!
Luiz_aquino
Curtir tópico
+ 0Posts
04/03/2008
Massuda
Gostei + 0
04/03/2008
Luiz_aquino
Ele da erro, Sucessful transfer.
Gostei + 0
04/03/2008
Massuda
A propósito, ´Successful transfer´ significa ´transferencia bem sucedida´.
Gostei + 0
04/03/2008
Luiz_aquino
A propósito, ´Successful transfer´ significa ´transferencia bem sucedida´.[/quote:ac1010426b]
Na verdade errei, esqueça a msg, segue abaixo meu código
procedure TDownloadFTP.CopiaArquivoAtual; begin FFTP.Get(CaminhoInicial + Arquivos[FArquivoAtual], DirDestino + Arquivos[FArquivoAtual], False, FFTP.ResumeSupported); end; procedure TDownloadFTP.TerminoDownload(Sender: TObject; AWorkMode: TWorkMode); begin if ArquivoAtual = Arquivos.Count - 1 then begin FEstado := edInativo; FFTP.Disconnect; if Assigned(FOnTermino) then FOnTermino(Sender); end else begin Inc(FArquivoAtual); FFTP.Disconnect; ConectaFTP; CopiaArquivoAtual; end; end;
Primeiro, é copiado um arquivo xml para a máquina do cliente, dentro desse arquivo xml contem as informações de arquivos que são para atualizar, esse primeiro arquivo consigo copiar, depois de comparar os arquivo e posto em um StringList é feito o dowload, se eu tiro a linha FFTP.Disconnect, no primeiro arquivo ele para a execução e não faz o download.
Gostei + 0
04/03/2008
Massuda
A princípio isso deve funcionar...
// IdFTP1 é um TIdFTP // Lista é um TStringList .... IdFTP1.Connect; for I := 0 to Lista.Count - 1 do IdFTP1.Get(Lista[I]); IdFTP1.Disconnect;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)