FTPCon.OnWorkBegin := OnFTPConWorkBegin;
Delphi-Quellcode:
private
{ Private declarations }
FTPCon: TIdFTP;
procedure OnFTPConWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
Delphi-Quellcode:
procedure TMainForm.OnFTPConWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
//kommt irgendwann mal was rein
end;
also der oberste code wird im OnCreate des Forms aufgerufen aber es laesst sich nciht kompilieren, da die ParamtererListe nicht gleich ist an der Definition. Ist schon lange her das ich sowas gemacht hab also wahrscheinlich ist der Fehler einfach nur dumm, aber ich find ihn jetzt nicht (und ich kann da oben natuerlich nicht alle Parameter wie Sender und so schon eingeben da diese ja dynamisch sind und ich kann mich erinnern dass es frueher so einfach ging)