我需要帮助将C ++头文件转换为Delphi。
下面是原始的头文件和我的Delphi翻译。
C ++标题:
#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000
#ifdef DVP7010BDLL_EXPORTS
#define DVP7010BDLL_API __declspec(dllexport)
#else
#define DVP7010BDLL_API __declspec(dllimport)
#endif
#define MAXBOARDS 4
#define MAXDEVS 4
#define ID_NEW_FRAME 37810
#define ID_MUX0_NEW_FRAME 37800
#define ID_MUX1_NEW_FRAME 37801
#define ID_MUX2_NEW_FRAME 37802
#define ID_MUX3_NEW_FRAME 37803
typedef enum {
SUCCEEDED = 1,
FAILED = 0,
SDKINITFAILED = -1,
PARAMERROR = -2,
NODEVICES = -3,
NOSAMPLE = -4,
DEVICENUMERROR = -5,
INPUTERROR = -6,
// VERIFYHWERROR = -7
}
Res;
typedef enum tagAnalogVideoFormat {
Video_None = 0x00000000,
Video_NTSC_M = 0x00000001,
Video_NTSC_M_J = 0x00000002,
Video_PAL_B = 0x00000010,
Video_PAL_M = 0x00000200,
Video_PAL_N = 0x00000400,
Video_SECAM_B = 0x00001000
}
AnalogVideoFormat;
typedef enum {
SIZEFULLPAL=0,
SIZED1,
SIZEVGA,
SIZEQVGA,
SIZESUBQVGA
}
VideoSize;
typedef enum {
STOPPED = 1,
RUNNING = 2,
UNINITIALIZED = -1,
UNKNOWNSTATE = -2
}
CapState;
class IDVP7010BDLL {
public:
int AdvDVP_CreateSDKInstence(void **pp);
virtual int AdvDVP_InitSDK() PURE;
virtual int AdvDVP_CloseSDK() PURE;
virtual int AdvDVP_GetNoOfDevices(int *pNoOfDevs) PURE;
virtual int AdvDVP_Start(int nDevNum, int SwitchingChans, HWND Main,
HWND hwndPreview) PURE;
virtual int AdvDVP_Stop(int nDevNum) PURE;
virtual int AdvDVP_GetCapState(int nDevNum) PURE;
virtual int AdvDVP_IsVideoPresent(int nDevNum, BOOL* VPresent) PURE;
virtual int AdvDVP_GetCurFrameBuffer(int nDevNum, int VMux,
long* bufSize, BYTE* buf) PURE;
virtual int AdvDVP_SetNewFrameCallback(int nDevNum, int callback) PURE;
virtual int AdvDVP_GetVideoFormat(int nDevNum, AnalogVideoFormat* vFormat) PURE;
virtual int AdvDVP_SetVideoFormat(int nDevNum, AnalogVideoFormat vFormat) PURE;
virtual int AdvDVP_GetFrameRate(int nDevNum, int *nFrameRate) PURE;
virtual int AdvDVP_SetFrameRate(int nDevNum, int SwitchingChans,
int nFrameRate) PURE;
virtual int AdvDVP_GetResolution(int nDevNum, VideoSize *Size) PURE;
virtual int AdvDVP_SetResolution(int nDevNum, VideoSize Size) PURE;
virtual int AdvDVP_GetVideoInput(int nDevNum, int* input) PURE;
virtual int AdvDVP_SetVideoInput(int nDevNum, int input) PURE;
virtual int AdvDVP_GetBrightness(int nDevNum, int input, long *pnValue) PURE;
virtual int AdvDVP_SetBrightness(int nDevNum, int input, long nValue) PURE;
virtual int AdvDVP_GetContrast(int nDevNum, int input, long *pnValue) PURE;
virtual int AdvDVP_SetContrast(int nDevNum, int input, long nValue) PURE;
virtual int AdvDVP_GetHue(int nDevNum, int input, long *pnValue) PURE;
virtual int AdvDVP_SetHue(int nDevNum, int input, long nValue) PURE;
virtual int AdvDVP_GetSaturation(int nDevNum, int input, long *pnValue) PURE;
virtual int AdvDVP_SetSaturation(int nDevNum, int input, long nValue) PURE;
virtual int AdvDVP_GPIOGetData(int nDevNum, int DINum, BOOL* value) PURE;
virtual int AdvDVP_GPIOSetData(int nDevNum, int DONum, BOOL value) PURE;
};
的Delphi:
unit IDVP7010BDLL_h;
interface
uses
Windows, Messages, SysUtils, Classes;
//{$if _MSC_VER > 1000}
//pragma once
//{$endif} // _MSC_VER > 1000
{$ifdef DVP7010BDLL_EXPORTS}
//const DVP7010BDLL_API = __declspec(dllexport);
{$else}
//const DVP7010BDLL_API = __declspec(dllimport);
{$endif}
const
MAXDEVS = 4;
MAXMUXS = 4;
ID_NEW_FRAME = 37810;
ID_MUX0_NEW_FRAME = 37800;
ID_MUX1_NEW_FRAME = 37801;
ID_MUX2_NEW_FRAME = 37802;
ID_MUX3_NEW_FRAME = 37803;
// TRec
SUCCEEDED = 1;
FAILED = 0;
SDKINITFAILED = -1;
PARAMERROR = -2;
NODEVICES = -3;
NOSAMPLE = -4;
DEVICENUMERROR = -5;
INPUTERROR = -6;
// TRec
// TAnalogVideoFormat
Video_None = $00000000;
Video_NTSC_M = $00000001;
Video_NTSC_M_J = $00000002;
Video_PAL_B = $00000010;
Video_PAL_M = $00000200;
Video_PAL_N = $00000400;
Video_SECAM_B = $00001000;
// TAnalogVideoFormat
// TCapState
STOPPED = 1;
RUNNING = 2;
UNINITIALIZED = -1;
UNKNOWNSTATE = -2;
// TCapState
type
TCapState = Longint;
TRes = Longint;
TtagAnalogVideoFormat = DWORD;
TAnalogVideoFormat = TtagAnalogVideoFormat;
PAnalogVideoFormat = ^TAnalogVideoFormat;
TVideoSize = ( SIZEFULLPAL, SIZED1, SIZEVGA, SIZEQVGA, SIZESUBQVGA);
PVideoSize = ^TVideoSize;
P_Pointer = ^Pointer;
TIDVP7010BDLL = class
function AdvDVP_CreateSDKInstence(pp: P_Pointer): integer; virtual; stdcall;
abstract;
function AdvDVP_InitSDK():Integer; virtual; stdcall; abstract;
function AdvDVP_CloseSDK():Integer; virtual; stdcall; abstract;
function AdvDVP_GetNoOfDevices(pNoOfDevs : PInteger) :Integer; virtual; stdcall;
abstract;
function AdvDVP_Start(nDevNum : Integer; SwitchingChans : Integer; Main : HWND;
hwndPreview: HWND ) :Integer; virtual; stdcall; abstract;
function AdvDVP_Stop(nDevNum : Integer ):Integer; virtual; stdcall; abstract;
function AdvDVP_GetCapState(nDevNum : Integer ):Integer; virtual; stdcall;
abstract;
function AdvDVP_IsVideoPresent(nDevNum : Integer; VPresent : PBool) :Integer;
virtual; stdcall; abstract;
function AdvDVP_GetCurFrameBuffer(nDevNum : Integer; VMux : Integer; bufSize :
PLongInt; buf : PByte) :Integer; virtual; stdcall; abstract;
function AdvDVP_SetNewFrameCallback(nDevNum : Integer; callback : Integer )
:Integer; virtual; stdcall; abstract;
function AdvDVP_GetVideoFormat(nDevNum : Integer; vFormat : PAnalogVideoFormat)
:Integer; virtual; stdcall; abstract;
function AdvDVP_SetVideoFormat(nDevNum : Integer; vFormat : TAnalogVideoFormat )
:Integer; virtual; stdcall; abstract;
function AdvDVP_GetFrameRate(nDevNum : Integer; nFrameRate : Integer) :Integer;
virtual; stdcall; abstract;
function AdvDVP_SetFrameRate(nDevNum : Integer; SwitchingChans : Integer;
nFrameRate : Integer) :Integer; virtual; stdcall; abstract;
function AdvDVP_GetResolution(nDevNum : Integer; Size : PVideoSize) :Integer;
virtual; stdcall; abstract;
function AdvDVP_SetResolution(nDevNum : Integer; Size : TVideoSize ) :Integer;
virtual; stdcall; abstract;
function AdvDVP_GetVideoInput(nDevNum : Integer; input : PInteger) :Integer;
virtual; stdcall; abstract;
function AdvDVP_SetVideoInput(nDevNum : Integer; input : Integer) :Integer;
virtual; stdcall; abstract;
function AdvDVP_GetBrightness(nDevNum : Integer; input: Integer; pnValue :
PLongInt) :Integer; virtual; stdcall; abstract;
function AdvDVP_SetBrightness(nDevNum : Integer; input: Integer; nValue :
LongInt) :Integer; virtual; stdcall; abstract;
function AdvDVP_GetContrast(nDevNum : Integer; input: Integer; pnValue :
PLongInt) :Integer; virtual; stdcall; abstract;
function AdvDVP_SetContrast(nDevNum : Integer; input: Integer; nValue :
LongInt) :Integer; virtual; stdcall; abstract;
function AdvDVP_GetHue(nDevNum : Integer; input: Integer; pnValue :
PLongInt):Integer; virtual; stdcall; abstract;
function AdvDVP_SetHue(nDevNum : Integer; input: Integer; nValue :
LongInt):Integer; virtual; stdcall; abstract;
function AdvDVP_GetSaturation(nDevNum : Integer; input: Integer; pnValue :
PLongInt) :Integer; virtual; stdcall; abstract;
function AdvDVP_SetSaturation(nDevNum : Integer; input: Integer; nValue :
LongInt) :Integer; virtual; stdcall; abstract;
function AdvDVP_GPIOGetData(nDevNum : Integer; DINum:Integer; value :
PBool):Integer; virtual; stdcall; abstract;
function AdvDVP_GPIOSetData(nDevNum : Integer; DONum:Integer; value :
Boolean):Integer; virtual; stdcall; abstract;
end;
function IDVP7010BDLL : TIDVP7010BDLL ; stdcall;
implementation
function IDVP7010BDLL; external 'DVP7010B.dll';
end.
社区是否可以帮助我正确转换数据或将我引导至演示如何执行此操作的指南?
答案 0 :(得分:3)
我同意梅森你不应该上课 (至少在你开始构建包装并开始测试时) 这里的第一个目标是调用库函数。
所以试试这样:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
public
procedure DisplayStatus(r:integer);
end;
Function AdvDVP_InitSDK():Integer ; stdcall; external 'DVP7010B.dll';
var
Form1: TForm1;
DVP_DLL_Handle:THandle;
const
SUCCEEDED = 1;
FAILED = 0;
SDKINITFAILED = -1;
PARAMERROR = -2;
NODEVICES = -3;
NOSAMPLE = -4;
DEVICENUMERROR = -5;
INPUTERROR = -6;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var r:integer;
begin
if DVP_DLL_Handle <>0 then begin
r := AdvDVP_InitSDK();
DisplayStatus(r);
end else begin
showmessage('error loading library');
end;
end;
procedure TForm1.DisplayStatus(r: integer);
begin
case r of
SUCCEEDED:showmessage('SUCCEEDED');
FAILED:showmessage('FAILED');
SDKINITFAILED:showmessage('SDKINITFAILED');
PARAMERROR:showmessage('PARAMERROR');
NODEVICES:showmessage('NODEVICES');
NOSAMPLE:showmessage('NOSAMPLE');
DEVICENUMERROR:showmessage('DEVICENUMERROR');
INPUTERROR:showmessage('INPUTERROR');
end;
end;
initialization
DVP_DLL_Handle:=LoadLibrary('DVP7010B.dll');
finalization
if DVP_DLL_Handle <>0 then begin
FreeLibrary(DVP_DLL_Handle);
end;
end.
这是一个不完整的转换,我把所有转换成一个单元......
但是我下载了SDK并尝试了它:它的工作原理:当我按下按钮时,我得到'NODEVICES'。
答案 1 :(得分:1)
嗯,我注意到的第一件事是你正在尝试将C ++类转换为Delphi类。你不能这样做。对象模型非常不同。 Delphi将对对象的布局方式做出某些假设,尤其是对象的VMT布局方式,这些假设仅对Delphi有效,而不是对C ++有效。
您需要的是非面向对象的接口(普通C)或COM对象。
答案 2 :(得分:1)
显然,AdvDVP_CreateSDKInstence执行一些Magic(tm)来创建一个VMT,然后用于调度虚函数调用。
你应该留下c ++头文件并直接编程到DLL,如果你愿意,可以将它们包装在Delphi类中。你可以选择大量的教程,首先尝试this one。它还展示了如何在Delphi中创建枚举,它有一个方便的小工具来从DLL导出的函数创建一个单元。
答案 3 :(得分:0)
unit IDVP7010BDLL_h;
interface
uses
Windows;
const
DVP7010B = 'DVP7010B.dll';
MAXBOARDS = 4;
MAXDEVS = 4;
MAXMUXS = 4;
ID_NEW_FRAME = 37810;
ID_MUX0_NEW_FRAME = 37800;
ID_MUX1_NEW_FRAME = 37801;
ID_MUX2_NEW_FRAME = 37802;
ID_MUX3_NEW_FRAME = 37803;
// TRec
SUCCEEDED = 1;
FAILED = 0;
SDKINITFAILED = -1;
PARAMERROR = -2;
NODEVICES = -3;
NOSAMPLE = -4;
DEVICENUMERROR = -5;
INPUTERROR = -6;
// TRec
// TAnalogVideoFormat
Video_None = $00000000;
Video_NTSC_M = $00000001;
Video_NTSC_M_J = $00000002;
Video_PAL_B = $00000010;
Video_PAL_M = $00000200;
Video_PAL_N = $00000400;
Video_SECAM_B = $00001000;
// TAnalogVideoFormat
// TCapState
STOPPED = 1;
RUNNING = 2;
UNINITIALIZED = -1;
UNKNOWNSTATE = -2;
// TCapState
type
TCapState = Longint;
TRes = Longint;
TtagAnalogVideoFormat = DWORD;
TAnalogVideoFormat = TtagAnalogVideoFormat;
PAnalogVideoFormat = ^TAnalogVideoFormat;
TVideoSize = (SIZEFULLPAL = 0, SIZED1, SIZEVGA, SIZEQVGA, SIZESUBQVGA);
PVideoSize = ^TVideoSize;
P_Pointer = ^Pointer;
//TAdvDVP_CreateSDKInstence = function(var p: PIDVP7010BDLL): Integer of object; stdcall; // not needed in class
TAdvDVP_InitSDK = function(): Integer of object; stdcall;
TAdvDVP_CloseSDK = function(): Integer of object; stdcall;
TAdvDVP_GetNoOfDevices = function(var pNoOfDevs: Integer): Integer of object; stdcall;
TAdvDVP_Start = function(nDevNum: Integer; SwitchingChans: Integer; Main: HWND; hwndPreview: HWND): Integer of object; stdcall;
TAdvDVP_Stop = function(nDevNum: Integer): Integer of object; stdcall;
TAdvDVP_GetCapState = function(nDevNum: Integer): Integer of object; stdcall;
TAdvDVP_IsVideoPresent = function(nDevNum: Integer; var VPresent: Bool): Integer of object; stdcall;
TAdvDVP_GetCurFrameBuffer = function(nDevNum: Integer; VMux: Integer; var bufSize: LongInt; buf: PByte): Integer of object; stdcall;
TAdvDVP_SetNewFrameCallback = function(nDevNum: Integer; callback: Integer): Integer of object; stdcall;
TAdvDVP_GetVideoFormat = function(nDevNum: Integer; var vFormat: TAnalogVideoFormat): Integer of object; stdcall;
TAdvDVP_SetVideoFormat = function(nDevNum: Integer; vFormat: TAnalogVideoFormat): Integer of object; stdcall;
TAdvDVP_GetFrameRate = function(nDevNum: Integer; nFrameRate: Integer): Integer of object; stdcall;
TAdvDVP_SetFrameRate = function(nDevNum: Integer; SwitchingChans: Integer; nFrameRate: Integer): Integer of object; stdcall;
TAdvDVP_GetResolution = function(nDevNum: Integer; var Size: TVideoSize): Integer of object; stdcall;
TAdvDVP_SetResolution = function(nDevNum: Integer; Size: TVideoSize): Integer of object; stdcall;
TAdvDVP_GetVideoInput = function(nDevNum: Integer; var input: Integer): Integer of object; stdcall;
TAdvDVP_SetVideoInput = function(nDevNum: Integer; input: Integer): Integer of object; stdcall;
TAdvDVP_GetBrightness = function(nDevNum: Integer; input: Integer; var pnValue: LongInt) :Integer of object; stdcall;
TAdvDVP_SetBrightness = function(nDevNum: Integer; input: Integer; nValue: LongInt) :Integer of object; stdcall;
TAdvDVP_GetContrast = function(nDevNum: Integer; input: Integer; var pnValue: LongInt) :Integer of object; stdcall;
TAdvDVP_SetContrast = function(nDevNum: Integer; input: Integer; nValue: LongInt) :Integer of object; stdcall;
TAdvDVP_GetHue = function(nDevNum: Integer; input: Integer; var pnValue: LongInt) :Integer of object; stdcall;
TAdvDVP_SetHue = function(nDevNum: Integer; input: Integer; nValue: LongInt) :Integer of object; stdcall;
TAdvDVP_GetSaturation = function(nDevNum: Integer; input: Integer; var pnValue: LongInt) :Integer of object; stdcall;
TAdvDVP_SetSaturation = function(nDevNum: Integer; input: Integer; nValue: LongInt) :Integer of object; stdcall;
TAdvDVP_GPIOGetData = function(nDevNum: Integer; DINum: Integer; var value: Bool): Integer of object; stdcall;
TAdvDVP_GPIOSetData = function(nDevNum: Integer; DONum: Integer; value: Boolean): Integer of object; stdcall;
TIDVP7010BDLL = class
public
//AdvDVP_CreateSDKInstence: TAdvDVP_CreateSDKInstence; // not needed in class
AdvDVP_InitSDK: TAdvDVP_InitSDK;
AdvDVP_CloseSDK: TAdvDVP_CloseSDK;
AdvDVP_GetNoOfDevices: TAdvDVP_GetNoOfDevices;
AdvDVP_Start: TAdvDVP_Start;
AdvDVP_Stop: TAdvDVP_Stop;
AdvDVP_GetCapState: TAdvDVP_GetCapState;
AdvDVP_IsVideoPresent: TAdvDVP_IsVideoPresent;
AdvDVP_GetCurFrameBuffer: TAdvDVP_GetCurFrameBuffer;
AdvDVP_SetNewFrameCallback: TAdvDVP_SetNewFrameCallback;
AdvDVP_GetVideoFormat: TAdvDVP_GetVideoFormat;
AdvDVP_SetVideoFormat: TAdvDVP_SetVideoFormat;
AdvDVP_GetFrameRate: TAdvDVP_GetFrameRate;
AdvDVP_SetFrameRate: TAdvDVP_SetFrameRate;
AdvDVP_GetResolution: TAdvDVP_GetResolution;
AdvDVP_SetResolution: TAdvDVP_SetResolution;
AdvDVP_GetVideoInput: TAdvDVP_GetVideoInput;
AdvDVP_SetVideoInput: TAdvDVP_SetVideoInput;
AdvDVP_GetBrightness: TAdvDVP_GetBrightness;
AdvDVP_SetBrightness: TAdvDVP_SetBrightness;
AdvDVP_GetContrast: TAdvDVP_GetContrast;
AdvDVP_SetContrast: TAdvDVP_SetContrast;
AdvDVP_GetHue: TAdvDVP_GetHue;
AdvDVP_SetHue: TAdvDVP_SetHue;
AdvDVP_GetSaturation: TAdvDVP_GetSaturation;
AdvDVP_SetSaturation: TAdvDVP_SetSaturation;
AdvDVP_GPIOGetData: TAdvDVP_GPIOGetData;
AdvDVP_GPIOSetData: TAdvDVP_GPIOSetData;
constructor Create; // For method 2
end;
PIDVP7010BDLL = ^TIDVP7010BDLL;
PPIDVP7010BDLL = ^PIDVP7010BDLL;
TIAdvDVP_CreateSDKInstence = function(var p: PIDVP7010BDLL): Integer; stdcall;
var
hDVP7010B: THandle;
IAdvDVP_CreateSDKInstence: TIAdvDVP_CreateSDKInstence;
implementation
{ TIDVP7010BDLL }
constructor TIDVP7010BDLL.Create;
begin
if hDVP7010B <> 0 then
begin
//@IAdvDVP_CreateSDKInstence := GetProcAddress(hDVP7010B, 'AdvDVP_CreateSDKInstence'); // not needed
@AdvDVP_InitSDK := GetProcAddress(hDVP7010B, 'AdvDVP_InitSDK');
@AdvDVP_CloseSDK := GetProcAddress(hDVP7010B, 'AdvDVP_CloseSDK');
@AdvDVP_GetNoOfDevices := GetProcAddress(hDVP7010B, 'AdvDVP_GetNoOfDevices');
@AdvDVP_Start := GetProcAddress(hDVP7010B, 'AdvDVP_Start');
@AdvDVP_Stop := GetProcAddress(hDVP7010B, 'AdvDVP_Stop');
@AdvDVP_GetCapState := GetProcAddress(hDVP7010B, 'AdvDVP_GetCapState');
@AdvDVP_IsVideoPresent := GetProcAddress(hDVP7010B, 'AdvDVP_IsVideoPresent');
@AdvDVP_GetCurFrameBuffer := GetProcAddress(hDVP7010B, 'AdvDVP_GetCurFrameBuffer');
@AdvDVP_SetNewFrameCallback := GetProcAddress(hDVP7010B, 'AdvDVP_SetNewFrameCallback');
@AdvDVP_GetVideoFormat := GetProcAddress(hDVP7010B, 'AdvDVP_GetVideoFormat');
@AdvDVP_SetVideoFormat := GetProcAddress(hDVP7010B, 'AdvDVP_SetVideoFormat');
@AdvDVP_GetFrameRate := GetProcAddress(hDVP7010B, 'AdvDVP_GetFrameRate');
@AdvDVP_SetFrameRate := GetProcAddress(hDVP7010B, 'AdvDVP_SetFrameRate');
@AdvDVP_GetResolution := GetProcAddress(hDVP7010B, 'AdvDVP_GetResolution');
@AdvDVP_SetResolution := GetProcAddress(hDVP7010B, 'AdvDVP_SetResolution');
@AdvDVP_GetVideoInput := GetProcAddress(hDVP7010B, 'AdvDVP_GetVideoInput');
@AdvDVP_SetVideoInput := GetProcAddress(hDVP7010B, 'AdvDVP_SetVideoInput');
@AdvDVP_GetBrightness := GetProcAddress(hDVP7010B, 'AdvDVP_GetBrightness');
@AdvDVP_SetBrightness := GetProcAddress(hDVP7010B, 'AdvDVP_SetBrightness');
@AdvDVP_GetContrast := GetProcAddress(hDVP7010B, 'AdvDVP_GetContrast');
@AdvDVP_SetContrast := GetProcAddress(hDVP7010B, 'AdvDVP_SetContrast');
@AdvDVP_GetHue := GetProcAddress(hDVP7010B, 'AdvDVP_GetHue');
@AdvDVP_SetHue := GetProcAddress(hDVP7010B, 'AdvDVP_SetHue');
@AdvDVP_GetSaturation := GetProcAddress(hDVP7010B, 'AdvDVP_GetSaturation');
@AdvDVP_SetSaturation := GetProcAddress(hDVP7010B, 'AdvDVP_SetSaturation');
@AdvDVP_GPIOGetData := GetProcAddress(hDVP7010B, 'AdvDVP_GPIOGetData');
@AdvDVP_GPIOSetData := GetProcAddress(hDVP7010B, 'AdvDVP_GPIOSetData');
end
else
MessageBox(0, 'DVP7010B.dll not found!', 'Error', MB_ICONERROR);
end;
initialization
hDVP7010B := LoadLibrary(DVP7010B);
// For method 1
if hDVP7010B <> 0 then
begin
@IAdvDVP_CreateSDKInstence := GetProcAddress(hDVP7010B, 'AdvDVP_CreateSDKInstence');
if @IAdvDVP_CreateSDKInstence = nil then
MessageBox(0, 'AdvDVP_CreateSDKInstence not found in DVP7010B.dll', 'Error', MB_ICONERROR);
end
else
MessageBox(0, 'DVP7010B.dll not found!', 'Error', MB_ICONERROR);
finalization
FreeLibrary(hDVP7010B);
end.
测试代码:
procedure TForm8.Button1Click(Sender: TObject);
var
pDVPSDK: PIDVP7010BDLL;
res: Integer;
begin
// Method 1
pDVPSDK := nil;
res := IAdvDVP_CreateSDKInstence(pDVPSDK);
if not (res = SUCCEEDED) then
begin
Application.MessageBox('AdvDVP_CreateSDKInstence error!', 'Error', MB_ICONERROR);
end
else
begin
Application.MessageBox('AdvDVP_CreateSDKInstence will not work for this!!!', 'Error', MB_ICONERROR);
end;
end;
为什么它不适用于Delphi: 一个空的Delphi 2009类有8个字节(更多信息见http://blogs.teamb.com/craigstuntz/2009/03/25/38138/),所以AdvDVP_InitSDK&amp; AdvDVP_CloseSDK偏移被吃掉并且其他函数出错并且我猜它也会破坏类本身。
调试时查看局部变量:
来自IDA:
.text: 10001253 public AdvDVP_GetNoOfDevices
AdvDVP_InitSDK指向TAdvDVP_GetNoOfDevices !!!
如果你自己有一张卡,请试试这个:
procedure TForm8.Button2Click(Sender: TObject);
var
DVPSDK: TIDVP7010BDLL;
res: Integer;
nDevCount: Integer;
i: Integer;
begin
// Method 2
DVPSDK := TIDVP7010BDLL.Create;
try
res := DVPSDK.AdvDVP_InitSDK;
if res = SUCCEEDED then
begin
if not (DVPSDK.AdvDVP_GetNoOfDevices(nDevCount) = SUCCEEDED) then
Exit;
if (nDevCount > MAXBOARDS*MAXDEVS) then
Exit;
for i := 0 to nDevCount - 1 do
begin
m_DevNum.Items.Add(Format('Device_%d', [i])); // TComboBox
end;
end
else
begin
case res of
FAILED: Application.MessageBox('SDK function failed!', 'Error', MB_ICONERROR);
SDKINITFAILED: Application.MessageBox('SDK initiation failed!', 'Error', MB_ICONERROR);
PARAMERROR: Application.MessageBox('Number of the devices out of the range!', 'Error', MB_ICONERROR);
NODEVICES: Application.MessageBox('No device be found!', 'Error', MB_ICONERROR);
end;
end;
finally
DVPSDK.Free;
end;
end;
我不知道事件是否需要除stdcall之外的其他调用转换,但您可以尝试使用cdecl和其他人,具体取决于您从函数中获得的数据。
祝你好运。