Clever-Internet-Suite-Examples/Delphi/HttpClientSSL/main.dfm at master · CleverComponents/Clever-Internet-Suite-Examples · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
inherited Form1: TForm1
  Left = 269
  Top = 167
  Caption = 'HTTPS GET with SSL - Sample'
  Constraints.MinHeight = 480
  Constraints.MinWidth = 639
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnlMain: TPanel
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 623
      Height = 105
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 35
        Width = 19
        Height = 13
        Caption = 'URL'
      end
      object Label2: TLabel
        Left = 16
        Top = 8
        Width = 385
        Height = 13
        Caption =
          'Type in the URL and click the '#39'GET'#39' button to retreive the page ' +
          'specified by URL.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 16
        Top = 60
        Width = 22
        Height = 13
        Caption = 'User'
      end
      object Label4: TLabel
        Left = 197
        Top = 61
        Width = 46
        Height = 13
        Caption = 'Password'
      end
      object edtUrl: TEdit
        Left = 48
        Top = 32
        Width = 481
        Height = 21
        TabOrder = 0
        Text = 'https://www.microsoft.com'
      end
      object Button1: TButton
        Left = 536
        Top = 30
        Width = 73
        Height = 25
        Caption = 'GET'
        TabOrder = 1
        OnClick = Button1Click
      end
      object cbShowText: TCheckBox
        Left = 48
        Top = 84
        Width = 97
        Height = 17
        Caption = 'Show text only'
        TabOrder = 4
      end
      object edtUser: TEdit
        Left = 48
        Top = 59
        Width = 121
        Height = 21
        TabOrder = 2
      end
      object edtPassword: TEdit
        Left = 248
        Top = 59
        Width = 113
        Height = 21
        PasswordChar = '*'
        TabOrder = 3
      end
    end
    object memResult: TMemo
      Left = 0
      Top = 105
      Width = 623
      Height = 259
      Align = alClient
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 1
      WordWrap = False
    end
  end
  object clHttp1: TclHttp
    OnVerifyServer = clHttp1VerifyServer
    UserAgent = 'Mozilla/4.0 (compatible; Clever Internet Suite)'
    Left = 144
    Top = 176
  end
  object clHtmlParser1: TclHtmlParser
    ParseMethod = pmTextOnly
    OnParseTag = clHtmlParser1ParseTag
    Left = 192
    Top = 176
  end
  object clCertificateStore1: TclCertificateStore
    StoreName = 'MY'
    CSP = 'Microsoft Base Cryptographic Provider v1.0'
    ValidFrom = 40003.000000000000000000
    ValidTo = 40368.000000000000000000
    Left = 240
    Top = 176
  end
end