Lazarus - Synapse - Connect funzt nicht

[LuCSteR]

Hey,

habe mich in Synapse eingearbeitet und komme an sich mit der ganzen Thematik ganz gut klar. Nur als ich heute auf mehreren wegen versucht habe eine connection herzustellen traten fehler auf.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Create TFTPClient
  TFTPClient := TTFTPSend.Create;
  Log.Lines.Add('TFTPClient created');

  // Set IP/Port/Username/Password
  TFTPClient.TargetHost := IPEdit.Text;
  Log.Lines.Add('TargetSystem is ' + TFTPClient.TargetHost);
  TFTPClient.TargetPort := PortEdit.Text;
  Log.Lines.Add('TargetPort is ' + TFTPClient.TargetPort);
  TFTPClient.UserName:= UserEdit.Text;
  Log.Lines.Add('UserName is ' + TFTPClient.UserName);
  TFTPClient.Password:= PassEdit.Text;
  Log.Lines.Add('Password is ' + TFTPClient.Password);

  // Try to get file
  Log.Lines.Add('Try to get "' + FilePathServerEdit.Text + '"');
  if TFTPClient.RecvFile(FilePathServerEdit.Text)
    then
      begin
        // Filetransfer successful
        Log.Lines.Add('File successfully get from TFTPServer');
        SaveDialog1.FileName := FilePathServerEdit.Text;
        if SaveDialog1.Execute
          then TFTPClient.Data.SaveToFile(SaveDialog1.FileName);
      end
    else
      begin
        // Filetransfer not successful
        Log.Lines.Add('Error while getting File from TFTPServer');
        Log.Lines.Add(IntToStr(TFTPClient.ErrorCode) + ' - ' + TFTPClient.ErrorString);
      end;

  // Free TFTPClient
  TFTPClient.Free;
  Log.Lines.Add('TFTPClient destroyed');
end;

so wie es aussieht funktioniert das connecten einfach nicht. wenn es funktionieren würde, dann würde ja der savedialog aufpoppen. passiert aber nicht.

Ich habe die Klasse TTFTPSend und die zugehörige Unit FTPTSend genutzt (Client und Server protokoll). Da ich nur Dateien suchen und dann kopieren möchte, wäre es vll. sinnvoller nur die Unit FTPSend einzubinden(Client Protkoll)?

grüße