fm_main.dfm

< Delphi网络通信协议分析与应用实现>>一书的源代码。

object fm_main1: Tfm_main1
  Left = 196
  Top = 143
  Width = 572
  Height = 413
  Caption = 'fm_main'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 185
    Top = 0
    Width = 379
    Height = 367
    Align = alClient
    TabOrder = 0
    object Memo1: TMemo
      Left = 2
      Top = 153
      Width = 375
      Height = 212
      Align = alClient
      Color = clInfoBk
      TabOrder = 0
    end
    object Memo2: TMemo
      Left = 2
      Top = 15
      Width = 375
      Height = 138
      Align = alTop
      Color = clMenuText
      Font.Charset = GB2312_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      Lines.Strings = (
        'hehe串口已经打开 ；'
        '')
      ParentFont = False
      TabOrder = 1
      OnKeyPress = Memo2KeyPress
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 185
    Height = 367
    Align = alLeft
    TabOrder = 1
    object Label3: TLabel
      Left = 16
      Top = 64
      Width = 26
      Height = 13
      Caption = '电话'
    end
    object Label2: TLabel
      Left = 16
      Top = 32
      Width = 26
      Height = 13
      Caption = '串口'
    end
    object Button1: TButton
      Left = 24
      Top = 168
      Width = 129
      Height = 25
      Caption = '发送文本框中所有文字'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Edit2: TEdit
      Left = 48
      Top = 64
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object Button2: TButton
      Left = 24
      Top = 112
      Width = 129
      Height = 25
      Caption = '初始化'
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 24
      Top = 224
      Width = 129
      Height = 25
      Caption = '回收文件'
      TabOrder = 3
      OnClick = Button3Click
    end
    object CobBox1: TComboBox
      Left = 48
      Top = 32
      Width = 121
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 4
      Items.Strings = (
        'COM1'
        'COM2'
        'COM3'
        'COM4')
    end
  end
  object MainMenu1: TMainMenu
    Left = 96
    Top = 24
    object N1: TMenuItem
      Caption = '文件'
      object N2: TMenuItem
        Caption = '打开'
      end
      object N3: TMenuItem
        Caption = '退出'
      end
    end
    object N4: TMenuItem
      Caption = '系统'
      object N5: TMenuItem
        Caption = '侦听'
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = '拨号'
        OnClick = N6Click
      end
    end
    object N7: TMenuItem
      Caption = '设置'
      object N8: TMenuItem
        Caption = '拨号属性'
      end
      object N9: TMenuItem
        Caption = '其他设置'
      end
    end
  end
  object Comm1: TComm
    CommName = 'COM2'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = Comm1ReceiveData
    OnModemStateChange = Comm1ModemStateChange
    Left = 120
    Top = 72
  end
end