main.dfm

这是一套全面的网络组件

object Form1: TForm1
  Left = 339
  Top = 170
  Width = 462
  Height = 381
  ActiveControl = Button1
  Caption = 'HTTP GET demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 454
    Height = 89
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 22
      Height = 13
      Caption = 'URL'
    end
    object Label2: TLabel
      Left = 16
      Top = 8
      Width = 386
      Height = 13
      Caption = 
        'Type in the URL and click the '#39'GET'#39' button to retreive the page ' +
        'specified by URL.'
    end
    object edtUrl: TEdit
      Left = 56
      Top = 32
      Width = 305
      Height = 21
      TabOrder = 0
      Text = 
        'http://www.google.com/search?ie=utf-8&oe=utf-8&num=10&q=%E9%94%A' +
        'E%E7%9B%98'
    end
    object Button1: TButton
      Left = 368
      Top = 32
      Width = 73
      Height = 25
      Caption = 'GET'
      TabOrder = 1
      OnClick = Button1Click
    end
    object cbShowText: TCheckBox
      Left = 56
      Top = 64
      Width = 97
      Height = 17
      Caption = 'Show text only'
      TabOrder = 2
    end
  end
  object memResult: TMemo
    Left = 0
    Top = 89
    Width = 454
    Height = 265
    Align = alClient
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 1
    WordWrap = False
  end
  object clHttp1: TclHttp
    UserAgent = 'Mozilla/4.0 (compatible; Clever Internet Suite 6.0)'
    Cookies = <>
    OnReceiveResponse = clHttp1ReceiveResponse
    Left = 152
    Top = 120
  end
  object clHtmlParser1: TclHtmlParser
    ParseMethod = pmTextOnly
    OnParseTag = clHtmlParser1ParseTag
    Left = 192
    Top = 120
  end
end