General information
Category:
COM/DCOM and OLE Automation
Hi at all,
I am new in using com objects, I have the following example code in Visual Basic and Delphi how can I transform in VFP using GETINTERFACE ?
This the example in Visual Basic
Public Function Init(Application As TTopoLKernel) As Long
Set TLVBKernel = Application
End Function
This the example in Delphi
function TExampleDB.Init(const topolKernel: IUnknown): HResult;
begin
topolKernel.QueryInterface(ITopoLKernel, fTopoL);
Result := S_OK;
end;
I try this in VFP but does not works.
PROCEDURE Init [Appl as Variant]
TopoLKernel = GETINTERFACE(Appl, "ITopoLKernel", "TLKernel.dll")
RETURN 1
ENDPROC
any idea
Thank you in advance
Luigi
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only