[fpc-pascal] importtl and ignored [out, retval] parameters

[Lubos Pintes]

Hello,
I wanted to import the UIAutomationClient type library. Thus I compiled 
the UIAutomationClient.idl to .tlb and then used importtl to convert it 
to pascal.
Importtl converted this incorrectly, it ignored [out, retval] parameters 
on many places. For example, two examples from IUIAutomationElement 
interface.
IDL:
        HRESULT GetRuntimeId (
            [out, retval] SAFEARRAY(int) * runtimeId );
        HRESULT FindFirst (
            [in] enum TreeScope scope,
            [in] IUIAutomationCondition * condition,
            [out, retval] IUIAutomationElement ** found );

Pascal:
    // GetRuntimeId :
   function GetRuntimeId:HRESULT;stdcall;
    // FindFirst :
   function 
FindFirst(scope:TreeScope;condition:IUIAutomationCondition):HRESULT;stdcall;


_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal