Montar um software de transf. FTP
24/02/2006
0
Pessoal alguém possui algo programado que faça a transferencia de arquivos locais para um servidor ftp e que em um outro momento este software capture esses arquivos locais e os traga do servidor FTP para a maquina local.
Fico na esperança de uma ajuda. Quem tiver algum material de apoio ou algo que possa me ajuda eu agradeceria.
Valeu
Wagner´s
Wagnermarrane
Posts
24/02/2006
Rafael Gomes
pesquise a respeito dos componentes Indy, especificamente ocomponente IdFTP ...
aqui vai um pequeno codigo de como enviar um arquivo via ftp ...
procedure TForm1.Button1Click(Sender: TObject);
var
dir,line2,name2 : string;
begin
dir := ´/public_html/felipe/´; // caminho dentro do servidor
line2:= ´c:\arq.txt´; // caminho do arquivo a ser enviado
name2:= ´novonome.udp´;
with IdFTP1 do try
begin
Username := ´username´;
Password := ´senha´;
Host := ´ftp.xxxx.com.br´;
Connect;
ChangeDir(dir); // muda o diretorio
end;
try
IdFTP1.Put(line2, name2); // envia o arquivo!
finally
IdFTP1.Disconnect;
end;
end;24/02/2006
Wagnermarrane
pesquise a respeito dos componentes Indy, especificamente ocomponente IdFTP ...
aqui vai um pequeno codigo de como enviar um arquivo via ftp ...
procedure TForm1.Button1Click(Sender: TObject);
var
dir,line2,name2 : string;
begin
dir := ´/public_html/felipe/´; // caminho dentro do servidor
line2:= ´c:\arq.txt´; // caminho do arquivo a ser enviado
name2:= ´novonome.udp´;
with IdFTP1 do try
begin
Username := ´username´;
Password := ´senha´;
Host := ´ftp.xxxx.com.br´;
Connect;
ChangeDir(dir); // muda o diretorio
end;
try
IdFTP1.Put(line2, name2); // envia o arquivo!
finally
IdFTP1.Disconnect;
end;
end;esta dando um erro
[Error] uftp.pas(61): E2125 EXCEPT or FINALLY expected
24/02/2006
Wagnermarrane
Socket Error #11004
e por enquanto obrigado
Att,
Wagner
24/02/2006
Massuda
24/02/2006
Rafael Gomes
sorte que o massuda tava ai pra corrigir ...
qlqer coisa volte a postar!
[]s
24/02/2006
Wagnermarrane
Massuda será que a empresa proprietária do ftp poderia me ajudar em alguma coisa. Caso consiga um o IP eu consigo fazer isso via IP
Att,
Wagner
24/02/2006
Wagnermarrane
sorte que o massuda tava ai pra corrigir ...
qlqer coisa volte a postar!
[]s[/quote:cffc844e83]
blz Rafael. Ja me ajudou bastanta. Mas ainda fico com o problema que existe de Socket. Como o Massuda explicou pode ser uma coisa temporária porém creio que não pq a todo o momento o erro periste.
Como estou aprendendo ainda a programar e estou me enfiando em algumas coisas deconhecidas não faço muita idéia dos erros ocorridos.
Mas só tenho a agradecer até o momento a ajuda dada.
Att,
Wagner
24/02/2006
Massuda
24/02/2006
Wagnermarrane
host:=´ftp://ftp.ndata.com.br/´
24/02/2006
Massuda
24/02/2006
Wagnermarrane
camarada consegui enviar o arquivo. Porém quando efetuei um novo envio voltou a dar o erro de Socket
Clique aqui para fazer login e interagir na Comunidade :)
