unit1.pas

如何实现用BP机、手机短信实现通讯控制的源程序

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    callto: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    tonumber: TEdit;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    callmsg: TMemo;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    ifuseproxy: TCheckBox;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    NMHTTP1: TNMHTTP;
    Label6: TLabel;
    firstName: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure ifuseproxyClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var callstr:string;
begin
    callstr:='http://tips.gxspace.com/cgi-bin/tips/webpaging?stn_id='+callto.Text+'&page_no='+tonumber.Text;
    case RadioGroup1.ItemIndex of
        0:callstr:=callstr+'&pager_type=C';
        1:callstr:=callstr+'&pager_type=N';
    end;
    callstr:=callstr+'&firstname='+firstname.text;
    case RadioGroup2.ItemIndex of
        0:callstr:=callstr+'&title=0';
        1:callstr:=callstr+'&title=1';
    end;
    callstr:=callstr+'&msg='+callmsg.Text+'&answer=null&B1=????';
    NMHTTP1.InputFileMode := FALSE;
    NMHTTP1.OutputFileMode := FALSE;
    NMHTTP1.ReportLevel := Status_Basic;
    If ifuseproxy.Checked then
    Begin
        NMHTTP1.Proxy := Edit1.Text;
        NMHTTP1.ProxyPort := StrToInt(Edit2.Text);
    End;
    NMHTTP1.Get(callstr);
    NMHTTP1.Post();
end;

procedure TForm1.ifuseproxyClick(Sender: TObject);
begin
    If ifuseproxy.Checked then
    Begin
        Edit1.Enabled:= TRUE;
        Edit2.Enabled:= TRUE;
    end
    else
    Begin
        Edit1.Enabled:= FALSE;
        Edit2.Enabled:= FALSE;
    end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
    Edit1.Enabled:= FALSE;
    Edit2.Enabled:= FALSE;
end;

end.