Problem mit IdFTP1.Put

[Sir Rufo]

sorry, für wegen die fehlenden

Der ftp-Server den ich ansprechen will ist erreichbar, mit den Login-Daten beschreibbar, also eigentlich voll erreichbar.

Der Login funktioniert, der Upload startet und dann kommt die Fehlermeldung "Connection closed; transfer aborted"

Wie schon gesagt: Delphi 2010, Indy 10.5.5 (die wo direkt mit Delphi 2010 geliefert werden )

Hier der Code aus dem Formular, der Rest vom Projekt ist im Anhang.

Delphi-Quellcode:

unit frmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, ExtCtrls;

type
  TForm1 = class( TForm )
    Host : TEdit;
    Port : TEdit;
    Username : TEdit;
    Password : TEdit;
    Passive : TCheckBox;
    Button1 : TButton;
    IdFTP1 : TIdFTP;
    procedure Button1Click( Sender : TObject );

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1 : TForm1;

implementation

{$R *.dfm}

uses
  idFtpCommon;

procedure TForm1.Button1Click( Sender : TObject );
  begin
    // Einstellungen lesen
    IdFTP1.Host := Host.Text;
    IdFTP1.Port := StrToIntDef( Port.Text, 21 );
    IdFTP1.Username := Username.Text;
    IdFTP1.Password := Password.Text;
    IdFTP1.Passive := Passive.Checked;
    IdFTP1.AutoLogin := False;

    IdFTP1.Connect;
    try
      IdFTP1.Login;
      IdFTP1.TransferType := ftBinary;
      if FileExists( '.\Dokument.txt' ) then
        IdFTP1.Put( '.\Dokument.txt', 'Dokument.txt', False );
    finally
      IdFTP1.Disconnect;
    end;

  end;

end.