unit1.~pas

为了对短消息信息应用开发商提供支持

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function Sms_Proxy(lProxyType: longint; pProxyHost: string; lProxyPort: longint; pProxyUser: string; pProxyPasswd: string): longint; stdcall;
  external 'SmsSdk.dll';
function Sms_Connect(pServer: string; lCorpID: longint; pLoginName: string; pPasswd: string; lTimeOut: longint; HWND: HWND): longint; stdcall;
  external 'SmsSdk.dll';
procedure Sms_DisConnect();
  external 'SmsSdk.dll';
function Sms_Send(pMobile: string; pMsg: string; lSmsID: plongint): longint; stdcall;
  external 'SmsSdk.dll';
function Sms_Get(pNo: pchar; pMsg: pchar; pTime: pchar): longint; stdcall;
  external 'SmsSdk.dll';


procedure TForm1.Button2Click(Sender: TObject);
var a: longint;
begin
  if trim(Button2.Caption) = '连接' then begin
    Sms_Proxy(0,'192.168.0.1',8080,'','');
    a := Sms_Connect(trim(Edit2.Text), strtoint(trim(Edit3.Text)), trim(Edit4.Text), trim(Edit5.Text), 100, 0);
    if a = 0 then begin
      messagebox(0, '连接成功', '', 0);
      Button2.Caption := '断开';
    end;
    if a = -1 then messagebox(0, '连接服务器失败', '', 0);
    if a = -2 then messagebox(0, '连接服务器超时', '', 0);
    if a = -3 then messagebox(0, '登录失败，帐号有误', '', 0);

  end
  else begin
    Sms_DisConnect();
    Button2.Caption := '连接';
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var a, b: longint;
begin
  a := Sms_Send(trim(Edit1.Text), trim(Memo1.Text), @b);
  if a >= 0 then begin
    messagebox(0, '发送成功', '', 0);
    MessageDlg('发送成功,短信ID号是:' + inttostr(b), mtInformation, [mbOk], 0);
  end;
  if a = -1 then messagebox(0, '连接服务器失败', '', 0);
  if a = -2 then messagebox(0, '连接服务器超时', '', 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var a: longint;
  szno: array[1..64] of char;
  szmsg: array[1..512] of char;
  sztime: array[1..64] of char;
  s1, s2, s3:string;
begin
  a := Sms_Get(@szno, @szmsg, @sztime);
  s1 := trim(szno);
  s2 := trim(sztime);
  s3 := trim(szmsg);
  if a >= 0 then begin
    MessageDlg('发送者号码:' + s1, mtInformation, [mbOk], 0);
    MessageDlg('发送时间:' + s2, mtInformation, [mbOk], 0);
    MessageDlg('发送内容:' + s3, mtInformation, [mbOk], 0);
  end;
  if a = -1 then messagebox(0, '取短信失败', '', 0);

end;

end.