boatmain.~dfm

关于网络编程的一个delphi程序。其实现的功能是通过无线网络实现监控。

object MainForm: TMainForm
  Left = 285
  Top = 187
  Width = 702
  Height = 461
  Caption = #36817#28023#26234#33021#30417#27979#33337
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object RzToolbar: TRzToolbar
    Left = 0
    Top = 0
    Width = 694
    Height = 25
    AutoSize = True
    BorderInner = fsNone
    BorderOuter = fsGroove
    BorderSides = [sdTop]
    BorderWidth = 0
    TabOrder = 0
    ToolbarControls = (
      btnImage
      rzspcr1
      btnGPS
      rzspcr2)
    object btnImage: TRzToolButton
      Left = 4
      Top = 0
      Width = 96
      ShowCaption = True
      UseToolbarShowCaption = False
      Caption = #23454#26102#22270#20687#29366#24577
      OnClick = btnImageClick
    end
    object rzspcr1: TRzSpacer
      Left = 100
      Top = 0
    end
    object btnGPS: TRzToolButton
      Left = 108
      Top = 0
      Width = 68
      ShowCaption = True
      UseToolbarShowCaption = False
      Caption = #21629#20196#29366#24577
      OnClick = btnGPSClick
    end
    object rzspcr2: TRzSpacer
      Left = 176
      Top = 0
    end
  end
  object RzGroupBoxServer: TRzGroupBox
    Left = 0
    Top = 32
    Width = 161
    Height = 345
    Caption = #26381#21153#22120
    TabOrder = 1
    object RzGroupBar1: TRzGroupBar
      Left = 1
      Top = 14
      Height = 330
      GradientColorStart = clBtnFace
      GradientColorStop = clBtnShadow
      GroupBorderSize = 8
      Color = clBtnShadow
      ParentColor = False
      TabOrder = 0
      object RzGroupImage: TRzGroup
        Items = <
          item
            Caption = #21551#21160#22270#20687'Server'
            OnClick = RzGroupImageItems0Click
          end
          item
            Caption = #20572#27490#22270#20687'Server'
            OnClick = RzGroupImageItems1Click
          end>
        Opened = True
        OpenedHeight = 67
        Caption = #22270#20687
        ParentColor = False
      end
      object rzgrpGPS: TRzGroup
        Items = <
          item
            Caption = #21551#21160#25511#21046'Server'
            OnClick = rzgrpGPSItems0Click
          end
          item
            Caption = #20572#27490#25511#21046'Server'
            OnClick = rzgrpGPSItems1Click
          end
          item
            Caption = 'GO'
            OnClick = rzgrpGPSItems2Click
          end
          item
            Caption = 'BACK'
            OnClick = rzgrpGPSItems3Click
          end
          item
            Caption = 'STOP'
            OnClick = rzgrpGPSItems4Click
          end
          item
            Caption = 'LEFT'
            OnClick = rzgrpGPSItems5Click
          end
          item
            Caption = 'RIGHT'
            OnClick = rzgrpGPSItems6Click
          end
          item
            Caption = 'UP'
            OnClick = rzgrpGPSItems7Click
          end
          item
            Caption = 'DOWN'
            OnClick = rzgrpGPSItems8Click
          end>
        Opened = True
        OpenedHeight = 207
        Caption = #25511#21046
        ParentColor = False
      end
    end
  end
  object RzGroupBoxImage: TRzGroupBox
    Left = 160
    Top = 32
    Width = 337
    Height = 345
    Caption = #22270#20687
    TabOrder = 2
    object Image: TImage
      Left = 1
      Top = 14
      Width = 335
      Height = 330
      Align = alClient
      AutoSize = True
    end
  end
  object RzStatusBar1: TRzStatusBar
    Left = 0
    Top = 388
    Width = 694
    Height = 19
    BorderInner = fsNone
    BorderOuter = fsNone
    BorderSides = [sdLeft, sdTop, sdRight, sdBottom]
    BorderWidth = 0
    TabOrder = 3
    object RzStatusPane1: TRzStatusPane
      Left = 0
      Top = 0
      Width = 85
      Height = 19
      Align = alLeft
      AutoSize = True
      Caption = ' '#26381#21153#22120#29366#24577#26639
    end
    object RzStatusPaneImage: TRzStatusPane
      Left = 85
      Top = 0
      Width = 34
      Height = 19
      Align = alLeft
      AutoSize = True
      Caption = #22270#20687
    end
    object RzStatusPaneGPS: TRzStatusPane
      Left = 119
      Top = 0
      Width = 73
      Height = 19
      Align = alLeft
      AutoSize = True
      Caption = #25511#21046#21629#20196'     '
    end
  end
  object MainMenu: TMainMenu
    OwnerDraw = True
    Left = 280
    Top = 40
    object N1: TMenuItem
      Caption = #25991#20214
      object N2: TMenuItem
        Caption = #31163#24320
        OnClick = N2Click
      end
    end
    object N3: TMenuItem
      Caption = #20851#20110
    end
  end
  object RzMenuController: TRzMenuController
    Left = 312
    Top = 40
  end
  object serverImageControl: TServerSocket
    Active = False
    Port = 4501
    ServerType = stNonBlocking
    OnAccept = serverImageControlAccept
    OnClientDisconnect = serverImageControlClientDisconnect
    OnClientRead = serverImageControlClientRead
    Left = 296
  end
  object serverImage: TServerSocket
    Active = False
    Port = 4500
    ServerType = stNonBlocking
    OnClientRead = serverImageClientRead
    Left = 256
  end
  object serverGPS: TServerSocket
    Active = False
    Port = 4502
    ServerType = stNonBlocking
    OnAccept = serverGPSAccept
    OnClientDisconnect = serverGPSClientDisconnect
    OnClientRead = serverGPSClientRead
    Left = 360
  end
end