delphi加载c语言dll文件,C语言dll 调用的问题!

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

****************************c语言 API调用说明*****************************************

//连接读写器

//参数：port->串口号，例："com1"

// baud->波特率，读卡器上电为38400

// addr->读卡器地址，这个数值由程序员指定，相当于给读卡器一个身份标识，范围0~9，

// 缺省为0，如果你的程序只操作一个读写器，建议采用缺省值；

//返回：成功true，失败返回false

DECLDIR BOOL gOpenReader(char *port, DWORD baud, int addr=0);

**************************************************************************************

下面是我写的调用程序.

unit LFReader;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

openreader1: TButton;

Buttonclosereader: TButton;

lbl1: TLabel;

lbl2: TLabel;

Button1: TButton;

Button2: TButton;

procedure openreader1Click(Sender: TObject);

procedure ButtonclosereaderClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

function gOpenReader(port: pChar; baud: LongInt; addr: Integer): Boolean; stdcall external 'LFReaderAPI.dll'; // Added by GongJun 2016-05-27 20:50:50连接读卡器端口

function gCloseReader(addr: Integer): Boolean; stdcall external 'LFReaderAPI.dll'; //关闭读卡器端口

function gSetLED(color:Byte;addr:Integer):Integer ; stdcall external 'LFReaderAPI.dll'; //设置读卡器LED灯颜色

implementation

{$R *.dfm}

procedure TForm1.openreader1Click(Sender: TObject);

var

st: Boolean;

port: PChar;

begin

port := PChar('com3');

st := gOpenReader(port, 38400, 0);

if st = True then

begin

lbl1.Caption:='连接成功'

end

else

begin

lbl1.Caption:='连接失败';

end;

end.

调用的时候会报错.

大神们帮忙看看 是哪里出了问题呢??