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 FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    function  Susun_Text(Data: PChar): string;
    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 Timer1Timer(Sender: TObject);
    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.FormCreate(Sender: TObject);
begin
   Tanda := False;
   Waktu := 0;
end;

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

function TForm1.Susun_Text(Data: PChar): string;
var i : integer;
    Hasil : string;
begin
    Hasil := '';
    for i := 0 to Length(Data) do
    begin
        Hasil := Hasil + Data[i];
    end;
    Result := Hasil;
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.Timer1Timer(Sender: TObject);
begin
   Inc(Waktu);

   if Pos('OK',Memo1.Text) <> 0 then
   begin
      Timer1.Enabled := False;
      Waktu := 0;
   end;
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.