dlmain.~dfm

HTTP代理服务器修改后的增强源码。用Delphi自身待的控件实现。

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 454
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 56
    Width = 60
    Height = 13
    Caption = #27963#21160#30340#36830#25509
  end
  object Memo1: TMemo
    Left = 0
    Top = 173
    Width = 446
    Height = 273
    Align = alBottom
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object Edit1: TEdit
    Left = 104
    Top = 56
    Width = 121
    Height = 21
    TabOrder = 1
    Text = 'Edit1'
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ClientSocket1Connect
    OnDisconnect = ClientSocket1Disconnect
    OnRead = ClientSocket1Read
    OnWrite = ClientSocket1Write
    OnError = ClientSocket1Error
    Left = 208
    Top = 8
  end
  object ServerSocket1: TServerSocket
    Active = False
    Port = 808
    ServerType = stNonBlocking
    OnListen = ServerSocket1Listen
    OnClientConnect = ServerSocket1ClientConnect
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientRead = ServerSocket1ClientRead
    OnClientError = ServerSocket1ClientError
    Left = 304
    Top = 8
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 40
    Top = 24
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = Timer2Timer
    Left = 24
    Top = 88
  end
  object PopupMenu1: TPopupMenu
    Left = 96
    Top = 24
    object n11: TMenuItem
      Caption = #24320#21551#26381#21153
      OnClick = n11Click
    end
    object n21: TMenuItem
      Caption = #20572#27490#26381#21153
      OnClick = n21Click
    end
    object n1: TMenuItem
      Caption = 'n1'
    end
    object n01: TMenuItem
      Caption = #36864#20986#31243#24335
      OnClick = n01Click
    end
  end
end