Fórum Problemas com IdFTP1 -TRansferencia de Arquivos #282247
19/05/2005
0
Ola galera, Estou com problemas nesse componente, acho que não estou sabendo usa-lo só consigo subri para o FTP o arquivo enão consigo baixar, olhem o código, o que tem de errado ????
procedure TForm1.Button1Click(Sender: TObject);
begin
//IdFTP1.Host := ´www.hostname.com.br´;
IdFTP1.Username := ´username´;
IdFTP1.Password := ´pass@2002´;
IdFTP1.Connect(true);
IdFTP1.ChangeDir(´/public_html/ftp/´);
IdFTP1.Put(´x:\PLANO.pdf´,´PLANO.pdf´,false);
IdFTP1.Disconnect;
end;
outra coisa, como faço para ter os labels do tempo de download, tamanho do arquivo e etc...
Valeu galera !!!!
um abraço
Soldado
procedure TForm1.Button1Click(Sender: TObject);
begin
//IdFTP1.Host := ´www.hostname.com.br´;
IdFTP1.Username := ´username´;
IdFTP1.Password := ´pass@2002´;
IdFTP1.Connect(true);
IdFTP1.ChangeDir(´/public_html/ftp/´);
IdFTP1.Put(´x:\PLANO.pdf´,´PLANO.pdf´,false);
IdFTP1.Disconnect;
end;
outra coisa, como faço para ter os labels do tempo de download, tamanho do arquivo e etc...
Valeu galera !!!!
um abraço
Soldado
Soldado
Curtir tópico
+ 0
Responder
Posts
19/05/2005
Massuda
...
IdFTP1.[color=red:fc7279ab46]Put[/color:fc7279ab46](´x:\PLANO.pdf´,´PLANO.pdf´,false);
...
TIdFTP.Put serve para fazer upload. Para download, use TIdFTP.Get.
Responder
Gostei + 0
19/05/2005
Soldado
então ja tentei com o Get assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host := ´XXXXXX´;
IdFTP1.Username := ´XXXXXx´;
IdFTP1.Password := ´XXXXXXXX´;
IdFTP1.Connect(true);
IdFTP1.ChangeDir(´/public_html/ftp/´);
IdFTP1.Get(´c:\PLANO.pdf´,´PLANO.pdf´,false);
idFTP1.Disconnect;
end;
e dá um erro ´Destination file already exists´
o que ocorre ???
Atenciosamente Solado
procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host := ´XXXXXX´;
IdFTP1.Username := ´XXXXXx´;
IdFTP1.Password := ´XXXXXXXX´;
IdFTP1.Connect(true);
IdFTP1.ChangeDir(´/public_html/ftp/´);
IdFTP1.Get(´c:\PLANO.pdf´,´PLANO.pdf´,false);
idFTP1.Disconnect;
end;
e dá um erro ´Destination file already exists´
o que ocorre ???
Atenciosamente Solado
[quote:75b5a66912=´Soldado´]...
IdFTP1.[color=red:75b5a66912]Put[/color:75b5a66912](´x:\PLANO.pdf´,´PLANO.pdf´,false);
...
TIdFTP.Put serve para fazer upload. Para download, use TIdFTP.Get.[/quote:75b5a66912]
Responder
Gostei + 0
19/05/2005
Massuda
...
IdFTP1.Get(´c:\PLANO.pdf´,´PLANO.pdf´,false);
...
e dá um erro ´Destination file already exists´
Segundo a Ajuda do Indy...procedure Get(const ASourceFile: string; const ADestFile: string; const ACanOverwrite: boolean = false; AResume: Boolean = false); overload;
[b:e47e0fac19]Parameters[/b:e47e0fac19]
[i:e47e0fac19]const ASourceFile: string[/i:e47e0fac19]
File name on the FTP server.
[i:e47e0fac19]AResume: Boolean[/i:e47e0fac19]
Partial download can be completed.
[i:e47e0fac19]const ADestFile: string[/i:e47e0fac19]
File name and optional path on the local machine.
[i:e47e0fac19]const ACanOverwrite: boolean[/i:e47e0fac19]
Overwrite an existing file with the same name.
Pelo que entendi, você quer que seja possível sobreescrever o arquivo. Nesse caso ficaria:IdFTP1.Get(´PLANO.pdf´, ´c:\PLANO.pdf´, True);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)