Hallo,
Ich setze in einem Thread die
Tag-Eigenschaft eines
IdHTTP Objekts.
Nun möchte ich gerne im
OnStatus-Ereignis die Eigenschaft wieder auslesen, also einfach folgendes:
Delphi-Quellcode:
procedure TForm1.IdHTTP1Status(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
var
I: Integer;
begin
I := (ASender as TIdHTTP).Tag;
end;
Das funktioniert aber nicht, da der
Sender nicht immer
TIdHTTP, sondern auch manchmal
TIdIOHandlerStack ist.
Der
IOHandler-Eigenschaft kann ich leider nicht den selben
Tag geben, so dass folgendes
nicht funktioniert:
Delphi-Quellcode:
procedure TForm1.IdHTTP1Status(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
var
I: Integer;
begin
if ASender is TIdHTTP then
I := (ASender as TIdHTTP).Tag
else {if ASender is TIdIOHandlerStack} then
I := (ASender as TIdIOHandlerStack).Tag;
end;
Eine globale Variable/Liste o.Ä. möchte ich gerne vermeiden.
Die Frage ist also, ob es eine Möglichkeit gibt vom
Sender TIdIOHandlerStack zum
TIdHTTP zu kommen, um das
Tag auszulesen, also sowas wie
GetParent oder so?