u_typedef.~pas

用于在串口上开发手机短信的工具包

unit U_typedef;

interface

const
  dllpath = 'SMSCom.dll';

type
  SM_PARAM = record
    SCA : array[0..15] of char;
    TPA : array[0..15] of char;
    TP_PID : char;
    TP_DCS : char;
    TP_SCTS : array[0..15] of char;
    TP_UD : array[0..160] of char;
    index : char;
  end;

  SM_RCV_STRU = record
    iSmsTotal : integer;
    SMS : array[0..49] of SM_PARAM;
  end;
  pSM_RCV_STRU = ^SM_RCV_STRU;

  STRUCommInfo = record
    iBaudRate : integer;
    szSCA : array[0..15] of char;
  end;
  pSTRUCommInfo = ^STRUCommInfo;

  HANDLE = thandle;

  procedure GetVerInfo(szRetVer:string);stdcall;external dllpath;
  function iSetSerialNo(szCrop,szInputSN:string):integer;stdcall;external dllpath;
  function hOpenComm(szPort:string):HANDLE;stdcall;external dllpath;
  function bCloseComm(hComm:HANDLE):boolean;stdcall;external dllpath;
  function bAutoInit(hComm:HANDLE;CommInfo:pSTRUCommInfo;szErrInfo:string):boolean;stdcall;external dllpath;
  function bSendMsg(hComm:HANDLE;szMsg:string;szPhNbr:pchar;szSCA:string;szNextMsg:string;szErrInfo:array of char):boolean;stdcall;external dllpath;
//  function bSendMsg(hComm:HANDLE;szMsg:string;szPhNbr:string;szSCA:string;szNextMsg:string;szErrInfo:array of char):boolean;stdcall;external dllpath;
  function iRecvMsg(hComm:HANDLE;RcvSMS:pSM_RCV_STRU;szErrInfo:string):integer;stdcall;external dllpath;


implementation

end.