sgipunit.pas

来自「广州联通短信接口开发范例,应用于短信群发编程」· PAS 代码 · 共 24 行

unit SGIPUnit;

interface

uses
   Windows;

procedure set_src_node(num : DWORD) cdecl; external 'sgipapi.dll';
function SGIP_Connect(
         gw_ip : PChar;
         port : Integer;
         username : PChar;
         passwd : PChar
         ): Integer cdecl ; external 'sgipapi.dll';
{type
  Tset_src_node = function(num : DWORD):Integer;stdcall;

var
  set_src_node : Tset_src_node;}

implementation

end.