unit1.pas

It s application source code for delphi. it can be use for testing ATCommand if you want to play wi

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils, CPort, ExtCtrls, Penerjemah, ShellAPI,
  XPMenu, TFlatButtonUnit;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Comm1: TComPort;
    Panel1: TPanel;
    Edit1: TEdit;
    Penerjemah: TPenerjemah;
    Timer1: TTimer;
    Label8: TLabel;
    Button4: TButton;
    Button5: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SendCommand(StrCommand: string; Postfix : Char);
    procedure Comm1RxChar(Sender: TObject; Count: Integer);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Label8MouseEnter(Sender: TObject);
    procedure Label8MouseLeave(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  type RecSMS = record
       idx : integer;
       pdu : string;
  end;


var
  Form1: TForm1;
  DaftarSMS : array of RecSMS;
  Data  : string;
  Tanda : boolean;
  Waktu : integer;

implementation

{$R *.dfm}

procedure TForm1.FormDestroy(Sender: TObject);
begin
   Comm1.Close;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_RETURN then
   begin
      SendCommand(Edit1.Text,Chr(13));
   end;

   if Key=VK_ESCAPE then
     Memo1.Text := '';
end;

procedure TForm1.SendCommand(strCommand: string; Postfix : Char);
var s : string;
begin
    s := strCommand + Postfix;
    Comm1.WriteStr(s);
end;

procedure TForm1.Comm1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
   Comm1.ReadStr(Str, Count);
   Memo1.Text := Memo1.Text + Str;
end;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_ESCAPE then
     Memo1.Text := '';
end;

procedure TForm1.Label8MouseEnter(Sender: TObject);
begin
   Label8.Font.color := clBlue;
end;

procedure TForm1.Label8MouseLeave(Sender: TObject);
begin
   Label8.Font.color := clBlack;
end;

procedure TForm1.Label8Click(Sender: TObject);
begin
   ShellExecute(Handle,'open','http://www.averagecoder.com','','',SW_SHOWNORMAL);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
   if Comm1.Connected then
   begin
      Comm1.Close;
      Button5.Caption := 'Open Port';
   end
   else
   begin
      Comm1.Open;
      Button5.Caption := 'Close Port';
   end;
end;

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

procedure TForm1.FormShow(Sender: TObject);
begin
   Edit1.SetFocus;
end;

end.