Q
qrfjw
Unregistered / Unconfirmed
GUEST, unregistred user!
一个读卡程序，动态连接库a.dll提供初始化函数csh(pchar)int;交易函数busi(input string;output pchar) int;
实例如下：
var pvalue
char;
str : string;
begin
pvalue := stralloc(1024);
if csh(pvalue) = -1 then begin
showmessage('初始化失败');
exit;
end;
str := '字符串';
if busi(str,pvalue) = -1 then begin
showmessage('读卡失败');
end
else begin
showmessage('读卡成功');
end;
dispose(pvalue);
end;
读卡失败（密码错误类、网络不通）退出程序不报错，读卡成功退出程序报错，报错在
begin
...........
application.run;
end.(到这里报错)
实例如下：
var pvalue
char;str : string;
begin
pvalue := stralloc(1024);
if csh(pvalue) = -1 then begin
showmessage('初始化失败');
exit;
end;
str := '字符串';
if busi(str,pvalue) = -1 then begin
showmessage('读卡失败');
end
else begin
showmessage('读卡成功');
end;
dispose(pvalue);
end;
读卡失败（密码错误类、网络不通）退出程序不报错，读卡成功退出程序报错，报错在
begin
...........
application.run;
end.(到这里报错)