u_main.pas

用于在串口上开发手机短信的工具包

unit U_main;

interface

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

type
  Tfrm_main = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_main: Tfrm_main;
  hPort : thandle;
  errmsg : string;
  iSMS_F:integer;

implementation

uses U_typedef;

var
  CommInfo : STRUCommInfo;


{$R *.dfm}

procedure Tfrm_main.Button1Click(Sender: TObject);
var
  szRetVer : string;
begin
  setlength(szRetVer,100);
  GetVerInfo(szRetVer);
  memo1.Lines.Add(szRetVer);
end;

procedure Tfrm_main.Button3Click(Sender: TObject);
begin
  hPort := hOpenComm(pchar(Edit1.Text));
  memo1.Lines.Add('端口：'+inttostr(hPort));
end;

procedure Tfrm_main.Button4Click(Sender: TObject);
begin
  if bCloseComm(hPort) then
    memo1.Lines.Add('关闭端口成功')
  else
    memo1.Lines.Add('关闭端口失败');
end;

procedure Tfrm_main.Button5Click(Sender: TObject);
begin
  comminfo.iBaudRate := 9600;
  if bAutoInit(hPort,@CommInfo,iSMS_F,errmsg) then
  begin
    memo1.Lines.Add('波特率：'+inttostr(CommInfo.iBaudRate)+'  短信息中心号码：'+comminfo.szSCA);
    memo1.Lines.Add('初始化成功');
  end
  else memo1.Lines.Add('初始化失败');
end;

procedure Tfrm_main.Button6Click(Sender: TObject);
var
  szNextMsg : string;
  szMsg : string;
  szSCA : string;
  szPhNbr : pchar;
  err : array[0..29] of char;
begin
  setlength(szMsg,1024);
  setlength(szNextMsg,1024);
  setlength(szSCA,30);
  szSCA := CommInfo.szSCA;
  szMsg := edit3.Text;
  getmem(szPhNbr,30);
  strcopy(szPhNbr,pchar(edit2.Text));
  if bSendMsg(hPort,szMsg,szPhNbr,szSCA,szNextMsg,iSMS_F,err) then
    memo1.Lines.Add('发送成功')
  else
  begin
    memo1.Lines.Add('发送失败('+err+')');
  end;
  freemem(szPhNbr);
end;

procedure Tfrm_main.Button7Click(Sender: TObject);
var
  i,j : integer;
  RcvSMS : SM_RCV_STRU;
begin
  j := iRecvMsg(hPort,@RcvSMS,iSMS_F,errmsg);
  memo1.Lines.Add('共有'+inttostr(j)+'条短信');
  memo1.Lines.Add('共有'+inttostr(RcvSMS.iSmsTotal)+'条短信');
  memo1.Lines.Add('  ');
  if RcvSMS.iSmsTotal > 0 then
  begin
    for i:=1 to RcvSMS.iSmsTotal do
    begin
      memo1.Lines.Add('第'+inttostr(i)+'条短信');
      memo1.Lines.Add('短信内容：'+RcvSMS.SMS[i-1].TP_UD);
      memo1.Lines.Add('发送时间：'+RcvSMS.SMS[i-1].TP_SCTS);
      memo1.Lines.Add('发送手机号：'+RcvSMS.SMS[i-1].TPA);
      memo1.Lines.Add('SCA：'+RcvSMS.SMS[i-1].SCA);
//      memo1.Lines.Add('TP_PID：'+RcvSMS.SMS[i].TP_PID);
//      memo1.Lines.Add('TP_DCS：'+RcvSMS.SMS[i].TP_DCS);
//      memo1.Lines.Add('index：'+RcvSMS.SMS[i].index);
      memo1.Lines.Add('  ');
    end;
  end;
  memo1.Lines.Add('短信接收完毕');
end;

procedure Tfrm_main.Button2Click(Sender: TObject);
begin
  memo1.Lines.Add(inttostr(iSetSerialNo('北京方环电子公司','注册码')));
end;

procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  setlength(errmsg,30);
end;

end.