大神帮忙将C的dll函数接口转delphi

2018-05-22 12:57:38 729 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi 调用C/C++的DLL VC中DLL声名格式： Extern “C” void __declspec(dllexport) __stdcall ShowMess(HWND hwnd, char* mess); 输出格式为：_ShowMess@8，“8”为函数参数字节数为了避免名称分裂，可采用以下方法解决： 1.声明中不加__stdcall，采用VC默认格式__cdecl，但在Del 阅读详情

数据结构
struct GetScanDataResult
{
int errorCode;
char message[128];
char data[256];
char reserved[512 - 388];
};

接口定义
int __stdcall GetScanData(GetScanDataResult* result);

接口获取方法
typedef int (__stdcall *GetScanDataFunc_t)(GetScanDataResult*);

// 获取接口指针示例：
// HINSTANCE hDllInst = LoadLibraryA("WangShouYinDll.dll");
// GetScanDataFunc_t getScanDataFunc = (GetScanDataFunc_t)GetProcAddress(hDllInst, "GetScanData");

-----------------------------------------------------------------------------------------------------
我的delphi代码
unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

type
PGetScanDataResult = ^GetScanDataResult;

GetScanDataResult = record
errorCode: integer;
message: array [1 .. 128] of Char;
data: array [1 .. 256] of Char;
reserved: array [1 .. 124] of Char;
end;

function GetScanData(result: PGetScanDataResult): integer; stdcall; external 'WangShouYinDll.dll';

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

type
PVFN = Function(result: PGetScanDataResult): integer;
var
fn: PVFN;
hDllInst: Thandle;
Tp: TFarProc;
gsdr: PGetScanDataResult;
begin
try
new(gsdr);
hDllInst := LoadLibrary('WangShouYinDll.dll');
Tp := GetProcAddress(hDllInst, 'GetScanData');
fn := PVFN(Tp);
fn(gsdr);
FreeLibrary(hDllInst);
except
on E: Exception do
end;
end;

end.

调用没问题，但一直报地址错误。感谢哪位大神帮帮忙。

...全文