main.dfm

Delphi实现获取网页源码

object MainForm: TMainForm
  Left = 276
  Top = 127
  Width = 329
  Height = 381
  Caption = 'GetHTTPTest'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 8
    Top = 48
    Width = 305
    Height = 297
    ImeName = '茄惫绢(茄臂) (MS-IME98)'
    Lines.Strings = (
      '')
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 321
    Height = 41
    Align = alTop
    TabOrder = 1
    object edURL: TEdit
      Left = 8
      Top = 8
      Width = 217
      Height = 21
      ImeName = '茄惫绢(茄臂) (MS-IME98)'
      TabOrder = 0
      Text = 'edURL'
      OnKeyPress = edURLKeyPress
    end
    object btnGet: TButton
      Left = 240
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Get'
      TabOrder = 1
      OnClick = btnGetClick
    end
  end
end