1、首先在实现部分申明: Function GetDataNum(port:longint;jh:longint):longint;stdcall;external 'rfkq.dll' name test{'_GetDataNum@8'};//取得当前IC卡机中记录条数;2、接下来在程序中调用: procedure TForm1.Button1Click(Sender: TObject); var n:integer; begin n:=GetDataNum(1,1); showmessage(inttostr(n)); end;3、注意,如果你没有DLL的输出接口,做不了;调用的时候,NAME后面的那个字符串很重要,是DLL输出方法的别名;
刷卡机给了一个dll文件,怎样调用呀?
直接调用它给的Dll即可。
[email protected]
Function GetDataNum(port:longint;jh:longint):longint;stdcall;external 'rfkq.dll' name test{'_GetDataNum@8'};//取得当前IC卡机中记录条数;2、接下来在程序中调用:
procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
begin
n:=GetDataNum(1,1);
showmessage(inttostr(n));
end;3、注意,如果你没有DLL的输出接口,做不了;调用的时候,NAME后面的那个字符串很重要,是DLL输出方法的别名;
俄罗斯大骗子
书: delphi串口编程 分?