main.dfm

这是一套全面的网络组件

object Form1: TForm1
  Left = 269
  Top = 167
  Width = 462
  Height = 381
  Caption = 'HTTPS 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 = 105
    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 Label3: TLabel
      Left = 16
      Top = 56
      Width = 22
      Height = 13
      Caption = 'User'
    end
    object Label4: TLabel
      Left = 192
      Top = 56
      Width = 46
      Height = 13
      Caption = 'Password'
    end
    object edtUrl: TEdit
      Left = 56
      Top = 32
      Width = 305
      Height = 21
      TabOrder = 0
      Text = 'https://www.paypal.com'
    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 = 80
      Width = 97
      Height = 17
      Caption = 'Show text only'
      TabOrder = 4
    end
    object edtUser: TEdit
      Left = 56
      Top = 56
      Width = 113
      Height = 21
      TabOrder = 2
    end
    object edtPassword: TEdit
      Left = 248
      Top = 56
      Width = 113
      Height = 21
      TabOrder = 3
    end
  end
  object memResult: TMemo
    Left = 0
    Top = 105
    Width = 454
    Height = 242
    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 = <>
    OnVerifyServer = clHttp1VerifyServer
    Left = 144
    Top = 176
  end
  object clHtmlParser1: TclHtmlParser
    ParseMethod = pmTextOnly
    OnParseTag = clHtmlParser1ParseTag
    Left = 192
    Top = 176
  end
  object clCertificateStore1: TclCertificateStore
    Left = 240
    Top = 176
  end
end