fm_mainsev.dfm

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

object fm_mainsev1: Tfm_mainsev1
  Left = 52
  Top = 224
  Width = 726
  Height = 432
  Caption = 'MODEM'#25991#20214#26381#21153#22120
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 245
    Top = 0
    Width = 473
    Height = 405
    Align = alClient
    Caption = #25552#31034#20449#24687
    TabOrder = 0
    object StatBar1: TStatusBar
      Left = 2
      Top = 382
      Width = 469
      Height = 21
      Color = clScrollBar
      Panels = <
        item
          Width = 150
        end
        item
          Width = 180
        end
        item
          Width = 50
        end>
      SimplePanel = False
    end
    object ProgBar1: TProgressBar
      Left = 2
      Top = 367
      Width = 469
      Height = 15
      Align = alBottom
      BorderWidth = 1
      Min = 0
      Max = 100
      TabOrder = 1
    end
    object Panel1: TPanel
      Left = 2
      Top = 15
      Width = 469
      Height = 42
      Align = alTop
      BevelInner = bvLowered
      TabOrder = 2
      object Image1: TImage
        Left = 4
        Top = 4
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {
          055449636F6E0000010002002020100000000000E80200002600000010101000
          00000000280100000E0300002800000020000000400000000100040000000000
          8002000000000000000000000000000000000000000000000000800000800000
          0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000
          00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000001111000000000000111100000091000098710000000000009
          8710000091090111111111111111111111111000800009811111111111111111
          1117100091000981111111111111111111171000800009811111111111111111
          1117100091000981111111111111111111171000800009811111111111111111
          1117100091000989191919191919191919171000800009FFFFFFFFFFFFFFFFFF
          FFFF10009100009F9999999999991191918100008000009F1F88888888888888
          71F1000091000009F1F11181118111871810000080000009F1F8888888888887
          1F100000910000009F1F11811181187181000000800000009F1F8F8F8F8F8F81
          F1000000910999119F11111111111111F11119100111111119FFFFFFFFFFFFFF
          1111111100188881711811111111118117771F11001111111118181818181181
          111111110011F79171988111111118811719F71100011F791111810000001811
          119F7110000011F7911981111111181119F7110000000111F711111111111119
          F71110000000000111FF77777777777711100000000000000091111111111111
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
          FE1FFE1F9E1FFE1F280000077800000738000007780000073800000778000007
          38000007780000073C00000F7C00000F3E00001F7E00001F3F00003F7F00003F
          2000000180000000C0000000C0000000C0000000E003F001F0000003F8000007
          FE00001FFFC000FFFFFFFFFFFFFFFFFFFFFFFFFF280000001000000020000000
          0100040000000000C00000000000000000000000000000000000000000000000
          00008000008000000080800080000000800080008080000080808000C0C0C000
          0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000
          0000000000000000000000000900810000008100100811111111111089081111
          1111111010081111111111108909FFFFFFFFFF101009F8818181F10089009F18
          1818F10010009F81818F100001111FFFFFFF11110188111111181771001F1180
          001119710001F1111111F11000000911111100000000000000000000FFFF0000
          FFFF0000B3F30000600100002001000060010000200100006003000030030000
          700700008000000080000000C1C00000E0010000F80F0000FFFF0000}
      end
      object Image2: TImage
        Left = 4
        Top = 4
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {
          055449636F6E0000010002002020100000000000E80200002600000010101000
          00000000280100000E0300002800000020000000400000000100040000000000
          8002000000000000000000000000000000000000000000000000800000800000
          0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000
          00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000F77777777777777777
          77000000000007F7777777777777777777700000000007F77777777777777777
          77700000000007F7777777777777777777700000000007F77777777777777777
          77700000000007F7777777777777777777700000000007000000000000000000
          00700000000000FFFFFFFFFFFFFFFFFF8800000000000FFFFFFF00F00F00FFFF
          F8800000000000FFFFFF70F70F70FFFFF8000000000000FFFFFFFFFFFFFFFFFF
          F8000000000000FFFFFF00F00F00FFFFF8000000000000FFFFFF70F70F70FFFF
          880000000000000FFFFFFFFFFFFFFFFF800000000000000FFFFF00F00F00FFFF
          800000000888870FFFFF70F70F70FFF88088877008888770FFFFFFFFFFFFFFF8
          0888877000000000FFFF00F00F00FFF8000000000FF88880FFFF70F70F70FF88
          088888700FFF88880FFFFFFFFFFFFF807888887000FFF8888000800000080007
          8888870000FFFF888870807777080778888887000000FFFFF888088888808888
          88870000000000FFFFF8888888888888880000000000000000FFFFFFFFFFFF00
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
          FC00003FF800001FF000000FF000000FF000000FF000000FF000000FF000000F
          F000000FF000000FF800001FF800001FF800001FF800001FFC00003F80000001
          00000000000000000000000000000000000000008000000180000001C0000003
          F000000FFC00003FFFC003FFFFFFFFFFFFFFFFFF280000001000000020000000
          0100040000000000C00000000000000000000000000000000000000000000000
          00008000008000000080800080000000800080008080000080808000C0C0C000
          0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000
          000000000000000000000000000F777777777000000F777777777000000F7777
          77777000000F0000000070000000FFFFFFFF0000000FF0F0F0FF80000000FF0F
          0FFF00000000F0F0F0F800000700FF0F0FF8077008800FFFFFF008700FF80000
          00008870000FF8088088800000000000000000000000000000000000FFFF0000
          E0070000C0030000C0030000C0030000C0030000C0030000C0030000C0030000
          0000000000000000000000000000000080010000E0070000FFFF0000}
      end
      object LblTishi: TLabel
        Left = 52
        Top = 8
        Width = 12
        Height = 21
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -21
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object LBox2: TListBox
      Left = 2
      Top = 57
      Width = 469
      Height = 310
      Align = alClient
      Color = clBlack
      Font.Charset = GB2312_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 3
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 245
    Height = 405
    Align = alLeft
    Caption = 'MODEM'#25991#20214#26381#21153#22120
    TabOrder = 1
    object BtnInit: TButton
      Left = 16
      Top = 64
      Width = 129
      Height = 25
      Caption = #21021#22987#21270#20018#21475
      TabOrder = 0
      OnClick = BtnInitClick
    end
    object BBtnStart: TBitBtn
      Left = 16
      Top = 100
      Width = 129
      Height = 25
      Caption = #21551#21160#26381#21153#22120
      Enabled = False
      TabOrder = 1
      OnClick = BBtnStartClick
    end
    object GroupBox3: TGroupBox
      Left = 2
      Top = 269
      Width = 241
      Height = 134
      Align = alBottom
      Caption = #36830#25509#30340#23458#25143#31471#20449#24687
      Color = clBackground
      Font.Charset = GB2312_CHARSET
      Font.Color = clAqua
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 2
      Visible = False
      object Label1: TLabel
        Left = 8
        Top = 20
        Width = 91
        Height = 13
        Caption = #20998#24215#30340#36890#35759#26631#35782
        Font.Charset = GB2312_CHARSET
        Font.Color = clAqua
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object lblfdid: TLabel
        Left = 8
        Top = 36
        Width = 225
        Height = 17
        AutoSize = False
        Color = cl3DLight
        Font.Charset = GB2312_CHARSET
        Font.Color = clTeal
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label4: TLabel
        Left = 8
        Top = 56
        Width = 52
        Height = 13
        Caption = #20998#24215#21517#31216
        Font.Charset = GB2312_CHARSET
        Font.Color = clAqua
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object lblfdname: TLabel
        Left = 8
        Top = 72
        Width = 225
        Height = 17
        AutoSize = False
        Color = cl3DLight
        Font.Charset = GB2312_CHARSET
        Font.Color = clTeal
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object StatBar2: TStatusBar
        Left = 2
        Top = 114
        Width = 237
        Height = 18
        Panels = <
          item
            Width = 120
          end
          item
            Width = 50
          end>
        SimplePanel = False
      end
    end
    object BBtnSetup: TBitBtn
      Left = 16
      Top = 32
      Width = 129
      Height = 25
      Caption = #35774'    '#32622
      TabOrder = 3
      OnClick = BBtnSetupClick
    end
    object Edit1: TEdit
      Left = 20
      Top = 140
      Width = 121
      Height = 21
      TabOrder = 4
      Visible = False
      OnKeyPress = Edit1KeyPress
    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
    OnSendDataEmpty = Comm1SendDataEmpty
    Left = 120
    Top = 72
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 200
    Top = 28
  end
  object Table1: TTable
    Left = 200
    Top = 64
  end
  object Query1: TQuery
    Left = 172
    Top = 80
  end
end