unit1.dfm

用于模拟GETPOST方法发送HTTP请求并取得数据.rar

object Form1: TForm1
  Left = 212
  Top = 119
  Width = 695
  Height = 511
  Caption = #32593#32476#20449#24687#27983#35272#22120' --by Darkbug @2005'
  Color = clBtnFace
  Constraints.MinHeight = 500
  Constraints.MinWidth = 695
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    687
    484)
  PixelsPerInch = 96
  TextHeight = 12
  object Memo1: TMemo
    Left = 8
    Top = 88
    Width = 672
    Height = 392
    Anchors = [akLeft, akTop, akRight, akBottom]
    Lines.Strings = (
      'Memo1')
    PopupMenu = PopupMenu1
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 4
    Width = 673
    Height = 81
    Anchors = [akLeft, akTop, akRight]
    Caption = #26465#20214#35774#32622
    TabOrder = 1
    DesignSize = (
      673
      81)
    object Label1: TLabel
      Left = 11
      Top = 25
      Width = 36
      Height = 12
      Caption = #26381#21153#22120
    end
    object Label2: TLabel
      Left = 200
      Top = 25
      Width = 24
      Height = 12
      Caption = #31471#21475
    end
    object Label3: TLabel
      Left = 8
      Top = 57
      Width = 48
      Height = 12
      Caption = #30446#26631#39029#38754
    end
    object Label4: TLabel
      Left = 269
      Top = 57
      Width = 48
      Height = 12
      Caption = #25552#20132#20869#23481
    end
    object Label5: TLabel
      Left = 400
      Top = 24
      Width = 54
      Height = 12
      Caption = 'SessionID'
    end
    object Button1: TButton
      Left = 611
      Top = 50
      Width = 51
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #26597#30475
      TabOrder = 0
      OnClick = Button1Click
    end
    object edtServerIP: TEdit
      Left = 64
      Top = 21
      Width = 121
      Height = 20
      TabOrder = 1
    end
    object edtServerPort: TEdit
      Left = 232
      Top = 21
      Width = 49
      Height = 20
      TabOrder = 2
      Text = '80'
    end
    object UpDown1: TUpDown
      Left = 281
      Top = 21
      Width = 15
      Height = 20
      Associate = edtServerPort
      Max = 9999
      Position = 80
      TabOrder = 3
    end
    object radMethodGet: TRadioButton
      Left = 304
      Top = 23
      Width = 49
      Height = 17
      Caption = 'get'
      Checked = True
      TabOrder = 4
      TabStop = True
    end
    object radMethodPost: TRadioButton
      Left = 344
      Top = 23
      Width = 49
      Height = 17
      Caption = 'post'
      TabOrder = 5
    end
    object edtServerPage: TEdit
      Left = 64
      Top = 53
      Width = 185
      Height = 20
      TabOrder = 6
    end
    object edtRequestMemo: TEdit
      Left = 338
      Top = 53
      Width = 255
      Height = 20
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 7
    end
    object edtSessionID: TEdit
      Left = 464
      Top = 20
      Width = 193
      Height = 20
      Anchors = [akLeft, akTop, akRight]
      ReadOnly = True
      TabOrder = 8
    end
  end
  object Panel1: TPanel
    Left = 256
    Top = 104
    Width = 401
    Height = 369
    Anchors = [akRight, akBottom]
    BevelInner = bvLowered
    Caption = 'Panel1'
    TabOrder = 2
    Visible = False
    object Label6: TLabel
      Left = 8
      Top = 8
      Width = 36
      Height = 12
      Caption = #25253#25991#22836
    end
    object Label7: TLabel
      Left = 8
      Top = 120
      Width = 48
      Height = 12
      Caption = #25253#25991#20869#23481
    end
    object Label8: TLabel
      Left = 8
      Top = 296
      Width = 60
      Height = 12
      Caption = #24403#21069'Cookie'
    end
    object Memo3: TMemo
      Left = 8
      Top = 24
      Width = 385
      Height = 89
      Lines.Strings = (
        'Memo3')
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object Memo4: TMemo
      Left = 8
      Top = 136
      Width = 385
      Height = 156
      Lines.Strings = (
        'Memo4')
      ScrollBars = ssVertical
      TabOrder = 1
    end
    object Memo5: TMemo
      Left = 8
      Top = 312
      Width = 385
      Height = 49
      Lines.Strings = (
        'Memo5')
      ScrollBars = ssVertical
      TabOrder = 2
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 144
    Top = 328
    object N1: TMenuItem
      Caption = #26174#31034#25253#25991#20449#24687
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #38544#34255#25253#25991#20449#24687
      OnClick = N2Click
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 15000
    OnTimer = Timer1Timer
    Left = 648
    Top = 88
  end
end