几个DLL的函数的C原形,翻译成Delphi 语法因该如何写
几个DLL的函数的C原形,翻译成Delphi 语法因该怎么写
RESULT PreViewWindow(void * * pViewWindow);
RESULT Build(HANDLE, hDev, BOOL bVPreview = true, BOOL bAPreview = true);
int GetVideoInfo(HANDLE hDev, int &value1, int &value2);
这几个是一个DLL的函数的C原形,翻译成Delphi 语法因该怎么写,谢谢
------解决方案--------------------
RESULT PreViewWindow(void * * pViewWindow);
RESULT Build(HANDLE, hDev, BOOL bVPreview = true, BOOL bAPreview = true);
int GetVideoInfo(HANDLE hDev, int &value1, int &value2);
type
PPPointer = ^PPointer;
TResult = RESULT;
function PreViewWindow(pViewWindow: PPPointer): TResult;
function Build(hDev: THandle; bVPreview: BOOL = True; bAPreview: BOOL = True): TResult;
function GetVideoInfo(hDev: THandle; var value1, value2: Integer): Integer;
------解决方案--------------------
int GetVideoInfo(HANDLE hDev, int &value1, int &value2);
function GetVideoInfo(hDEV: THandle; var value1, value2 : Integer): Integer;
int GetVideoInfo(HANDLE hDev, int * value1, int * value2);
function GetVideoInfo(hDEV: THandle; value1, value2 : PInteger): Integer;
------解决方案--------------------
HRESULT PreViewWindow(void * * pViewWindow);
type
TArrayPointer = Array Of Pointer;
function PreViewWindow(pViewWindow: TArrayPointer): Integer;
HRESULT Build(HANDLE, hDev, BOOL bVPreview = true, BOOL bAPreview = true);
function Build(hDev: HWND;bVPreview: BOOL=True;bAPreview: BOOL=True): Integer;
int GetVideoInfo(HANDLE hDev, int &value1, int &value2);
function GetVideoInfo(hDev: HWND;var value1: Integer;var value2: Integer): Integer;
RESULT PreViewWindow(void * * pViewWindow);
RESULT Build(HANDLE, hDev, BOOL bVPreview = true, BOOL bAPreview = true);
int GetVideoInfo(HANDLE hDev, int &value1, int &value2);
这几个是一个DLL的函数的C原形,翻译成Delphi 语法因该怎么写,谢谢
------解决方案--------------------
RESULT PreViewWindow(void * * pViewWindow);
RESULT Build(HANDLE, hDev, BOOL bVPreview = true, BOOL bAPreview = true);
int GetVideoInfo(HANDLE hDev, int &value1, int &value2);
type
PPPointer = ^PPointer;
TResult = RESULT;
function PreViewWindow(pViewWindow: PPPointer): TResult;
function Build(hDev: THandle; bVPreview: BOOL = True; bAPreview: BOOL = True): TResult;
function GetVideoInfo(hDev: THandle; var value1, value2: Integer): Integer;
------解决方案--------------------
int GetVideoInfo(HANDLE hDev, int &value1, int &value2);
function GetVideoInfo(hDEV: THandle; var value1, value2 : Integer): Integer;
int GetVideoInfo(HANDLE hDev, int * value1, int * value2);
function GetVideoInfo(hDEV: THandle; value1, value2 : PInteger): Integer;
------解决方案--------------------
HRESULT PreViewWindow(void * * pViewWindow);
type
TArrayPointer = Array Of Pointer;
function PreViewWindow(pViewWindow: TArrayPointer): Integer;
HRESULT Build(HANDLE, hDev, BOOL bVPreview = true, BOOL bAPreview = true);
function Build(hDev: HWND;bVPreview: BOOL=True;bAPreview: BOOL=True): Integer;
int GetVideoInfo(HANDLE hDev, int &value1, int &value2);
function GetVideoInfo(hDev: HWND;var value1: Integer;var value2: Integer): Integer;