2 lufang xy73 lufang_xy73 于 2016.03.26 14:21 提问

求教个delphi调用DLL的函数说明怎么写

函数名 ZtDevice_CR_ReadTrack3
出口参数 byTrackDataThree BYTE * 3
出口参数 nDataThreeLen INT *

入口参数 nTimeOut INT
返回值 short

我的声明
unction ZtDevice_CR_ReadTrack2(out byTrackDataTwo:pBYTE; out nDataTwoLen:Integer;nTimeOut:integer):integer;stdcall;external 'CardReader.dll';

调用方法
procedure TForm3.Button1Click(Sender: TObject);
var
dddd:pbyte;
cccc:integer;
ip:Integer;
begin
cccc:=ZtDevice_CR_Open(1,9600);
if cccc=1 then
begin
ip:=50;
GetMem(dddd,50);
ZtDevice_CR_ReadTrack2(dddd,ip,6);
end;

    为啥一调用ZtDevice_CR_ReadTrack2就报内存错误?

3个回答

caozhy
caozhy   Ds   Rxr 2016.03.26 22:18

ip不对,你函数中应该传ip的指针,而不是ip的值,否则函数往50这个地址上一写,肯定就错了。

lufang_xy73
lufang_xy73   2016.03.28 09:15

function ZtDevice_CR_ReadTrack2(out byTrackDataTwo:pBYTE; out nDataTwoLen:pInteger;nTimeOut:integer):integer;stdcall;external 'CardReader.dll';

调用方法
procedure TForm3.Button1Click(Sender: TObject);
var
dddd:pbyte;
cccc:integer;
ip:pInteger;
begin
cccc:=ZtDevice_CR_Open(1,9600);
if cccc=1 then
begin
ip^:=50;
GetMem(dddd,50);
ZtDevice_CR_ReadTrack2(dddd,ip,6);
end;

也不行啊
应该怎么写啊,求指导

CSDNXIAOD
CSDNXIAOD   2016.03.30 11:25

Delphi如何调用C++写的DLL
----------------------biu~biu~biu~~~在下问答机器人小D,这是我依靠自己的聪明才智给出的答案,如果不正确,你来咬我啊!

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!