futamapas.dfm

This delphi 7 source code have a function to send SMS trough computer with serial communication. You

    Height = 13
    Caption = 'Port'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label6: TLabel
    Left = 93
    Top = 218
    Width = 52
    Height = 13
    Caption = 'Baudrate'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label12: TLabel
    Left = 162
    Top = 218
    Width = 70
    Height = 13
    Caption = 'Flow-control'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object SpeedButton1: TSpeedButton
    Left = 91
    Top = 272
    Width = 118
    Height = 25
    Caption = 'REPORT HP'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object txtPesan: TMemo
    Left = 0
    Top = 32
    Width = 321
    Height = 177
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'Herlambang Aribowo ... D3 '
      'Instrumentasi dan Elektronika '
      'UNDIP')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
    OnChange = txtPesanChange
  end
  object cbFlash: TCheckBox
    Left = 232
    Top = 304
    Width = 89
    Height = 17
    Caption = 'Flash SMS'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object cbReply: TCheckBox
    Left = 128
    Top = 304
    Width = 105
    Height = 17
    Caption = 'Minta balasan'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
  object cbReport: TCheckBox
    Left = 16
    Top = 304
    Width = 113
    Height = 17
    Caption = 'Delivery Report'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
  end
  object txtNomor: TEdit
    Left = 0
    Top = 5
    Width = 321
    Height = 26
    Hint = 'Untuk banyak nomor, pisahkan dengan koma..'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    Text = '081328828042'
  end
  object cbFC: TComboBox
    Left = 162
    Top = 240
    Width = 71
    Height = 21
    Style = csDropDownList
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 5
  end
  object cbBaud: TComboBox
    Left = 84
    Top = 240
    Width = 65
    Height = 21
    Style = csDropDownList
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 6
  end
  object cbPort: TComboBox
    Left = 14
    Top = 240
    Width = 65
    Height = 21
    Style = csDropDownList
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 7
  end
  object XComm1: TXComm
    BaudRate = br19200
    BaudValue = 19200
    Buffers.InputSize = 2048
    Buffers.OutputSize = 2048
    Buffers.InputTimeout = 500
    Buffers.OutputTimeout = 500
    RTSSettings = []
    DataControl.DataBits = db8
    DataControl.Parity = paNone
    DataControl.StopBits = sb1
    DeviceName = 'COM2'
    DTRSettings = []
    EventChars.XonChar = #17
    EventChars.XoffChar = #19
    EventChars.EofChar = #0
    EventChars.ErrorChar = #0
    EventChars.EventChar = #10
    MonitorEvents = [deChar, deFlag, deOutEmpty]
    FlowControl = fcNone
    Options = []
    Synchronize = True
    Timeouts.ReadInterval = 1
    Timeouts.ReadMultiplier = 0
    Timeouts.ReadConstant = 1
    Timeouts.WriteMultiplier = 0
    Timeouts.WriteConstant = 1
    XOnXOffSettings = []
    Left = 456
    Top = 80
  end
end