unitcalldll.pas

关于手持机的LCD显示模块的设计LCD的显示固定为每行16个字符

// 调用DLL的声明
unit UnitCallDll;

interface

var
  SetComPortStateBool:boolean;   // 端口状态
  BaudRateValueIndex:smallint;   // 波特率
  ReturnDataStrFromCard:pchar;   // 读取数据字符串
  ReturnReadDataState:smallint;  // 操作状态
const
   OperateState:array[0..2] of string =('操作成功','返回错误值','接收到非法数据');    // 定义函数返回值的含义
  

 //串口函数
 // 打开串口
  function Com_Open(ComPortSet_PortString:string;RegComPortSet_BaudRate:smallint):boolean;stdcall;external 'MF500_HY60.dll'
  // 关闭串口
  function Com_Close:smallint;stdcall;external 'MF500_HY60.dll';

 // 系统操作函数
  // 读取设备型号
  function Device_PartNumber( out PartNumber:pchar):smallint;stdcall;external 'MF500_HY60.dll';
  // 读设备固件版本号
  function  HardWare_Version(out HDver:pchar):smallint;stdcall;external 'MF500_HY60.dll';
  // 控制天线的开关
  function Antenna_Control(switch:smallint):smallint;stdcall;external 'MF500_HY60.dll';
  // 卡休眠
  function RF_M1_Halt():smallint;stdcall;external 'MF500_HY60.dll';
  // 设置自动寻卡
  function AutoSearch_Card(switch:smallint):smallint;stdcall;external 'MF500_HY60.dll';
  // 设置蜂鸣器
  function Beep_Shuffle(switch:smallint):smallint;stdcall;external 'MF500_HY60.dll';
  // 设置LED开关         add -------------- 2006-06-23
  function LED_Shuffle(switch:smallint):smallint;stdcall;external 'MF500_HY60.dll';

  // 卡操作函数
  // 读取卡类型
  function RF_M1_CardType( out CardType:pchar):smallint;stdcall;external 'MF500_HY60.dll';
   // 读取卡序列号
  function RF_M1_SerialNo( out  CardSN:pchar):smallint;stdcall;external 'MF500_HY60.dll';
   // 下载密码到设备
  function RF_M1_PassLoad(KeyType:string;Block:smallint;Key:string):smallint;stdcall;external 'MF500_HY60.dll';
   // 读取设备EEPROM密码和卡密码进行校验
  function RF_M1_VerifyPassword(KeyType:string;Block:smallint):smallint;stdcall;external 'MF500_HY60.dll';
   // 修改卡的密码
  function RF_M1_ChangePassword(Block:smallint;PasswordA,ControlPassword,PasswordB:string):smallint;stdcall;external 'MF500_HY60.dll';
   // 初始化钱包
  function RF_M1_Purse_Init(Block:smallint;InitValue:single):smallint;stdcall;external 'MF500_HY60.dll';
   // 钱包充值
  function RF_RF_M1_Purse_Increment(Block:smallint;IncValue:single):smallint;stdcall;external 'MF500_HY60.dll';
   // 钱包扣款
  function RF_M1_Purse_Decrement(Block:smallint;DecValue:single):smallint;stdcall;external 'MF500_HY60.dll';
   // 读取钱包
  function RF_M1_Purse_Read(Block:smallint; out  ReadValue:pchar):smallint;stdcall;external 'MF500_HY60.dll';
   // 读扇区的块
  function RF_M1_Block_Read(Block:smallint; out  ReadBlock:pchar):smallint;stdcall;external 'MF500_HY60.dll';
   // 往扇区的块写数据
  function RF_M1_Block_Write(Block:smallint;WriteBlockHex:string):smallint;stdcall;external 'MF500_HY60.dll';

   // LED显示函数
   // LED显示数据
  function LED_Display(Digital_str:string):smallint;stdcall;external 'MF500_HY60.dll';

   // LED复位
  function LED_Reset:smallint;stdcall;external 'MF500_HY60.dll';

  // LCD显示函数
  // LCD复位
  function LCD_Reset:smallint;stdcall;external 'MF500_HY60.dll';
  // LCD显示数据
  function LCD_String_Display(X,Y,LCDShowHexStr:string):smallint;stdcall;external 'MF500_HY60.dll';


implementation

end.