unit_server_main.~dfm

这是Delphi开发的GPS系统的原代码势力程序

object Form_Server_Main: TForm_Server_Main
  Left = 216
  Top = 202
  Width = 677
  Height = 437
  Caption = 'GPRS'#26381#21153#22120
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #20223#23435'_GB2312'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCanResize = FormCanResize
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pcLearnSockets: TPageControl
    Left = 0
    Top = 0
    Width = 669
    Height = 403
    ActivePage = tsServer
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabIndex = 0
    TabOrder = 0
    object tsServer: TTabSheet
      Caption = '  '#26381'   '#21153
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #20223#23435'_GB2312'
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      DesignSize = (
        661
        372)
      object gbServerSettings: TGroupBox
        Left = 1
        Top = 8
        Width = 190
        Height = 367
        Anchors = [akLeft, akTop, akBottom]
        Caption = #26381#21153#22120#21442#25968
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        DesignSize = (
          190
          367)
        object lblServerPort: TLabel
          Left = 10
          Top = 60
          Width = 48
          Height = 16
          Caption = #31471#21475#21495
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #20223#23435'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 72
          Top = 61
          Width = 80
          Height = 16
          Caption = #26381#21153#22120#22320#22336
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #20223#23435'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object lblServerThreadCacheSize: TLabel
          Left = 4
          Top = 121
          Width = 63
          Height = 14
          Caption = #32447#31243#20010#25968':'
        end
        object Label1: TLabel
          Left = 6
          Top = 149
          Width = 56
          Height = 14
          Caption = #23458#25143#22320#22336
        end
        object btnServerOpen: TButton
          Left = 4
          Top = 23
          Width = 75
          Height = 27
          Caption = #25171' '#24320
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = btnServerOpenClick
        end
        object btnServerClose: TButton
          Left = 96
          Top = 23
          Width = 75
          Height = 27
          Caption = #20851' '#38381
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = btnServerCloseClick
        end
        object edServerPort: TEdit
          Left = 13
          Top = 89
          Width = 45
          Height = 20
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 2
          Text = '2000'
        end
        object edServerService: TEdit
          Left = 72
          Top = 89
          Width = 113
          Height = 20
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 3
        end
        object edServerThreadCacheSize: TEdit
          Left = 74
          Top = 119
          Width = 33
          Height = 20
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 4
          Text = '10'
        end
        object gbServerSocketType: TGroupBox
          Left = 4
          Top = 200
          Width = 181
          Height = 81
          Caption = #26381#21153#22120#31867#22411
          TabOrder = 5
          object rbtnServerNonBlocking: TRadioButton
            Left = 4
            Top = 24
            Width = 89
            Height = 17
            Caption = #38750#38459#26029#22411
            Checked = True
            TabOrder = 0
            TabStop = True
          end
          object rdbtnServerThreadBlocking: TRadioButton
            Left = 4
            Top = 52
            Width = 101
            Height = 17
            Caption = #38459#26029#22411
            Enabled = False
            TabOrder = 1
          end
        end
        object ClientIP: TEdit
          Left = 72
          Top = 147
          Width = 113
          Height = 20
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 6
          Text = '192.168.0.6'
        end
        object gbUserDefinedServerSettings: TGroupBox
          Left = 4
          Top = 304
          Width = 181
          Height = 46
          Anchors = [akLeft, akTop, akBottom]
          Caption = #26381#21153#22120#21442#25968#35774#23450
          TabOrder = 7
          Visible = False
          object cbBroadcastMessage: TCheckBox
            Left = 4
            Top = 32
            Width = 117
            Height = 17
            Caption = 'Broadcast Message'
            Ctl3D = False
            ParentCtl3D = False
            TabOrder = 0
          end
          object cbLogAllClientMessages: TCheckBox
            Left = 4
            Top = 72
            Width = 133
            Height = 17
            Caption = 'Log All Client Messages'
            Ctl3D = False
            ParentCtl3D = False
            TabOrder = 1
          end
        end
      end
      object memReceive: TMemo
        Left = 192
        Top = 4
        Width = 467
        Height = 350
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = clBackground
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -13
        Font.Name = 'Terminal'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 1
        WantReturns = False
        OnKeyDown = memReceiveKeyDown
      end
      object edSend: TEdit
        Left = 192
        Top = 355
        Width = 467
        Height = 22
        Anchors = [akLeft, akRight, akBottom]
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 2
        OnKeyDown = edSendKeyDown
      end
    end
    object TabSheet2: TTabSheet
      Caption = '  '#36830'  '#25509
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #20223#23435'_GB2312'
      Font.Style = []
      ImageIndex = 2
      ParentFont = False
      object sgServerConnections: TStringGrid
        Left = 0
        Top = 0
        Width = 661
        Height = 372
        Align = alClient
        ColCount = 9
        Ctl3D = False
        DefaultRowHeight = 16
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        OnDblClick = sgServerConnectionsDblClick
        OnKeyDown = sgServerConnectionsKeyDown
      end
    end
    object TabSheet1: TTabSheet
      Caption = '  '#29366'  '#24577
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #20223#23435'_GB2312'
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      DesignSize = (
        661
        372)
      object lvServerActivity: TListView
        Left = 0
        Top = 4
        Width = 660
        Height = 355
        Anchors = [akLeft, akTop, akRight, akBottom]
        Columns = <
          item
            Caption = 'Event'
            Width = -1
            WidthType = (
              -1)
          end
          item
            Caption = 'Host'
            Width = -1
            WidthType = (
              -1)
          end
          item
            Caption = 'IP Address'
            Width = -1
            WidthType = (
              -1)
          end
          item
            Caption = 'Port'
            Width = -2
            WidthType = (
              -2)
          end
          item
            Caption = 'Date/Time'
            Width = -1
            WidthType = (
              -1)
          end>
        Ctl3D = False
        TabOrder = 0
        ViewStyle = vsReport
      end
      object Panel2: TPanel
        Left = 0
        Top = 347
        Width = 661
        Height = 25
        Align = alBottom
        TabOrder = 1
        OnCanResize = Panel2CanResize
        object Button2: TButton
          Left = 0
          Top = 0
          Width = 657
          Height = 25
          Caption = #28165#38500#29366#24577
          TabOrder = 0
          OnClick = Button2Click
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #25968#25454#30417#25511
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #20223#23435'_GB2312'
      Font.Style = []
      ImageIndex = 3
      ParentFont = False
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 661
        Height = 347
        Align = alClient
        Ctl3D = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
        OnKeyPress = Memo1KeyPress
      end
      object Panel1: TPanel
        Left = 0
        Top = 347
        Width = 661
        Height = 25
        Align = alBottom
        TabOrder = 1
        OnCanResize = Panel1CanResize
        object Button1: TButton
          Left = 0
          Top = 0
          Width = 665
          Height = 25
          Caption = #28165#31354#30417#25511#31383#20307
          TabOrder = 0
          OnClick = Button1Click
        end
      end
    end
  end
  object ChatServerSocket: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnListen = ChatServerSocketListen
    OnAccept = ChatServerSocketAccept
    OnGetThread = ChatServerSocketGetThread
    OnGetSocket = ChatServerSocketGetSocket
    OnThreadStart = ChatServerSocketThreadStart
    OnThreadEnd = ChatServerSocketThreadEnd
    OnClientConnect = ChatServerSocketClientConnect
    OnClientDisconnect = ChatServerSocketClientDisconnect
    OnClientRead = ChatServerSocketClientRead
    OnClientWrite = ChatServerSocketClientWrite
    OnClientError = ChatServerSocketClientError
    Left = 240
    Top = 128
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 208
    Top = 128
  end
end