Fórum Copiar arquivos para uma máquina em outra rede #345728
10/09/2007
0
Preciso desenvolver um sistema que copie arquivos de uma rede para outra, com o componente IDFTP da indy ele me retorna varios erros agredito que esteja utilizando o componente errado. Qual seria a melhor forma de fazer isso?
Obrigado
Andreasf
Curtir tópico
+ 0Posts
10/09/2007
Massuda
Segue um exemplo básico de uso:
// IdFTP1 é um TIdFTP // conecta no servidor FTP IdFTP1.Username := ´...seu nome de usuário...´; IdFTP1.Password := ´...sua senha secreta...´; IdFTP1.Host := ´...nome do seu servidor...´; // exemplo: ftp.example.com IdFTP1.Connect; if IdFTP1.Connected then begin // *** upload de arquivos *** // transfere um arquivo texto IdFTP1.TransferType := ftASCII; IdFTP1.Put(´c:\autoexec.bat´, ´autoexec.bat´); // transfere um arquivo binário IdFTP1.TransferType := ftBinary; IdFTP1.Put(´c:\command.com´, ´meucommand.com´); // *** download de arquivo *** // transfere um arquivo binário IdFTP1.TransferType := ftBinary; // isso dá erro se o arquivo c:\meucommand.com já existir IdFTP1.Get(´meucommand.com´, ´c:\meucommand.com´); // desconecta IdFTP1.Quit; end; ...
Gostei + 0
10/09/2007
Andreasf
Gostei + 0
10/09/2007
Massuda
CopyFile(PChar(Origem), PChar(Destino), {bFailIfExists:} False);Gostei + 0
27/09/2007
Zap40
procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFile(PChar(´C:\Documents and Settings\zap\Desktop\Project1.exe´), PChar(´C:\Arapudo\Project1.exe´), {bFailIfExists:} False);
end;
Gostei + 0
29/09/2007
Raserafim
Gostei + 0
29/09/2007
Mayron Cachina
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)