smsproc.pas

2005-7-13 10:03 前几天要做一个短信收发的小软件

unit SMSProc;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  CSIntf,
  SMS_PUDUnit,
  SPComm, AATimer, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1:TButton;
    Button2:TButton;
    CSObject1:TCSObject;
    Edit1:TEdit;
    Edit2:TEdit;
    Edit3:TEdit;
    Memo1:TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Label1: TLabel;
    Edit4: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure Button1Click(Sender:TObject);
    procedure RevMonitor(Sender:TObject;str:STring);
    procedure SndMonitor(Sender:TObject;str:STring);
    procedure ErrMonitor(Sender:TObject;str:STring);
    procedure RecSMS(Sender:TObject;mSMSC,mPhoneID,mInfo:string;mGTime:TDateTime);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    aa:TSMSPDUproc;
  public
    { Public declarations }
  end;

var
  Form1:TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender:TObject);
var
  sBuf:array[0..255] of Byte;
begin
  aa := TSMSPDUproc.Create(Self);
  aa.TP_DCS := tdUCS2;
//发送号码
  aa.TP_DA := edit4.Text;
//南京的短消息中心
  aa.SMSC:='8613800250500';
  aa.BaudRate:=4800;
  aa.setTP_UD(Edit1.Text);
  aa.OnRevMonitor:=RevMonitor;
  aa.OnSndMonitor:=SndMonitor;
  aa.OnReceiveSMS:=RecSMS;
  Edit2.Text := aa.PUDStr;
  Edit3.Text := aa.CMGSLen;
  FillChar(sBuf, 255, #0);
  aa.Active:=True;

end;

procedure TForm1.RevMonitor(Sender: TObject; str: STring);
begin
  Memo2.Lines.Add(str);
end;

procedure TForm1.SndMonitor(Sender: TObject; str: STring);
begin
  Memo1.Lines.Add(str)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if aa.Active=True then
    aa.SendSM(Edit4.Text,Edit1.Text);
end;

procedure TForm1.ErrMonitor(Sender: TObject; str: STring);
begin
  Memo3.Lines.Add(TimeToStr(Now)+' '+ str)
end;

procedure TForm1.RecSMS(Sender: TObject; mSMSC, mPhoneID, mInfo: string;
  mGTime: TDateTime);
var
  tmp:string;
begin
  tmp:=mSMSC+' '+ mPhoneID + ' '+ mInfo;
  tmp:=tmp+' '+ DateToStr(mGTime)+ ' '+ TimeToStr(mGTime);
  Memo4.Lines.Add(tmp);
end;

end.