segue um exemplo bem simples, com indy.
procedure TForm1.btftpClick(Sender: TObject);
begin
idftp1.Host:=edftphost.Text;
idftp1.Username:=edftpuser.text;
idftp1.Password:=edftpsenha.Text;
if not fileexists(edftpfile.text) then
begin
showmessage('ftp file not found');
exit;
end;
statusmemo.Lines.Add('conectando...');
try
idftp1.Connect();
if edftppasta.Text<>'' then
begin
statusmemo.Lines.Add('mudando diretório...');
idftp1.ChangeDir(edftppasta.text);
end;
statusmemo.Lines.Add('copiando arquivo');
idftp1.Put(edftpfile.text,edftpfile.text,false);
idftp1.Disconnect;
except on E:Exception do
begin
statusmemo.Lines.Add('erro->'+E.Message+'<-erro');
end;
end;
statusmemo.Lines.Add('fim');
end;
marcelo luiz stefaniak
Em 08/02/2010 14:49, snakesjb escreveu:
>
> Alguem tem um exemplo de ftp para Delphi 2010??? To tentando fazer um
> sistema para atualizar meu sistema via internet...
>
>
> *Mensagem recebida parcialmente!*
> ------------------------------------------------------------------------
> *O tamanho da mensagem excede o limite definido nas opções desta
> conta. Somente as primeiras linhas foram recebidas do servidor de
> mensagens.*
>
> *Clique aqui
> <mailbox://nob...@local%20folders/Inbox?number=415477689&messageid=hkpiqj+ism6%40eGroups.com&uidl=65233>
>
> para receber a mensagem completa.*
>
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
