Envio FTP Delphi

[HacksGratis2 0]

Bom pessoal,estou tendo problemas para enviar arquivos gerados pelo meu programa para meu servidor FTP,podem me ajudar?

 

 

IdFTP1.Host := 'server12.               ';

IdFTP1.Username := 'a4928948';

IdFTP1.Password := 'XXXXXX';

idftp1.Connect();

IdFTP1.ChangeDir('public_html/matchids/');

for i := 0 to fl.Count -1 do

begin

idftp1.Put('c:\Screenshots\processo.txt'+fl,fl);

idftp1.Disconnect;

idftp1.Disconnect;

end;

fl.Free;

end;

 

Print do erro:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

[NoSlake 56]

[HacksGratis2 0]

Ninguem?