unit1.dfm

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

object Form1: TForm1
  Left = 268
  Top = 138
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'AT-COMMAND TESTER'
  ClientHeight = 371
  ClientWidth = 494
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label8: TLabel
    Left = 327
    Top = 339
    Width = 147
    Height = 13
    Cursor = crHandPoint
    Caption = 'http://www.averagecoder.com'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = Label8Click
    OnMouseEnter = Label8MouseEnter
    OnMouseLeave = Label8MouseLeave
  end
  object Memo1: TMemo
    Left = 1
    Top = 32
    Width = 491
    Height = 284
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
    OnKeyDown = Memo1KeyDown
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 494
    Height = 32
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Edit1: TEdit
      Left = 1
      Top = 3
      Width = 490
      Height = 26
      Hint = 'Hit ENTER to execute command'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = 'ATE1'
      OnKeyDown = Edit1KeyDown
    end
  end
  object Button4: TButton
    Left = 15
    Top = 330
    Width = 91
    Height = 28
    Caption = 'Port Setting'
    TabOrder = 2
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 120
    Top = 330
    Width = 88
    Height = 28
    Caption = 'Open Port'
    TabOrder = 3
    OnClick = Button5Click
  end
  object Comm1: TComPort
    BaudRate = br115200
    Port = 'COM4'
    Parity.Bits = prNone
    StopBits = sbOneStopBit
    DataBits = dbEight
    DiscardNull = True
    Events = [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full]
    FlowControl.OutCTSFlow = False
    FlowControl.OutDSRFlow = False
    FlowControl.ControlDTR = dtrEnable
    FlowControl.ControlRTS = rtsDisable
    FlowControl.XonXoffOut = False
    FlowControl.XonXoffIn = False
    OnRxChar = Comm1RxChar
    Left = 64
    Top = 92
  end
  object Penerjemah: TPenerjemah
    Left = 156
    Top = 420
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    Left = 201
    Top = 423
  end
end