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