main.dfm

Clever Internet Suite 4.0 source

object MainForm: TMainForm
  Left = 286
  Top = 55
  BorderStyle = bsDialog
  Caption = 'Upload a file using POST request'
  ClientHeight = 314
  ClientWidth = 540
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 16
    Top = 50
    Width = 16
    Height = 13
    Caption = 'File'
  end
  object Label5: TLabel
    Left = 16
    Top = 98
    Width = 22
    Height = 13
    Caption = 'Host'
  end
  object clProgressBar1: TclProgressBar
    Left = 16
    Top = 179
    Width = 433
    Height = 8
    Options = [dpDrawTotal]
    InternetControl = clUploader
  end
  object Label1: TLabel
    Left = 16
    Top = 197
    Width = 30
    Height = 13
    Caption = 'Result'
  end
  object Label2: TLabel
    Left = 16
    Top = 5
    Width = 131
    Height = 13
    Caption = 'Try the original web page at'
  end
  object edtFile: TEdit
    Left = 16
    Top = 66
    Width = 433
    Height = 21
    TabOrder = 2
    Text = 'SubmitFileHTTP.dpr'
  end
  object btnBrowse: TButton
    Left = 455
    Top = 64
    Width = 75
    Height = 25
    Caption = '&Browse...'
    TabOrder = 3
    OnClick = btnBrowseClick
  end
  object btnStart: TButton
    Left = 16
    Top = 145
    Width = 75
    Height = 25
    Caption = '&Send File'
    TabOrder = 5
    OnClick = btnStartClick
  end
  object edtHost: TEdit
    Left = 16
    Top = 115
    Width = 433
    Height = 21
    TabOrder = 4
    Text = 
      'http://www.clevercomponents.com/products/inetsuite/demos/servers' +
      'ubmitfile.asp'
  end
  object Memo1: TMemo
    Left = 16
    Top = 217
    Width = 433
    Height = 89
    ReadOnly = True
    TabOrder = 7
  end
  object btnStop: TButton
    Left = 98
    Top = 145
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 6
    OnClick = btnStopClick
  end
  object edtViewPage: TEdit
    Left = 16
    Top = 21
    Width = 433
    Height = 21
    Color = clBtnFace
    ReadOnly = True
    TabOrder = 0
    Text = 
      'http://www.clevercomponents.com/products/inetsuite/demos/submitf' +
      'ile.asp'
  end
  object btnView: TButton
    Left = 455
    Top = 19
    Width = 75
    Height = 25
    Caption = '&View...'
    TabOrder = 1
    OnClick = btnViewClick
  end
  object OpenDialog1: TOpenDialog
    Left = 354
    Top = 61
  end
  object clUploader: TclUploader
    UseHTTPRequest = True
    InternetAgent = 'Clever Internet Suite'
    HTTPRequest = clHttpRequestBuilder
    OnStatusChanged = clUploaderStatusChanged
    OnGetServerResponse = clUploaderGetServerResponse
    Left = 148
    Top = 227
  end
  object clHttpRequestBuilder: TclHttpRequestBuilder
    Header.Accept = 'text/html, */*'
    Header.AcceptLanguage = 'en-us'
    Header.Connection = 'Keep-Alive'
    Header.ContentLength = 0
    Header.ContentType = 'multipart/form-data;boundary='
    RequestType = rtMultiPartData
    Left = 242
    Top = 228
    Items = (
      'TclSubmitFileRequestItem'
      'FileName'
      ''
      'application/octet-stream')
  end
end