[DUG]: Typelib translation ?

[Neil Anderson]

Hi 

Could someone verify that Delphi 4.02 has imported and translated the
typelib correctly:
The part that is still puzzling me is the translation of ReqBuffer, I am
sure the application is asking for an address to a structure, I have
passed the address of the structure typecast as an integer to get the
code to compile. The results have not been promising :(

This is code cut from a typelib viewer :
[
  odl,
  uuid({F080A41A-28E0-11D2-80B6-00A0C92296F1}),
  helpstring("ISogDirectBufferAccess Interface")
]
interface ISogDirectBufferAccess {
  [helpstring("method SetRequestBufferDirect")] HRESULT _stdcall
SetRequestBufferDirect(
          [in] long ReqBufferLen, 
          [in, out] long* ReqBuffer, 
          boolean* Success);
  [helpstring("method GetReplyBufferDirect")] HRESULT _stdcall
GetReplyBufferDirect(
          [in] long RepBufferLen, 
          [in, out] long* RepBuffer, 
          boolean* Success);
};

This is the Delphi transalated Code from the imported typelib:

  ISogDirectBufferAccess = interface
    ['{F080A41A-28E0-11D2-80B6-00A0C92296F1}']
    function SetRequestBufferDirect(ReqBufferLen: Integer; var
ReqBuffer: Integer; 
                                    var Success: WordBool): HResult;
stdcall;
    function GetReplyBufferDirect(RepBufferLen: Integer; var RepBuffer:
Integer; 
                                  var Success: WordBool): HResult;
stdcall;
  end;


---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz