readcarddef.pas

来自「光电卡」· PAS 代码 · 共 22 行

unit ReadCardDef;

interface

uses Windows,CardDef;

procedure ReadSingle(Handle: HWND;
  var CardNo: PChar; var CardType: smallint; var Balance:Real); stdcall;

procedure WriteCardBalance;StdCall;//回写射频卡帐户余额

function StartNet (Com :integer):Boolean;StdCall;External 'ReadCardPro.dll' Name 'StartNet';

implementation

procedure ReadSingle; External 'ReadCardPro.dll' Name 'ReadSingle';

procedure WriteCardBalance; External 'ReadCardPro.dll' Name 'WriteCardBalance';


end.