unit1.~pas

Delphi用于窜口通讯很方便的

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, OleCtrls, MSCommLib_TLB,strutils;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    List: TListBox;
    Button1: TButton;
    Button2: TButton;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    Button3: TButton;
    Button4: TButton;
    MSComm1: TMSComm;
    procedure SendSms(csca,num,msg:String);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
  uses NUM_Change;
{$R *.dfm}
procedure Tform1.SendSms(csca,num,msg:String);
  var
  pdu, psmsc, pnum, pmsg,leng:String;
   Const prex = 891;
   Const midx = 1.1E+95;
   Const sufx = 800;
  begin
    psmsc :=Trim(telc(csca));
    pnum := Trim(telc(num));
    pmsg := Trim(chg(msg));
    pdu := floattostr(prex) + psmsc+ floattostr(midx) + pnum + floattostr(sufx) + leng + pmsg;

    mscomm1.PortOpen:=true;
    MSComm1.Output := pdu +#26;
    mscomm1.PortOpen:=false;
  end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  list.Items.Clear;  
end;

procedure TForm1.Button1Click(Sender: TObject);
var NUM:String;
begin
   num:=inputbox('号码列表','请重输电话号码！','');
   list.Items.Add(num);
end;

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to list.Items.Count-1 do
     begin
        sendsms('[phone]',list.Items.Strings[i],memo1.Text );
     end;
  application.MessageBox('信息发送成功','');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  close;
end;

end.