cmphoenix.pas

来自「Usb CardMaster Phoenix SDK」· PAS 代码 · 共 25 行

unit CMPhoenix;

interface

function Connect: Cardinal; cdecl; External 'PhoenixUSB.dll';
procedure Disconnect; cdecl; External 'PhoenixUSB.dll';
procedure SetProtocol(p: Integer); cdecl; External 'PhoenixUSB.dll';
procedure greenOn; cdecl; External 'PhoenixUSB.dll';
procedure greenOff; cdecl; External 'PhoenixUSB.dll';
procedure redOn; cdecl; External 'PhoenixUSB.dll';
procedure redOff; cdecl; External 'PhoenixUSB.dll';
procedure setBaudRate(br: Integer); cdecl; External 'PhoenixUSB.dll';
procedure transmit(data: pchar; len: integer); cdecl; External 'PhoenixUSB.dll';
function receive(buff: pchar; len: integer): Integer; cdecl; External 'PhoenixUSB.dll';
procedure reset; cdecl; External 'PhoenixUSB.dll';

const
  br9600 = 0;
  br9895 = 1;


implementation

end.