unit1.pas

delphi调用短信网关开发库实例。

{
作者：张宝飞
时间：2006-9-10
邮箱：[e-mail]
QQ:   3899406
主页：http://www.vclsky.com
}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
      PLongword = ^Longword;
      PInteger = ^Integer;
      PByte = ^Byte;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//初始化接口，和infoX信息平台、短讯中心建立连接，应用程序必须首先调用本函数。
function IFInitInterface(dwCodeProtocol: Longword;dwDriverProtocol: Longword;pDriverParam: string):boolean;stdcall;external 'SMEIDll.dll' name 'IFInitInterface';

//用户向 infoX信息平台、短讯中心等服务端注册登录
function Login_R(SystemID: string;Password: string):boolean;stdcall;external 'SMEIDll.dll' name 'Login_R';


procedure TForm1.Button1Click(Sender: TObject);
begin
    if IFInitInterface(5,1,'127.0.0.1 7890 5000') then
    begin
        showmessage('IFInitInterface');
    end;
    if Login_R('910084','123456') then
    begin
        showmessage('Login_R');
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
     if HasDeliverMessage(500)<>0 then
     showmessage('500');
end;

end.