smsiou~1.~pas

来自「通过串口发送多条短信的群发软件」· ~PAS 代码 · 共 30 行

unit SMSIOUnit;

interface
  uses Classes;

  function OpenComm(CommIndex: LongInt): LongInt; stdcall;
  function CloseComm(CommIndex: LongInt): LongInt; stdcall;
  function SendMsg(CommIndex: LongInt; msg,mobileNo: Pchar;Msg_Index:LongInt;chinese:boolean): LongInt; stdcall;
  function GetNewMsg(CommIndex: LongInt; NewMsg:Pchar): boolean; stdcall;
  function GetUnSendCount(CommIndex:LongInt):LongInt;stdcall;
  function GetSCA(CommIndex:LongInt;SCA:Pchar):Boolean;stdcall;
  function SetSCA(CommIndex:LongInt;SCA:Pchar):Boolean;stdcall;
  function ForceCloseComm(CommIndex:LongInt):LongInt;stdcall;
  function GetFailedMsg(CommIndex:LongInt;Msg:Pchar):Boolean;stdcall;
  function GetNextSendMsg(CommIndex:LongInt;Msg:Pchar;DeleteAfterRead:Boolean):Boolean;stdcall;

implementation

  function OpenComm; external 'AscendSMS.dll';
  function CloseComm; external 'AscendSMS.dll';
  function SendMsg; external 'AscendSMS.dll';
  function GetNewMsg;external 'AscendSMS.dll';
  function GetUnSendCount;external 'AscendSMS.dll';
  function GetSCA;external 'AscendSMS.dll';
  function SetSCA;external 'AscendSMS.dll';
  function ForceCloseComm;external 'AscendSMS.dll';
  function GetFailedMsg;external 'AscendSMS.dll';
  function GetNextSendMsg;external 'AscendSMS.dll';
end.