Board index » delphi » Translate into Delphi

Translate into Delphi

Hi all,
 How would I translate the following into Delphi statements :

    HRESULT GetName(  [out] BSTR *pbstrName);
    HRESULT  GetNmVersion( [out] ULONG *puVersion);
    HRESULT   GetConference(
              [out] INmConference **ppConference);

  and finally this one :

typedef enum tagNmCallState{
    NM_CALL_INVALID                              = 0,
    NM_CALL_INIT                                 = 1,
    NM_CALL_RING                                 = 2,

Quote
} NM_CALL_STATE;

Thanks in advance,

  Eyal Hirsch.

 

Re:Translate into Delphi


function GetName (out pbstrName : widestring) : hresult;
function GetNmVersion (out puVersion : ulong) : hresult;
function GetConference (out ppConference : INmConference) : hresult;

type
  NM_CALL_STATE = TOleEnum;

const
  NM_CALL_INVALID = 0;
  NM_CALL_INIT = 1;
  NM_CALL_RING = 2;

have fun
--
Binh Ly
Visit my COM Notes at http://www.castle.net/~bly/com

Quote
Eyal Hirsch <eyal...@netvision.net.il> wrote in message

news:7qllru$f3h4@forums.borland.com...
Quote
> Hi all,
>  How would I translate the following into Delphi statements :

>     HRESULT GetName(  [out] BSTR *pbstrName);
>     HRESULT  GetNmVersion( [out] ULONG *puVersion);
>     HRESULT   GetConference(
>               [out] INmConference **ppConference);

>   and finally this one :

> typedef enum tagNmCallState{
>     NM_CALL_INVALID                              = 0,
>     NM_CALL_INIT                                 = 1,
>     NM_CALL_RING                                 = 2,
> } NM_CALL_STATE;

> Thanks in advance,

>   Eyal Hirsch.

Other Threads