dll调用
function hi_32 hi_sdk_Init():THandle;stdcall;external'HISDK.dll';
错误是 Function needs result type
hi_32 hi_sdk_Init()是初始化函数
result values HI_success表示成功 HI_failure表示失败
要怎么写这个返回值
谢谢
[解决办法]
试试这样:
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
GroupBox1: TGroupBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function hi_sdk_Init(var husb: THandle): Integer; stdcall; external'HISDK.dll'; //<--注意这里,添加一个var标识
var
Form1: TForm1;
sdk_Init:THandle;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
hi_sdk_Init(sdk_Init); //<--注意这里,这样调用
end;
end.