QBasic & Borland Pascal & C/Delphi5.iso/Runimage/Delphi50/Demos/FastNet/Http/HTTPDEM.DFM/HTTPDEM.txt

Text File | 1999-08-11 | 9.6 KB | 448 lines

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