Utilizando COM con delphi
Tengo una DLL registrada que me genero un UCBioBSPCOMLib_TLB.pas,
Creo un form y en el uses cito UCBioBSPCOMLib_TLB, hasta ahi todo ok, pero UCBioBSPCOMLib_TLB.pas es una clase con 7 interfaces, en consecuencia cuando la quiero usar
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
scannero : UCBioBSP;
scannerid : IDevice;
{ Private declarations }
public
{ Public declarations }
end;
scannero := CreateComObject(CLASS_UCBioBSP) as UCBioBSP;
hasta aca todo ok, porque puedo acceder a las propiedades y funciones
Pero las funciones que necesito esta en una Interface IDevice y según un ejemplo en VB6 y transformado a delphi debería hacer
scannerid := scannero.device;
y de esa manera comenzar a utilizar las propiedades y funciones de esa interfase, pero ocurre algo curioso :
scannero.device es un Olevariant y no es compatible con el tipo Idevice definido para scannerid
Existe alguna forma de al momento de crear el objeto
createcomobject, se puede crear las demas interfaces ???.
y si no como las inicializo para poder utilizarla ???
Gracias
showmessage(inttostr(scannero._Release));
showmessage(scannero.MajorVersion);
showmessage(scannero.MinorVersion);
scannerid := scannero.
showmessage(inttostr(scannerid.OpenedDeviceID));
|