umain.pas

访问西门子手机,可发送AT指令,并进行解码和加码.

unit uMain;

interface

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

type
  TMainForm = class(TForm)
    memoLog: TMemo;
    btnOpen: TButton;
    btnClose: TButton;
    edtCommand: TEdit;
    btnTestCmd: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnOpenClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnTestCmdClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Mobile : TMobile;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Mobile := TMobile.Create();
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Mobile.Free();
end;

procedure TMainForm.btnOpenClick(Sender: TObject);
var
  bRet : Boolean;
begin
  bRet := Mobile.OpenComm('COM1');
  if bRet then
    memoLog.Lines.Add(' Succeed To Open !')
  else
    memoLog.Lines.Add(' Failed  To Open ');
end;

procedure TMainForm.btnCloseClick(Sender: TObject);
begin
  Mobile.CloseComm();
end;

procedure TMainForm.btnTestCmdClick(Sender: TObject);
var
  strRet : String;
begin
  strRet := Mobile.TestAtCommand(TRIM(edtCommand.Text));
  memoLog.Lines.Add(strRet);
end;

end.