{
作者：張寶飛
時(shí)間：2006-9-10
郵箱：aspfan@163.com
QQ:   3899406
主頁(yè)：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信息平臺(tái)、短訊中心建立連接，應(yīng)用程序必須首先調(diào)用本函數(shù)。
function IFInitInterface(dwCodeProtocol: Longword;dwDriverProtocol: Longword;pDriverParam: string):boolean;stdcall;external 'SMEIDll.dll' name 'IFInitInterface';

//用戶向 infoX信息平臺(tái)、短訊中心等服務(wù)端注冊(cè)登錄
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.