unit7.pas

学校短信息系统 采用华域科技的SzgmtSms 通讯模块

unit Unit7;

interface
function OpenCom(x:Integer):Integer; stdcall;
function SendSms(comIndex:integer;pMobileNum:pointer;pMsg:pointer;len:integer):Integer; stdcall;
procedure ReadSms(comIndex:integer;pMobileNum:pointer;pBuf:pointer;len:pointer;timeOut:integer); stdcall;
function CloseCom(x:Integer):Integer; stdcall;
procedure StartLog(comIndex:integer; flag:integer = 1); stdcall;
function GetCurExistSmsNums(x:integer):integer;stdcall;
implementation
function OpenCom;external 'SzgmtSms.dll' name 'OpenCom';
function SendSms;external 'SzgmtSms.dll' name 'SendSms';
procedure ReadSms;external 'SzgmtSms.dll' name 'ReadSms';
function CloseCom;external 'SzgmtSms.dll' name 'CloseCom';
procedure StartLog;external 'SzgmtSms.dll' name 'StartLog';
function GetCurExistSmsNums;external 'SzgmtSms.dll' name 'GetCurExistSmsNums';
end.