main.dfm

这是一套全面的网络组件

object Form1: TForm1
  Left = 247
  Top = 114
  BorderStyle = bsDialog
  Caption = 'Publish FTP dir demo'
  ClientHeight = 345
  ClientWidth = 488
  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 Label1: TLabel
    Left = 24
    Top = 8
    Width = 436
    Height = 26
    Caption = 
      'This demo shows how to publish the local folder structure includ' +
      'ing sub-dirs and files into the remote FTP directory.'
    WordWrap = True
  end
  object Label2: TLabel
    Left = 24
    Top = 48
    Width = 315
    Height = 13
    Caption = 
      'Please specify the source folder and the  destination FTP direct' +
      'ory.'
  end
  object Label3: TLabel
    Left = 24
    Top = 72
    Width = 95
    Height = 13
    Caption = 'Source Local Folder'
  end
  object Label4: TLabel
    Left = 24
    Top = 96
    Width = 65
    Height = 13
    Caption = 'FTP Directory'
  end
  object Label5: TLabel
    Left = 24
    Top = 120
    Width = 45
    Height = 13
    Caption = 'FTP User'
  end
  object Label6: TLabel
    Left = 24
    Top = 144
    Width = 69
    Height = 13
    Caption = 'FTP Password'
  end
  object Label7: TLabel
    Left = 24
    Top = 208
    Width = 18
    Height = 13
    Caption = 'Log'
  end
  object Label8: TLabel
    Left = 264
    Top = 128
    Width = 82
    Height = 13
    Caption = 'Publish File Mask'
  end
  object edtLocalFolder: TEdit
    Left = 128
    Top = 72
    Width = 337
    Height = 21
    TabOrder = 0
    Text = 'c:\forpublish'
  end
  object edtFtpDir: TEdit
    Left = 128
    Top = 96
    Width = 337
    Height = 21
    TabOrder = 1
    Text = 'ftp://myserver/forpublish'
  end
  object edtUser: TEdit
    Left = 128
    Top = 120
    Width = 121
    Height = 21
    TabOrder = 2
    Text = 'CleverTester'
  end
  object edtPassword: TEdit
    Left = 128
    Top = 144
    Width = 121
    Height = 21
    PasswordChar = '*'
    TabOrder = 3
    Text = 'clevertester'
  end
  object cbPassiveMode: TCheckBox
    Left = 264
    Top = 152
    Width = 145
    Height = 17
    Caption = 'Use FTP Passive Mode'
    TabOrder = 4
  end
  object btnPublish: TButton
    Left = 24
    Top = 176
    Width = 75
    Height = 25
    Caption = 'Publish'
    TabOrder = 5
    OnClick = btnPublishClick
  end
  object btnStop: TButton
    Left = 128
    Top = 176
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 6
    OnClick = btnStopClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 326
    Width = 488
    Height = 19
    Panels = <
      item
        Text = 'Ready'
        Width = 50
      end>
  end
  object memLog: TMemo
    Left = 0
    Top = 228
    Width = 488
    Height = 98
    Align = alBottom
    TabOrder = 7
  end
  object edtFileMask: TEdit
    Left = 360
    Top = 128
    Width = 105
    Height = 21
    TabOrder = 9
    Text = '*.*'
  end
  object clMultiUploader: TclMultiUploader
    UploadList = <>
    InternetAgent = 'Mozilla/4.0 (compatible; Clever Internet Suite)'
    PublishFileMask = '*.*'
    OnIsBusyChanged = clMultiUploaderIsBusyChanged
    OnProcessCompleted = clMultiUploaderProcessCompleted
    OnPrepareItemToPublish = clMultiUploaderPrepareItemToPublish
    Left = 136
    Top = 248
  end
end