FTP Indy Datei runterladen

[marabu]

Hi xenonz,

probiere es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.username := 'xxxxx';
  IdFTP1.Password := 'xxxxx';
  IdFTP1.Host := 'people-ftp.freenet.de'    
  // url = [url]ftp://people-ftp.freenet.de/text.txt[/url]
  // scheme = ftp: 
  // host = people-ftp.freenet.de
  idFTP1.Connect;

  if idftp1.Size('test.txt') = -1 then 
    label1.Caption := 'FALSE'
  else 
  begin
    label1.Caption := 'TRUE';
    IdFTP1.Get('test.txt', '1.txt');
    IdFTP1.Delete('test.txt');
  end;
  idFTP1.Disconnect;
end;

Grüße vom marabu