在Delphi中正确调用外部dll？

Question

我几乎不了解Delphi的基础知识（事实上，我已经使用了几年了）...

我碰到了DLL的墙（从来没有真正玩过这个）。

考虑以下示例：

   unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

Type FT_Result = Integer;

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


var
  Form1: TForm1;
  FT_HANDLE : DWord = 0;



implementation

{$R *.dfm}

function I2C_GetNumChannels(numChannels: dword):FT_Result; stdcall; external 'libmpsse.dll' name 'I2C_GetNumChannels';
function I2C_OpenChannel(index:dword;handle:pointer):FT_Result; stdcall; external 'libmpsse.dll' name 'I2C_OpenChannel';

procedure TForm1.Button1Click(Sender: TObject);
var
numofchannels:dword;
begin
i2c_getnumchannels(numofchannels);
showmessage(inttostr(numofchannels));
end;

end.

我需要从FTDI接口libmpsse.dll来访问USB端口上的I2C设备。
当我调用函数I2C_GetNumChannels时，我得到了大量的AccessViolation ...

我只想知道dll函数出了什么问题？

另外I2C_GetNumChannels应该返回2个值...

从此处的官方API指南-> http://www.ftdichip.com/Support/Documents/AppNotes/AN_177_User_Guide_For_LibMPSSE-I2C.pdf

非常感谢你！

问候

Answer 1

您的翻译不正确。 它应该是：

function I2C_GetNumChannels(out numChannels: Longword): FT_Result;
  stdcall; external 'libmpsse.dll';

您正在调用的函数接受32位无符号整数的地址。 您的翻译按值传递了一个32位无符号整数。

您可以使用指针来翻译导入，但是像我所做的那样，调用者可以使用var或out参数更轻松地完成导入。

我假设您已正确确定调用约定为stdcall 。 您需要检查头文件才能确定。

您应该检查从函数调用返回的值是否有错误。 这是人们在调用外部库时犯的最常见的单个错误。 不要忽略返回值。 检查错误。