IdHttp - OnWorkBegin wird nicht ausgelöst

[KahPee]

Hallo,

ich habe eine Variable (global) des Typ TIdHttp erstellt. Immer dann wenn sie Benötigt wird die Klasse erzeugt

Delphi-Quellcode:

var IdHttp: TIdHttp
...
procedure MACHWAS;
begin
   IdHttp:=TIdHttp.Create;
   //Lade hier was runter
   IdHttp.Free;
end;

Mein Problem ist nun folgendes das runterladen klappt. Aber OnWorkbegin wird nicht ausgelesen. OnWorkbegin habe ich in der Unit, in der IdHttp die globale Varibale ist wie folgt deklariert:

Delphi-Quellcode:

//dies nur im implementation teil Nichts in dem Teil davor
procedure IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer); 
begin
 showmessage('test');
end;

Warum wird das Ereignis nicht ausgelöst?

Vielen Dank

KahPee

[Luckie]

Wird es denn auch irgendwo zugewiesen?

[KahPee]

Ah das wird der Fehler sein. Wie muss man das zuweisen? Kannst du mir das einmal einen Beispielcode posten?

[Klaus01]

idhttp.onWorkBegin := IdHTTPWorkBegin; und aus Deiner procedure musst Du eine Methode machen,
sonst wird das mit dem Sender nichts.

Grüße
Klaus

[KahPee]

Was genau ist gemeint? Wie müsste ich meinen jetzigen Code abwandeln um das gewünschte Ziel zu erreichen? Wäre nett wenn ihr mir da auf die Sprünge helfen könntet

Gruß Kahpee

Edit: Habe auch mal versucht das als abgeleitete Klasse zu machen. Aber OnWorkBegin ist eine "property" und deswegen kann ich die nicht wie eine normale procedure überschreiben :-/

[Luckie]

Der ganze Code muss eben in einer Klasse sein. Da eine Methode erwartet wird.