main.dfm

这是一套全面的网络组件

object UploaderTest: TUploaderTest
  Left = 258
  Top = 189
  BorderStyle = bsDialog
  Caption = 'Uploader'
  ClientHeight = 404
  ClientWidth = 598
  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 Label1: TLabel
    Left = 7
    Top = 92
    Width = 22
    Height = 13
    Caption = 'URL'
  end
  object Label2: TLabel
    Left = 305
    Top = 90
    Width = 16
    Height = 13
    Caption = 'File'
  end
  object Label3: TLabel
    Left = 7
    Top = 312
    Width = 34
    Height = 13
    Caption = 'Current'
  end
  object Label4: TLabel
    Left = 7
    Top = 272
    Width = 27
    Height = 13
    Caption = 'Errors'
  end
  object Label6: TLabel
    Left = 7
    Top = 119
    Width = 22
    Height = 13
    Caption = 'User'
  end
  object Label7: TLabel
    Left = 7
    Top = 143
    Width = 43
    Height = 13
    Caption = 'URL Info'
  end
  object Label9: TLabel
    Left = 304
    Top = 118
    Width = 46
    Height = 13
    Caption = 'Password'
  end
  object clProgressBar1: TclProgressBar
    Left = 59
    Top = 336
    Width = 531
    Height = 19
    Options = [dpDrawTotal]
    ProgressSplit = 50
    InternetControl = clUploader1
  end
  object Label5: TLabel
    Left = 16
    Top = 8
    Width = 477
    Height = 13
    Caption = 
      'This demo uploads the file to the server via the following Netwo' +
      'rk protocols: HTTP, HTTPS and FTP.'
  end
  object Label13: TLabel
    Left = 16
    Top = 24
    Width = 459
    Height = 13
    Caption = 
      'Please set the "http://" URL value for HTTP protocol, "https://"' +
      ' for HTTPS and "ftp://" for FTP.'
  end
  object Label8: TLabel
    Left = 16
    Top = 48
    Width = 559
    Height = 26
    Caption = 
      'Please note ! For uploading files via HTTP / HTTPS protocol, the' +
      ' "PUT" HTTP request method is used. So the HTTP server directory' +
      ' must have the appropriate security permissions. For IIS 6 serve' +
      'r, WebDAV must be enabled.'
    WordWrap = True
  end
  object btnUpload: TButton
    Left = 515
    Top = 365
    Width = 75
    Height = 25
    Caption = 'Upload'
    TabOrder = 9
    OnClick = btnUploadClick
  end
  object edtURL: TEdit
    Left = 58
    Top = 88
    Width = 234
    Height = 21
    TabOrder = 0
    Text = 'edtURL'
    OnChange = edtURLChange
  end
  object edtFile: TEdit
    Left = 355
    Top = 88
    Width = 234
    Height = 21
    TabOrder = 1
    Text = 'edtFile'
    OnChange = edtFileChange
  end
  object Edit1: TEdit
    Left = 58
    Top = 310
    Width = 532
    Height = 21
    ReadOnly = True
    TabOrder = 6
  end
  object btnGetInfo: TButton
    Left = 351
    Top = 365
    Width = 75
    Height = 25
    Caption = 'Get Info'
    TabOrder = 7
    OnClick = btnGetInfoClick
  end
  object memErrors: TMemo
    Left = 58
    Top = 244
    Width = 532
    Height = 61
    ReadOnly = True
    TabOrder = 5
  end
  object edtUser: TEdit
    Left = 58
    Top = 115
    Width = 235
    Height = 21
    TabOrder = 2
    OnChange = edtUserChange
  end
  object edtPassword: TEdit
    Left = 355
    Top = 114
    Width = 234
    Height = 21
    PasswordChar = '*'
    TabOrder = 3
    OnChange = edtPasswordChange
  end
  object btnStop: TButton
    Left = 433
    Top = 365
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 8
    OnClick = btnStopClick
  end
  object memInfo: TMemo
    Left = 58
    Top = 143
    Width = 531
    Height = 96
    ReadOnly = True
    TabOrder = 4
  end
  object clUploader1: TclUploader
    URL = 'http://www.domain.com/uploads/Uploader.dpr'
    LocalFile = 'Uploader.dpr'
    RequestMethod = 'PUT'
    InternetAgent = 'Mozilla/4.0 (compatible; Clever Internet Suite)'
    OnGetResourceInfo = clUploader1GetResourceInfo
    OnStatusChanged = clUploader1StatusChanged
    OnDataItemProceed = clUploader1DataItemProceed
    OnError = clUploader1Error
    OnUrlParsing = clUploader1URLParsing
    OnChanged = clUploader1Changed
    Left = 184
    Top = 102
  end
end