AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

IdHTTP OnStatus Tag

Ein Thema von luke2 · begonnen am 4. Apr 2011
Antwort Antwort
luke2

Registriert seit: 17. Jun 2009
117 Beiträge
 
#1

IdHTTP OnStatus Tag

  Alt 4. Apr 2011, 17:00
Delphi-Version: XE
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?
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:08 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf