Clever-Internet-Suite-Examples/Delphi/HttpClientProxy/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
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
inherited Form1: TForm1
  Left = 269
  Top = 167
  Caption = 'HTTP GET with Proxy - 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 = 185
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 34
        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.'
      end
      object Label3: TLabel
        Left = 16
        Top = 60
        Width = 22
        Height = 13
        Caption = 'User'
      end
      object Label4: TLabel
        Left = 220
        Top = 62
        Width = 46
        Height = 13
        Caption = 'Password'
      end
      object Bevel1: TBevel
        Left = 8
        Top = 88
        Width = 605
        Height = 2
      end
      object Label5: TLabel
        Left = 232
        Top = 101
        Width = 32
        Height = 13
        Caption = 'Server'
      end
      object Label6: TLabel
        Left = 538
        Top = 101
        Width = 20
        Height = 13
        Caption = 'Port'
      end
      object Label7: TLabel
        Left = 16
        Top = 134
        Width = 22
        Height = 13
        Caption = 'User'
      end
      object Label8: TLabel
        Left = 220
        Top = 133
        Width = 46
        Height = 13
        Caption = 'Password'
      end
      object Label9: TLabel
        Left = 16
        Top = 101
        Width = 24
        Height = 13
        Caption = 'Type'
      end
      object edtUrl: TEdit
        Left = 56
        Top = 32
        Width = 473
        Height = 21
        TabOrder = 0
        Text = 'http://www.microsoft.com'
      end
      object Button1: TButton
        Left = 538
        Top = 29
        Width = 73
        Height = 25
        Caption = 'GET'
        TabOrder = 1
        OnClick = Button1Click
      end
      object cbShowText: TCheckBox
        Left = 56
        Top = 163
        Width = 97
        Height = 17
        Caption = 'Show text only'
        TabOrder = 9
      end
      object edtUser: TEdit
        Left = 56
        Top = 59
        Width = 145
        Height = 21
        TabOrder = 2
      end
      object edtPassword: TEdit
        Left = 272
        Top = 59
        Width = 201
        Height = 21
        PasswordChar = '*'
        TabOrder = 3
      end
      object edtProxyServer: TEdit
        Left = 272
        Top = 98
        Width = 201
        Height = 21
        TabOrder = 5
        Text = 'proxyserver'
      end
      object edtProxyPort: TEdit
        Left = 564
        Top = 98
        Width = 49
        Height = 21
        TabOrder = 6
        Text = '8080'
      end
      object edtProxyUser: TEdit
        Left = 56
        Top = 131
        Width = 145
        Height = 21
        TabOrder = 7
      end
      object edtProxyPassword: TEdit
        Left = 272
        Top = 131
        Width = 201
        Height = 21
        PasswordChar = '*'
        TabOrder = 8
      end
      object cbProxyType: TComboBox
        Left = 56
        Top = 98
        Width = 145
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 4
        Text = 'HTTP Proxy'
        OnChange = cbProxyTypeChange
        Items.Strings = (
          'HTTP Proxy'
          'SOCKS4 Firewall'
          'SOCKS5 Firewall')
      end
    end
    object memResult: TMemo
      Left = 0
      Top = 185
      Width = 623
      Height = 179
      Align = alClient
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 1
      WordWrap = False
    end
  end
  object clHttp1: TclHttp
    UserAgent = 'Mozilla/4.0 (compatible; Clever Internet Suite)'
    KeepConnection = False
    Left = 144
    Top = 248
  end
  object clHtmlParser1: TclHtmlParser
    ParseMethod = pmTextOnly
    OnParseTag = clHtmlParser1ParseTag
    Left = 184
    Top = 248
  end
end