home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 200
- Top = 108
- Width = 500
- Height = 360
- Caption = 'HTTP Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- PixelsPerInch = 120
- TextHeight = 16
- object PageControl1: TPageControl
- Left = 0
- Top = 0
- Width = 492
- Height = 310
- ActivePage = TabSheet3
- Align = alClient
- TabOrder = 0
- object TabSheet4: TTabSheet
- Caption = 'Header Information'
- object Label13: TLabel
- Left = 54
- Top = 38
- Width = 49
- Height = 16
- Caption = 'Cookie: '
- end
- object Label14: TLabel
- Left = 9
- Top = 68
- Width = 98
- Height = 16
- Caption = 'E-Mail Address: '
- end
- object Label15: TLabel
- Left = 11
- Top = 97
- Width = 94
- Height = 16
- Caption = 'Local Program: '
- end
- object Label16: TLabel
- Left = 50
- Top = 127
- Width = 51
- Height = 16
- Caption = 'Referer: '
- end
- object Label17: TLabel
- Left = 53
- Top = 156
- Width = 48
- Height = 16
- Caption = 'UserID: '
- end
- object Label18: TLabel
- Left = 38
- Top = 186
- Width = 66
- Height = 16
- Caption = 'Password: '
- end
- object Label19: TLabel
- Left = 98
- Top = 5
- Width = 168
- Height = 16
- Caption = 'Request Header Information'
- end
- object Label20: TLabel
- Left = 326
- Top = 34
- Width = 83
- Height = 16
- Caption = 'Proxy Server: '
- end
- object Label21: TLabel
- Left = 326
- Top = 84
- Width = 67
- Height = 16
- Caption = 'Proxy Port: '
- end
- object Edit5: TEdit
- Left = 105
- Top = 33
- Width = 149
- Height = 24
- TabOrder = 0
- end
- object Edit6: TEdit
- Left = 105
- Top = 63
- Width = 149
- Height = 24
- TabOrder = 1
- end
- object Edit7: TEdit
- Left = 105
- Top = 92
- Width = 149
- Height = 24
- TabOrder = 2
- end
- object Edit8: TEdit
- Left = 105
- Top = 122
- Width = 149
- Height = 24
- TabOrder = 3
- end
- object Edit9: TEdit
- Left = 105
- Top = 151
- Width = 149
- Height = 24
- TabOrder = 4
- end
- object Edit10: TEdit
- Left = 105
- Top = 181
- Width = 149
- Height = 24
- TabOrder = 5
- end
- object CheckBox1: TCheckBox
- Left = 335
- Top = 10
- Width = 129
- Height = 21
- Caption = 'Use Proxy Server'
- TabOrder = 6
- end
- object Edit11: TEdit
- Left = 325
- Top = 53
- Width = 149
- Height = 24
- TabOrder = 7
- end
- object Edit12: TEdit
- Left = 325
- Top = 101
- Width = 31
- Height = 24
- TabOrder = 8
- end
- end
- object TabSheet1: TTabSheet
- Caption = 'Get Example'
- object Label2: TLabel
- Left = 0
- Top = 135
- Width = 484
- Height = 16
- Align = alBottom
- Alignment = taCenter
- Caption = 'Document Body'
- end
- object Label3: TLabel
- Left = 0
- Top = 119
- Width = 484
- Height = 16
- Align = alBottom
- Alignment = taCenter
- Caption = 'Document Header'
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 484
- Height = 50
- Align = alTop
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- object Label1: TLabel
- Left = 21
- Top = 17
- Width = 57
- Height = 16
- Caption = 'Location: '
- end
- object SpeedButton1: TSpeedButton
- Left = 417
- Top = 30
- Width = 11
- Height = 11
- Hint = 'Clear Body & Header Fields'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = SpeedButton1Click
- end
- object Label8: TLabel
- Left = 385
- Top = 10
- Width = 80
- Height = 16
- Caption = 'Clear Memos'
- end
- object Edit1: TEdit
- Left = 79
- Top = 12
- Width = 198
- Height = 24
- TabOrder = 0
- end
- object Button1: TButton
- Left = 281
- Top = 10
- Width = 92
- Height = 31
- Caption = 'Get'
- TabOrder = 1
- OnClick = Button1Click
- end
- end
- object Memo1: TMemo
- Left = 0
- Top = 151
- Width = 484
- Height = 128
- Align = alBottom
- TabOrder = 1
- end
- object Memo2: TMemo
- Left = 0
- Top = 48
- Width = 484
- Height = 71
- Align = alBottom
- TabOrder = 2
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Post Example'
- object Label6: TLabel
- Left = 0
- Top = 263
- Width = 484
- Height = 16
- Align = alBottom
- Alignment = taCenter
- Caption = 'Document Body'
- end
- object Label7: TLabel
- Left = 0
- Top = 157
- Width = 484
- Height = 16
- Align = alBottom
- Alignment = taCenter
- Caption = 'Document Header'
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 484
- Height = 90
- Align = alTop
- TabOrder = 0
- object Label4: TLabel
- Left = 15
- Top = 17
- Width = 57
- Height = 16
- Caption = 'Location: '
- end
- object Label5: TLabel
- Left = 7
- Top = 48
- Width = 65
- Height = 16
- Caption = 'Post Data: '
- end
- object SpeedButton2: TSpeedButton
- Left = 416
- Top = 69
- Width = 11
- Height = 11
- Hint = 'Clear Body & Header Fields'
- OnClick = SpeedButton2Click
- end
- object Label9: TLabel
- Left = 385
- Top = 49
- Width = 80
- Height = 16
- Caption = 'Clear Memos'
- end
- object Edit2: TEdit
- Left = 75
- Top = 12
- Width = 202
- Height = 24
- TabOrder = 0
- end
- object Edit3: TEdit
- Left = 75
- Top = 43
- Width = 202
- Height = 24
- TabOrder = 1
- end
- object Button2: TButton
- Left = 288
- Top = 26
- Width = 92
- Height = 31
- Caption = 'Post'
- TabOrder = 2
- OnClick = Button2Click
- end
- end
- object Memo3: TMemo
- Left = 0
- Top = 173
- Width = 484
- Height = 90
- Align = alBottom
- TabOrder = 1
- end
- object Memo4: TMemo
- Left = 0
- Top = 88
- Width = 484
- Height = 69
- Align = alBottom
- TabOrder = 2
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'Head Example'
- object Label12: TLabel
- Left = 0
- Top = 50
- Width = 484
- Height = 16
- Align = alTop
- Alignment = taCenter
- AutoSize = False
- Caption = 'Header Retrieved'
- end
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 484
- Height = 50
- Align = alTop
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- object Label10: TLabel
- Left = 21
- Top = 17
- Width = 57
- Height = 16
- Caption = 'Location: '
- end
- object SpeedButton3: TSpeedButton
- Left = 417
- Top = 30
- Width = 11
- Height = 11
- Hint = 'Clear Body & Header Fields'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = SpeedButton3Click
- end
- object Label11: TLabel
- Left = 385
- Top = 10
- Width = 73
- Height = 16
- Caption = 'Clear Memo'
- end
- object Edit4: TEdit
- Left = 79
- Top = 12
- Width = 188
- Height = 24
- TabOrder = 0
- end
- object Button3: TButton
- Left = 276
- Top = 10
- Width = 92
- Height = 31
- Caption = 'Get Header'
- TabOrder = 1
- OnClick = Button3Click
- end
- end
- object Memo5: TMemo
- Left = 0
- Top = 66
- Width = 484
- Height = 213
- Align = alClient
- TabOrder = 1
- end
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 310
- Width = 492
- Height = 23
- Panels = <>
- SimplePanel = True
- end
- object NMHTTP1: TNMHTTP
- Port = 0
- ReportLevel = 0
- OnDisconnect = NMHTTP1Disconnect
- OnConnect = NMHTTP1Connect
- OnInvalidHost = NMHTTP1InvalidHost
- OnHostResolved = NMHTTP1HostResolved
- OnStatus = NMHTTP1Status
- OnConnectionFailed = NMHTTP1ConnectionFailed
- OnPacketRecvd = NMHTTP1PacketRecvd
- OnPacketSent = NMHTTP1PacketSent
- Body = 'Default.htm'
- Header = 'Head.txt'
- InputFileMode = False
- OutputFileMode = False
- OnSuccess = NMHTTP1Success
- OnFailure = NMHTTP1Failure
- ProxyPort = 0
- Left = 4
- Top = 264
- end
- end
-