main.dfm

代理服务器的源程序 用Delphi实现代理服务器

object Form1: TForm1
  Left = 219
  Top = 120
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '建网代理服务器'
  ClientHeight = 261
  ClientWidth = 409
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 106
    Top = 52
    Width = 72
    Height = 12
    Caption = '当前连接数：'
  end
  object Edit1: TEdit
    Left = 178
    Top = 47
    Width = 121
    Height = 20
    TabOrder = 0
  end
  object Memo1: TMemo
    Left = 16
    Top = 72
    Width = 377
    Height = 185
    Lines.Strings = (
      '')
    TabOrder = 1
  end
  object btopen: TButton
    Left = 10
    Top = 10
    Width = 65
    Height = 25
    Caption = '开启服务'
    TabOrder = 2
    OnClick = menuopenClick
  end
  object btclose: TButton
    Left = 88
    Top = 10
    Width = 65
    Height = 25
    Caption = '停止服务'
    TabOrder = 3
    OnClick = menucloseClick
  end
  object Button3: TButton
    Left = 332
    Top = 10
    Width = 65
    Height = 25
    Caption = '退出'
    TabOrder = 4
    OnClick = menuexit
  end
  object bthide: TButton
    Left = 169
    Top = 10
    Width = 65
    Height = 25
    Caption = '隐藏界面'
    TabOrder = 5
    OnClick = menuhideClick
  end
  object Button1: TButton
    Left = 251
    Top = 10
    Width = 65
    Height = 25
    Caption = '关于软件'
    TabOrder = 6
  end
  object ServerSocket1: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnListen = ServerSocket1Listen
    OnClientConnect = ServerSocket1ClientConnect
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientRead = ServerSocket1ClientRead
    OnClientError = ServerSocket1ClientError
    Left = 160
    Top = 168
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnLookup = ClientSocket1Lookup
    OnConnecting = ClientSocket1Connecting
    OnConnect = ClientSocket1Connect
    OnDisconnect = ClientSocket1Disconnect
    OnRead = ClientSocket1Read
    OnWrite = ClientSocket1Write
    OnError = ClientSocket1Error
    Left = 208
    Top = 168
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 64
    Top = 168
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 96
    Top = 168
    object N4: TMenuItem
      Caption = '显示界面'
      OnClick = N4Click
    end
    object menuhide: TMenuItem
      Caption = '隐藏界面'
      OnClick = menuhideClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object menuopen: TMenuItem
      Caption = '开启服务'
      OnClick = menuopenClick
    end
    object menuclose: TMenuItem
      Caption = '停止服务'
      OnClick = menucloseClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object N2: TMenuItem
      Caption = '退出程序'
      OnClick = menuexit
    end
  end
  object RxTrayIcon1: TRxTrayIcon
    Icon.Data = {
      0000010001002020000001000800A80800001600000028000000200000004000
      0000010008000000000080040000000000000000000000000000000000000000
      0000000080000080000000808000800000008000800080800000C0C0C000C0DC
      C000F0CAA60004040400080808000C0C0C0011111100161616001C1C1C002222
      220029292900555555004D4D4D004242420039393900807CFF005050FF009300
      D600FFECCC00C6D6EF00D6E7E70090A9AD000000330000006600000099000000
      CC00003300000033330000336600003399000033CC000033FF00006600000066
      330000666600006699000066CC000066FF000099000000993300009966000099
      99000099CC000099FF0000CC000000CC330000CC660000CC990000CCCC0000CC
      FF0000FF660000FF990000FFCC00330000003300330033006600330099003300
      CC003300FF00333300003333330033336600333399003333CC003333FF003366
      00003366330033666600336699003366CC003366FF0033990000339933003399
      6600339999003399CC003399FF0033CC000033CC330033CC660033CC990033CC
      CC0033CCFF0033FF330033FF660033FF990033FFCC0033FFFF00660000006600
      330066006600660099006600CC006600FF006633000066333300663366006633
      99006633CC006633FF00666600006666330066666600666699006666CC006699
      00006699330066996600669999006699CC006699FF0066CC000066CC330066CC
      990066CCCC0066CCFF0066FF000066FF330066FF990066FFCC00CC00FF00FF00
      CC009999000099339900990099009900CC009900000099333300990066009933
      CC009900FF00996600009966330099336600996699009966CC009933FF009999
      330099996600999999009999CC009999FF0099CC000099CC330066CC660099CC
      990099CCCC0099CCFF0099FF000099FF330099CC660099FF990099FFCC0099FF
      FF00CC00000099003300CC006600CC009900CC00CC0099330000CC333300CC33
      6600CC339900CC33CC00CC33FF00CC660000CC66330099666600CC669900CC66
      CC009966FF00CC990000CC993300CC996600CC999900CC99CC00CC99FF00CCCC
      0000CCCC3300CCCC6600CCCC9900CCCCCC00CCCCFF00CCFF0000CCFF330099FF
      6600CCFF9900CCFFCC00CCFFFF00CC003300FF006600FF009900CC330000FF33
      3300FF336600FF339900FF33CC00FF33FF00FF660000FF663300CC666600FF66
      9900FF66CC00CC66FF00FF990000FF993300FF996600FF999900FF99CC00FF99
      FF00FFCC0000FFCC3300FFCC6600FFCC9900FFCCCC00FFCCFF00FFFF3300CCFF
      6600FFFF9900FFFFCC006666FF0066FF660066FFFF00FF666600FF66FF00FFFF
      66002100A5005F5F5F00777777008686860096969600CBCBCB00B2B2B200D7D7
      D700DDDDDD00E3E3E300EAEAEA00F1F1F100F8F8F800F0FBFF00A4A0A0008080
      80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
      0000000010D6ECB5ECB5ECB5EBB5AEF8AE140000000000000000000000000000
      00001010ECF04AEFEF1CEEB5734B1399B5140000000000000000000000000000
      0010AE10074BEF4AF2F2B50713EF6EF8F8000000000000000000000000000000
      22AEAE1510104A104A104A104BAE4B9966000000000000000000000000000000
      22AE03071ADD1AF3F3C3F31ADD1ADDF566000000000000000000000000000000
      22031AB66D44154A1C1CEC440E151C0700000000000000000000000000000000
      22930C000000000000000000000B0D0000003C3C3C3C3C3C3C3C3C3C3C3C0000
      0022221CDDF1C3C3C3C3C3C3C3F1B50E00BBDBBBDBBBDBBBDBBBDBBBDBBB0000
      2222EFC3DBADADADADADADADADADFF110000000000000000003C3CDBBB000000
      15EFDDFFD4DADADADADAD3D3D3CDF514000000000000003C3CDBBB0000000000
      15EFEFFFB4DBE1E8E8DBDAD5D3ADF51400000000003C3CDBBB3C3C3C3C3C0000
      15EFDDF6B4E8E8E8E8E1DADAD3ADE214C7C7000000BBDBBBDBBBDBBBDBBB0000
      15DDEFF6B4E8E1E1E8E8DBDAD3ADE214C7C7210000000000003C3CDBBB000000
      15EFDDF6CFE1E1E1E8E1DBDAD4ADE114212128000000003C3CDBBB0000000055
      15DCDDF4CFE8E1E1E1DBDBD4D4CDE81402282821000000DBBB00000000000055
      15DDF4C3B5CF3C3C3C3C3C3C3C651913280228281111111111111111111155E4
      15FFFFFFFFC3C3C3C3C3C3F6F6FFDD1402280211EF07F0ECF1ECEDAEEC6D559E
      C0ECB5B5B5B5B5B5B5B5B5B5B573AE2E020F0FED994ABCBCDDED5113076655F4
      9EC0C07C27D3DAD3D3D3D3CE28772E2E43AE0F0F22144AEA12236D4B0F660955
      F19E9E7C27DAD3DAD3D3D30277777743AEEB1CBC1A1A1BC31AEEF0F5BC6609E2
      559F9E2727D3DAD3DAD3D302C2022E43EB79B6151D0B4AEB14000073660009E2
      E25555B9DADAD3DAD3DAD3D302CE0213EB440A0F0F0F0F0F0F0F0F0F000009FF
      E2DFDFDADADADAD3DA0228D3D3CECECE1522DDF4C3F4C3F4C3F4C3DD0F0009FF
      E2E2DFDF28D3DADADA0228D30228CE15AEDDFFADADD4D5D5D4ADADFF0F000009
      FFE2E128C228D3DADAD3DA0255282815EDBCFFCFDBDBDBDBDAD5ACF50F000009
      FF0828C2552E49D3DADAD3DA02550215ECDDF6CFE8E1E8E8DBDAADE20F000000
      0928E47C552E2E49D3DADAD3DA02D315EDBCFFCFE1E1E8E1DBDAADE10F000000
      55FFC29E55552E2E49D3DA28CECED315ECDDFFCFE1E1E1E8DBD5ADE80F000000
      0055FFC29E7C55342E28282E2828CE15EDBCFFB48D431515141313190F000000
      00005555FFC2C07C55552E2E2E2E2815ECFFFFF4F4F4F4F4F4F4C3DD0F000000
      000000005555FFC2C2C27C552E2E2ECEAEAEAEAEAEAEAEAEAEAEAEAE00000000
      000000000000555555555555555500000000000000000000000000000000FC00
      0FFFF0000FFFE0001FFFC0001FFFC0001FFFC0003FFFC0007000E0002000C000
      3FE1C0003F87C0000E00C0000600C00003E1C00003878000019F800000000000
      0000000000000000000000000000000000010000000300000001000000018000
      000180000001C0000001C0000001E0000001F0000001FC000003FF00FFFF}
    PopupMenu = PopupMenu1
    OnClick = RxTrayIcon1Click
    Left = 32
    Top = 168
  end
end