Auf Eigenschaften von Sub-Komponenten zugreifen

[SyntaxXx]

Hallo zusammen,
ich hoffe, dass ihr mir helfen könnt.

Ich arbeite zur Zeit mit der Lazarus IDE.
Nun habe ich mir die Indy Komponenten installiert.
In meinem Projekt brauche ich die Komponente IdHTTP, die Komponente IdIOHandlerStack und die Komponente IdSocksInfo.

Jetzt weise ich der IdIOHandlerStack Komponente die IdSocksInfo Komponente zu und danach der IdHTTP Komponente die IdIOHandlerStack Komponente.

Objekt.IdSocksInfo:= TIdSocksInfo.Create ;
Objekt.IdIOHandlerStack:= TIdIOHandlerStack.Create;
Objekt.IdIOHandlerStack.TransparentProxy:= Objekt.IdSocksInfo;
Objekt.IdHTTP:= TIdHTTP.Create;
Objekt.IdHTTP.IOHandler:= Objekt.IdIOHandlerStack;


Im späteren Verlauf der Anwendung steht mit nurnoch "Objekt" zur Verfügung.
Ich muss aber Eigenschaften von IdSocksInfo ändern.

Jetzt hätte ich gedacht, dass es so geht:
Objekt.IdHTTP.IOHandler.TransparentProxy.SocksVersion (zum Beispiel)

Doch da schmeißt mir der Compiler einen Fehler, dass er "TransparentProxy" nicht kennt.

Muss ich jetzt jedesmal ein neues IdSocksInfo und ein IdIOHandlerStack Objekt erzeugen, die Eigenschaften setzten und dann IdHTTP zuweisen?
Das erscheint mir mehr als umständlich.

[theo]

ich kenne den entsprechenden Indy Code nicht, aber du musst wahrsch. typecasten.

Code: Alles auswählen

TIdIOHandlerStack(Objekt.IdHTTP.IOHandler).Transparent....

Nur ein Vorschlag, nicht getestet.

[SyntaxXx]

Ahhhhh ok, so ist das bei Lazarus / Free-Pascal.
Doch etwas anders als in Delphi


Vielen Dank, funktioniert wurnderbar.

[theo]

Ahhhhh ok, so ist das bei Lazarus / Free-Pascal.
Doch etwas anders als in Delphi


Vielen Dank, funktioniert wurnderbar.

Das ist bei Delphi auch so.
"As" ginge auch : http://www.delphibasics.co.uk/RTL.asp?Name=as
Unterschied: http://delphi.about.com/od/delphitips20 ... s_cast.htm