Lazarus - Synapse - Connect funzt nicht

[thkerkmann]

Hi,
ich verwende das auch und mache es so:

Delphi-Quellcode:

      ftp := tFTPSend.Create;
      ftp.TargetHost := ftpHostAddr;
      ftp.TargetPort := cFtpProtocol;
      ftp.UserName := ftpUsername;
      ftp.Password := ftpPassword;
      ftp.DirectFile := true;
      if ftp.Login then
      begin
        ftp.DirectFileName := localfn;
        if ftp.RetrieveFile('/done/' + remotefn, false) then
        begin
          // alles ok
        end
        else
        begin
          // fehlerbehandlng
        end;
        ftp.Logout;
      end
      else
        Logout('could not connect to FTP server');
      ftp.Free;

Schau mal in die ftpSend unit rein, da sind Erläuterungen im Header drin.

Gruss