代码如下:
//写卡操作
function WriteCard(setting : pchar; mData : pchar;Track : Integer) : Integer;Stdcall;
far;external 'SL300Key.dll' name 'WriteCard';
procedure TForm1.Button1Click(Sender: TObject);
var
a,b : pchar;
mReturn : Integer;
begin
a := '1,9600,N,8,1';
b := '002200000';
mReturn :=WriteCard(a,b,2);
case mReturn of
...
end;
end;
end.
程序在 mReturn :=WriteCard(a,b,2);出现问题,系统CPU被占用到90%以上,等很久都没有响应,按下ESC之后自动退出.读写卡均没有成功.
注:
SL300Key.dll是硬件提供商用VC所写的一个动太库.就WriteCard的方法定义如下:
INT WriteCard(CHAR *SET,CHAR *WDATA,INT TRACK)
