Dynamische TIdFTP kann keine Events ansteuern

[Assertor]

Hi,

probier mal

Zitat von vlees91:

Delphi-Quellcode:

  private
    { Private declarations }
    FTPCon: TIdFTP;
    procedure OnFTPConWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      AWorkCountMax: Integer); // const weg

Delphi-Quellcode:

procedure TMainForm.OnFTPConWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer); // const weg
begin
  //kommt irgendwann mal was rein
end;

Wenn Du eine neuere Indy Version verwendest (nicht die mit Turbo Delphi ausgelieferte), dann muß statt Integer bitte Int64 verwendet werden.

Zitat von vlees91:

Delphi-Quellcode:

  private
    { Private declarations }
    FTPCon: TIdFTP;
    procedure OnFTPConWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      AWorkCountMax: Int64); // const weg, Int64 statt Integer

Delphi-Quellcode:

procedure TMainForm.OnFTPConWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64); // const weg, Int64 statt Integer
begin
  //kommt irgendwann mal was rein
end;

Die jeweils gültige Typdefinition für diese Events ist übrigens in der IdComponent.pas. Wenn diese in der Unitliste steht, einfach mit der Maus einen Rechtsklick drauf, dann "Datei beim Cursor" öffnen.

In der Datei findest Du dann bei neueren Indys z.B.:

Delphi-Quellcode:

TWorkBeginEvent = procedure(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64) of object;
TWorkEndEvent = procedure(ASender: TObject; AWorkMode: TWorkMode) of object;
TWorkEvent = procedure(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64) of object;

und früher halt

Delphi-Quellcode:

TWorkBeginEvent = procedure(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Integer) of object;
TWorkEndEvent = procedure(ASender: TObject; AWorkMode: TWorkMode) of object;
TWorkEvent = procedure(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer) of object;

Gruß Assertor