>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
What parameter you pass to that function?
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.