[ _v!rus_ @ 30.09.2005. 09:10 ] @
Koristim importovan TLB i OleContainer komponentu za automatizaciju jednog OLE objekta. Problem je u tome sto vecina property-a vraca objekte (tj. pointere) raznih tipova (glupi VB).

Na primer Selection property moze da vrati vise tipova objekata u zavisnosti sta je korisnik u OLE objektu izabrao, i povratni tip je OleVariant.

Sobzirom da su Delphiu svi ti objekti IDispatch, ne mogu da koristim IS operator, zna li neko kako kako mogu onda da ispitam koje je klase vraceni objekat?
[ Srki_82 @ 30.09.2005. 17:20 ] @
Koristi QueryInterface metod.

Citat:
Delphi Help:
Returns a reference to a specified interface if the object supports that interface.

Delphi syntax:

type HResult = Longint;
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;

Description

QueryInterface checks whether the object that implements this interface supports the interface specified by IID. If so, QueryInterface

increments the reference count.
sets the Obj parameter so that it points to an instance of the specified interface.
returns 0 to indicate success.

If the object does not support the interface, QueryInterface returns a nonzero error code such as E_NoInterface.

Treba da znas GUID objekta koji zelis i ako objekat koji si dobio ima funkcionalnost objekta koji zelis dobidjes ga.
[ _v!rus_ @ 01.10.2005. 23:02 ] @
Hvala, probacu u pon. kada dodjem na posao.
Nesretni GUID moracu da vadim iz *_tlb.pas, valjda tamo pise.

BTW., mogu li da racunam da ce ti guid-i vaziti i na ostalim masinama, ako je konkretni OCX instaliran i registrovan?


[Ovu poruku je menjao _v!rus_ dana 02.10.2005. u 00:02 GMT+1]
[ Srki_82 @ 01.10.2005. 23:56 ] @
Naravno... svaki objekat ima jedinstveni GUID... cak i svaka verzija objekta ima drugaciji GUID.