De fato, nenhuma das alternativas citadas serve para copiar arquivos via FTP. O 
Windows Explorer reconhece de forma transparente o protocolo de comunicação a 
ser usado para uma cópia de arquivos baseando-se no caminho UNC do mesmo. Por 
isso que Ctrl+C e Ctrl+V no Windows Explorer funciona.
 
No seu caso da sua aplicação, não tem jeito, vc vai ter que usar o Indy mesmo 
pra fazer essa cópia. Se a conexão cai, não é problema de sua aplicação, e sim 
da qualidade da conexão disponibilizada para essa cópia. Uma outra tentativa 
que vc poderia fazer é tentar usar a função UrlDownloadToFile, da unit UrlMon. 
Essa unit é uma tradução das funções e estruturas da API do Windows encontradas 
na biblioteca urlmon.dll
 
Sds.


To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Thu, 21 Jun 2007 10:12:17 
-0300Subject: [delphi-br] Copiar arquivo




Bom dia,Gostaria de saber se tem algum comando no delphi para copiar arquivos 
utilizando o windows.Esse processo seria para fazer o upload de um arquivo. 
Hoje estou utilizando o componente Indy, mas em alguns casos o sistema começa a 
enviar e perde a conexão e para. Já experimentei varios componentes, mas todos 
eles tiveram o mesmo problema ou piorou a situação.Então passei a solicitar 
para meus clientes que utiliza-se o explorer para enviar os arquivos. Coloquei 
no sistema um codigo para abrir o ftp automaticamente 
ShellExecute(Handle,'Open',PChar('explorer'),'ftp://login:[EMAIL 
PROTECTED]/public_html/backup/','',SW_SHOWMINNOACTIVE);esse procedimento ajudou 
e muito no recebimento de backups, mas gostaria de subistituir o componente 
indy por um comando que copia-se o backup de forma automatica, para o ftp 
utilizando o explorer. Tentei tambem varios comandos como CopyFile, TFileStream 
CopyFrom, SHFileOperation, mas todos eles não consegue copiar para o 
ftp.Resumindo há algum comando que simule o CTRL+C e CTRL+V ? ou qualquer 
dica/indicação de como fazer o upload desse arquivo será muito bem vinda.Sem 
mais agradeço,Ricardo Lino Gonzalez[As partes desta mensagem que não continham 
texto foram removidas] 


_________________________________________________________________
Instale o novo Windows Live Messenger! É grátis!
http://get.live.com/messenger/overview

[As partes desta mensagem que não continham texto foram removidas]

Responder a