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