Delphi преобразование заголовка C ++ для видеокарты DVP7010B DLL? - PullRequest
Новая
       15

Delphi преобразование заголовка C ++ для видеокарты DVP7010B DLL?

4 голосов
/ 02 апреля 2010

Мне нужна помощь с преобразованием заголовочного файла C ++ в Delphi.

Ниже приведен оригинальный заголовочный файл и мой перевод на Delphi.

C ++ header: 

#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.

Может ли сообщество помочь мне в правильном преобразовании моих данных или направить меня к руководству, которое демонстрирует, как это сделать?

Ответы [ 4 ]

3 голосов
/ 02 апреля 2010

Я согласен с Мейсоном, ты не должен использовать класс (по крайней мере, в начале, когда вы создаете оболочку и тестируете ее)
первая цель здесь - заставить работать функции библиотеки.

так попробуйте вот так: 

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 голос
/ 02 апреля 2010

Очевидно, что AdvDVP_CreateSDKInstence использует магию (tm) для создания VMT, который затем используется для отправки вызовов виртуальных функций.

Вы должны оставить заголовочный файл c ++ и программировать непосредственно в DLL, обернув их, если хотите, в класс Delphi. Есть множество учебников, из которых вы можете выбрать, для начала попробуйте этот . В нем также показано, как создавать перечисления в Delphi, и имеется небольшой удобный инструмент для создания модуля из функций, экспортируемых DLL.

1 голос
/ 02 апреля 2010

Ну, первое, что я заметил, это то, что вы пытаетесь преобразовать класс C ++ в класс Delphi. Вы не можете сделать это. Объектные модели очень разные. Delphi собирается сделать определенные предположения о том, как устроен объект, и особенно о том, как устроен VMT объекта, которые действительны только для Delphi, но не для C ++.

Вам нужен либо необъектно-ориентированный интерфейс (обычный C), либо COM-объект.

0 голосов
/ 03 апреля 2010 
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 и AdvDVP_CloseSDK сгорает и вызывает ошибки в остальных функциях, и я полагаю, что оно также содержит ошибку самого класса.

Посмотрите на локальные переменные при отладке:

  • pDVPSDK $ 1C71100
  • + AdvDVP_InitSDK ( 10001253 , 1000123A)
  • + AdvDVP_CloseSDK (1000101E, 10001285)
  • + AdvDVP_GetNoOfDevices ($ 100011D1, $ 1000112C)
  • + ....

А из МАР:

.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 и другие в зависимости от того, какие данные вы получаете от функций.

Удачи.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Похожие темы

...