main.dfm

来自「这是一套全面的网络组件」· DFM 代码 · 共 154 行

object MainForm: TMainForm
  Left = 304
  Top = 162
  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
  Position = poScreenCenter
  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 = 48
    Height = 13
    Caption = 'Response'
  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 = 'c:\aldz\'#25163#26426#30701#20449#28856#24377'\img\taobao2.bmp'
  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://taobao.hzexe.com/t/upload.aspx'
  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://taobao.hzexe.com/t/upload.aspx'
  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
    RequestMethod = 'POST'
    InternetAgent = 'Mozilla/4.0 (compatible; Clever Internet Suite)'
    HttpRequest = clHttpRequest
    OnStatusChanged = clUploaderStatusChanged
    OnProcessCompleted = clUploaderProcessCompleted
    Left = 148
    Top = 227
  end
  object clHttpRequest: TclHttpRequest
    Header.Connection = 'Keep-Alive'
    Header.ContentType = 'multipart/form-data'
    Header.Accept = 'text/html, */*'
    Header.AcceptLanguage = 'en-us'
    Left = 242
    Top = 228
    Items = (
      'TclSubmitFileRequestItem'
      True
      'eeee'
      'c:\aldz\'#25163#26426#30701#20449#28856#24377'\img\taobao2.bmp'
      'application/octet-stream')
  end
end