dll_exports.~pas

来自「SPIG1.1.rar SPIG接口协议」· ~PAS 代码 · 共 71 行

unit DLL_Exports;

interface

uses
 SP_SMG_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';

 function StrToUnicode(Source:string ):string;external 'SGIP_API.Dll';
 function UnicodeToStr(Source:string ):string;external 'SGIP_API.Dll';
 function BinToInt(Source:string):string;stdcall;external 'SGIP_API.Dll'
 function HexToBin(Source:string):string;stdcall;external 'SGIP_API.Dll'
 function CheckIP(IP:string):integer;stdcall;external 'Sys32DLL.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 GetRecvHostPort:Integer;stdcall;external 'Sys32DLL.Dll';
 procedure SetRecvHostPort(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 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  GetReSend:Boolean;stdcall;external 'Sys32DLL.Dll';
 procedure SetReSend(Value:Boolean);stdcall;external 'Sys32DLL.Dll';
 function  GetSendTry:Integer;stdcall;external 'Sys32DLL.Dll';
 procedure SetSendTry(Value:Integer);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';
 function GetSrcNode:string;stdcall;external 'Sys32DLL.Dll';
 procedure SetSrcNode(Value:string);stdcall;external 'Sys32DLL.Dll';
 function GetSPCode:string;stdcall;external 'Sys32DLL.Dll';
 procedure SetSPCode(Value:string);stdcall;external 'Sys32DLL.Dll';
 procedure SetTimeCycle(Value:Integer);stdcall;external 'Sys32DLL.Dll';
 function  GetAutoRun:Boolean;stdcall;external 'Sys32DLL.Dll';
 procedure SetAutoRun(Value:Boolean);stdcall;external 'Sys32DLL.Dll';
 procedure Delay(MSec: Word);stdcall;external 'Sys32DLL.Dll';
 function GetLocalIP(var pIPAddress:string):Boolean;stdcall;external 'SGIP_API.Dll';
 function  Get_Time:string;stdcall;external 'Sys32DLL.Dll';
 procedure SetTime(Value:string);stdcall;external 'Sys32DLL.Dll';
 function  GetSNDUTP:Integer;stdcall;external 'Sys32DLL.Dll';
 procedure SetSNDUPT(Value:Integer);stdcall;external 'Sys32DLL.Dll';
 function GetProgBar(n:Integer):Real;stdcall;external 'Sys32DLL.Dll';

implementation

end.