smg_dll.~pas

SPIG1.1.rar SPIG接口协议

unit SMG_DLL;

interface

uses
  Windows, Forms, SysUtils, Classes, Registry, Math, Gauges,  ComCtrls,
  SP_SMG_DLL;

 procedure WriteLog(FileName:string;Context:string);stdcall;external 'Sys32DLL.Dll';
 function GetLocatIPAddr:string;stdcall;external 'Sys32DLL.Dll';
 function GetRemoteIPAddr:string;stdcall;external 'Sys32DLL.Dll';
 procedure SetLocatIPAddr(Value:string);stdcall;external 'Sys32DLL.Dll';
 procedure SetRemoteIPAddr(Value:string);stdcall;external 'Sys32DLL.Dll';
 function GetLocatHostPort:Integer;stdcall;external 'Sys32DLL.Dll';
 function GetRemoteHostPort:Integer;stdcall;external 'Sys32DLL.Dll';
 procedure SetLocatHostPort(Value:Integer);stdcall;external 'Sys32DLL.Dll';
 procedure SetRemoteHostPort(Value:Integer);stdcall;external 'Sys32DLL.Dll';
 function GetCurLogChk:Boolean;stdcall;external 'Sys32DLL.Dll';
 procedure SetCurLogChk(Value:Boolean);stdcall;external 'Sys32DLL.Dll';
 function GetUserName:string;stdcall;external 'Sys32DLL.Dll';
 procedure SetUserName(Value:string);stdcall;external 'Sys32DLL.Dll';
 function GetPassWord:string;stdcall;external 'Sys32DLL.Dll';
 procedure SetPassWord(Value:string);stdcall;external 'Sys32DLL.Dll';
 function GetSPNumber:string;stdcall;external 'Sys32DLL.Dll';
 procedure SetSPNumber(Value:string);stdcall;external 'Sys32DLL.Dll';
 function GetSPCode:string;stdcall;external 'Sys32DLL.Dll';
 procedure SetSPCode(Value:string);stdcall;external 'Sys32DLL.Dll';
 function GetSendTimeOut:Integer;stdcall;external 'Sys32DLL.Dll';
 procedure SetSendTimeOut(Value:Integer);stdcall;external 'Sys32DLL.Dll';
 function GetRecvTimeOut:Integer;stdcall;external 'Sys32DLL.Dll';
 procedure SetRecvTimeOut(Value:Integer);stdcall;external 'Sys32DLL.Dll';
 function GetSendTry:Integer;stdcall;external 'Sys32DLL.Dll';
 procedure SetSendTry(Value:integer);stdcall;external 'Sys32DLL.Dll';
 function GetSenAnswTime:Integer;stdcall;external 'Sys32DLL.Dll';
 procedure SetSenAnswTime(Value:Integer);stdcall;external 'Sys32DLL.Dll';
 function GetAnswerTime:Integer;stdcall;external 'Sys32DLL.Dll';
 procedure SetAnswerTime(Value:Integer);stdcall;external 'Sys32DLL.Dll';
 function  GetReSend:Boolean;stdcall;external 'Sys32DLL.Dll';
 procedure SetReSend(Value:Boolean);stdcall;external 'Sys32DLL.Dll';
 function  GetSeurity:Boolean;stdcall;external 'Sys32DLL.Dll';
 procedure SetSeurity(Value:Boolean);stdcall;external 'Sys32DLL.Dll';
 function GetTimeCycle:Integer;stdcall;external 'Sys32DLL.Dll';
 procedure SetTimeCycle(Value:Integer);stdcall;external 'Sys32DLL.Dll';
 procedure Delay(MSec: Word);stdcall;external 'Sys32DLL.Dll';

 function GetLocalIP(var pIPAddress:string):Boolean;stdcall;external 'SGIP_API.Dll';

 function StartUp(cLocalIp: pchar; iLocalPort: integer; cSmgIp: pchar; iSmgPort: integer; cLoginName,cPassword: pchar;
  lSocketTimeOut,lMTTimeOut,iSrcNode,lMTThread,lMaxListNode,lMTMaxRetryTime,lMOThread: integer;
  deliver: TDeliver; report: TReport; bb,cc: pointer): integer;stdcall;external 'SGIP.DLL' name 'Startup';

 function Submit(spnumber,chargenumber: pchar; user_count: integer; usernumber,corpid,service_type: pchar;
  fee_type: char; fee_value,given_value: pchar; agent_flag,mo_flag,priority: char;
  Expire_Time,Schedule_Time: pchar; Report_flag,tp_pid,tp_udhi,message_coding,message_type: char;
  Message_Length: LongInt; message_content,reserve: pchar;
  var sequencenumber1,sequencenumber2,sequencenumber3: LongInt): Integer;stdcall;external 'SGIP.DLL' name 'Submit';

implementation

end.