sp_dlls.pas

SPServer.rar一个基于TCP/IP监听发送代码

unit SP_DLLs;

interface

uses
  Windows, Classes, SysUtils;

function CheckPhone(Len:Integer;CheckValue:string):Boolean;stdcall;external 'SMSys_dll.dll';
function ResultDataLayout(pSrcNo,pChargeNo,pSvcType,pContent,pSPNumber:string):string;stdcall;external 'SMSys_dll.dll';
function ResultDataFmt(Value:TStringList;Falg:Integer):string;stdcall;external 'SMSys_dll.dll';
function GetHostPort:Integer;stdcall;external 'SMSys_dll.dll';
function GetREC_UPT:Integer;stdcall;external 'SMSys_dll.dll';
function GetSND_UPT:Integer;stdcall;external 'SMSys_dll.dll';
function GetSeurity:Boolean;stdcall;external 'SMSys_dll.dll';
function GetWarning:Boolean;stdcall;external 'SMSys_dll.dll';
function GetMangPhone:string;stdcall;external 'SMSys_dll.dll';
function GetAnswerTime:Integer;stdcall;external 'SMSys_dll.dll';
function GetInterval:Integer;stdcall;external 'SMSys_dll.dll';
function GetExpireTime:Integer;stdcall;external 'SMSys_dll.dll';
function GetSenAnswTime:Integer;stdcall;external 'SMSys_dll.dll';
function GetCurLogChk:Boolean;stdcall;external 'SMSys_dll.dll';
function ReadCXRecord:LongInt;stdcall;external 'SMSys_dll.dll';
function ReadSNDRecord:LongInt;stdcall;external 'SMSys_dll.dll';
function GetCharge:Integer;stdcall;external 'SMSys_dll.dll';
function Get_Time:string;stdcall;external 'SMSys_dll.dll';
function GetSvcTypeTran:string;stdcall;external 'SMSys_dll.dll';
function GetSPSvcType:string;stdcall;external 'SMSys_dll.dll';
function GetReSend:Boolean;stdcall;external 'SMSys_dll.dll';
function GetSendTry:Integer;stdcall;external 'SMSys_dll.dll';
function GetProgBar(n:Integer):Real;stdcall;external 'SMSys_dll.dll';
function GetLocalIP(var pIPAddress:string):Boolean;stdcall;external 'SMSys_dll.dll';
function GetFeeDate:Integer;stdcall;external 'SMSys_dll.dll';
function GetFeeTime:string;stdcall;external 'SMSys_dll.dll';
function GetSPNumber:string;stdcall;external 'SMSys_dll.dll';
function GetTimeCycle:Integer;stdcall;external 'SMSys_dll.dll';
procedure SetHostPort(Value:Integer);stdcall;external 'SMSys_dll.dll';
procedure SetREC_UPT(Value:Integer);stdcall;external 'SMSys_dll.dll';
procedure SetSND_UPT(Value:Integer);stdcall;external 'SMSys_dll.dll';
procedure SetSeurity(Value:Boolean);stdcall;external 'SMSys_dll.dll';
procedure SetWarning(Value:Boolean);stdcall;external 'SMSys_dll.dll';
procedure SetMangPhone(Value:string);stdcall;external 'SMSys_dll.dll';
procedure SetAnswerTime(Value:Integer);stdcall;external 'SMSys_dll.dll';
procedure SetInterval(Value:Integer);stdcall;external 'SMSys_dll.dll';
procedure SetExpireTime(Value:Integer);stdcall;external 'SMSys_dll.dll';
procedure SetSenAnswTime(Value:Integer);stdcall;external 'SMSys_dll.dll';
procedure SetCurLogChk(Value:Boolean);stdcall;external 'SMSys_dll.dll';
procedure WriteCXRecord(Value:LongInt);stdcall;external 'SMSys_dll.dll';
procedure WriteSNDRecord(Value:LongInt);stdcall;external 'SMSys_dll.dll';
procedure SetCharge(Value:Integer);stdcall;external 'SMSys_dll.dll';
procedure SetTime(Value:string);stdcall;external 'SMSys_dll.dll';
procedure SetSvcTypeTran(Value:string);stdcall;external 'SMSys_dll.dll';
procedure SetSPSvcType(Value:string);stdcall;external 'SMSys_dll.dll';
procedure SetReSend(Value:Boolean);stdcall;external 'SMSys_dll.dll';
procedure SetSendTry(Value:Integer);stdcall;external 'SMSys_dll.dll';
procedure SetFeeDate(Value:Integer);stdcall;external 'SMSys_dll.dll';
procedure SetFeeTime(Value:string);stdcall;external 'SMSys_dll.dll';
procedure SetSPNumber(Value:string);stdcall;external 'SMSys_dll.dll';
procedure SetTimeCycle(Value:Integer);stdcall;external 'SMSys_dll.dll';

implementation

end.