怎么把MSDN里的代码转换成DELPHI中的代码
如何把MSDN里的代码转换成DELPHI中的代码
MSDN中的代码大部分为C++或C的代码,如何把上面的代码转换成DELPHI中的代码,主要是函数的声明时的代码,里面的数据类型怎么进行转换,如:
里面的IObjectWithSite里的GetSite声明如下:
HRESULT GetSite( REFIID riid,
void **ppvSite
);
转换成DELPHI的为:
function TDelphiBand.GetSite(const riid: TIID; out site: IUnknown): HResult;
请问如何进行转换?
------解决方案--------------------
function GetSite(const riid: TIID; out site: IUnknown): HResult; virtual; stdcall;
function TDelphiBand.GetSite(const riid: TIID; out site: IUnknown): HResult;
begin
site := nil;
Result := E_NOTIMPL;
try
Result := QueryInterface(riid, site)
except
end
end;
MSDN中的代码大部分为C++或C的代码,如何把上面的代码转换成DELPHI中的代码,主要是函数的声明时的代码,里面的数据类型怎么进行转换,如:
里面的IObjectWithSite里的GetSite声明如下:
HRESULT GetSite( REFIID riid,
void **ppvSite
);
转换成DELPHI的为:
function TDelphiBand.GetSite(const riid: TIID; out site: IUnknown): HResult;
请问如何进行转换?
------解决方案--------------------
function GetSite(const riid: TIID; out site: IUnknown): HResult; virtual; stdcall;
function TDelphiBand.GetSite(const riid: TIID; out site: IUnknown): HResult;
begin
site := nil;
Result := E_NOTIMPL;
try
Result := QueryInterface(riid, site)
except
end
end;