InterCD 2000 February/february_2000.iso/security/Locker4Net/locker.ex0/0/RCDATA/TFTPRECEIVEFORM/TFTPRECEIVEFORM.txt

Text File | 1999-12-06 | 12.1 KB | 578 lines

object FtpReceiveForm: TFtpReceiveForm
  Left = 320
  Top = 304
  Width = 640
  Height = 428
  Caption = 'FTP'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object DisplayMemo: TMemo
    Left = 0
    Top = 241
    Width = 632
    Height = 158
    Hint = 'This area show the activity with the host'
    Align = alClient
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'DisplayMemo')
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssBoth
    ShowHint = True
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 121
    Width = 632
    Height = 120
    Align = alTop
    TabOrder = 1
    object InfoLabel: TLabel
      Left = 512
      Top = 6
      Width = 60
      Height = 16
      Caption = 'InfoLabel'
    end
    object StateLabel: TLabel
      Left = 512
      Top = 25
      Width = 69
      Height = 16
      Caption = 'StateLabel'
    end
    object OpenAsyncButton: TButton
      Left = 8
      Top = 6
      Width = 81
      Height = 17
      Caption = 'Open'
      TabOrder = 0
      OnClick = OpenAsyncButtonClick
    end
    object QuitAsyncButton: TButton
      Left = 8
      Top = 24
      Width = 81
      Height = 17
      Caption = 'Quit'
      TabOrder = 1
      OnClick = QuitAsyncButtonClick
    end
    object CwdAsyncButton: TButton
      Left = 254
      Top = 6
      Width = 81
      Height = 17
      Caption = 'Cwd'
      TabOrder = 2
      OnClick = CwdAsyncButtonClick
    end
    object UserAsyncButton: TButton
      Left = 90
      Top = 6
      Width = 81
      Height = 17
      Caption = 'User'
      TabOrder = 3
      OnClick = UserAsyncButtonClick
    end
    object PassAsyncButton: TButton
      Left = 172
      Top = 6
      Width = 81
      Height = 17
      Caption = 'Pass'
      TabOrder = 4
      OnClick = PassAsyncButtonClick
    end
    object ConnectAsyncButton: TButton
      Left = 90
      Top = 24
      Width = 81
      Height = 17
      Caption = 'Connect'
      TabOrder = 5
      OnClick = ConnectAsyncButtonClick
    end
    object GetAsyncButton: TButton
      Left = 8
      Top = 42
      Width = 81
      Height = 17
      Caption = 'Get'
      TabOrder = 6
      OnClick = GetAsyncButtonClick
    end
    object ReceiveAsyncButton: TButton
      Left = 8
      Top = 60
      Width = 81
      Height = 17
      Caption = 'Receive'
      TabOrder = 7
      OnClick = ReceiveAsyncButtonClick
    end
    object AbortAsyncButton: TButton
      Left = 172
      Top = 24
      Width = 81
      Height = 17
      Caption = 'Abort'
      TabOrder = 8
      OnClick = AbortAsyncButtonClick
    end
    object DirAsyncButton: TButton
      Left = 172
      Top = 78
      Width = 81
      Height = 17
      Caption = 'Dir'
      TabOrder = 9
      OnClick = DirAsyncButtonClick
    end
    object DirectoryAsyncButton: TButton
      Left = 172
      Top = 96
      Width = 81
      Height = 17
      Caption = 'Directory'
      TabOrder = 10
      OnClick = DirectoryAsyncButtonClick
    end
    object LsAsyncButton: TButton
      Left = 254
      Top = 78
      Width = 81
      Height = 17
      Caption = 'Ls'
      TabOrder = 11
      OnClick = LsAsyncButtonClick
    end
    object ListAsyncButton: TButton
      Left = 254
      Top = 96
      Width = 81
      Height = 17
      Caption = 'List'
      TabOrder = 12
      OnClick = ListAsyncButtonClick
    end
    object SystAsyncButton: TButton
      Left = 418
      Top = 6
      Width = 81
      Height = 17
      Caption = 'Syst'
      TabOrder = 13
      OnClick = SystAsyncButtonClick
    end
    object SystemAsyncButton: TButton
      Left = 418
      Top = 24
      Width = 81
      Height = 17
      Caption = 'System'
      TabOrder = 14
      OnClick = SystemAsyncButtonClick
    end
    object FileSizeAsyncButton: TButton
      Left = 336
      Top = 60
      Width = 81
      Height = 17
      Caption = 'FileSize'
      TabOrder = 15
      OnClick = FileSizeAsyncButtonClick
    end
    object SizeAsyncButton: TButton
      Left = 338
      Top = 42
      Width = 81
      Height = 17
      Caption = 'Size'
      TabOrder = 16
      OnClick = SizeAsyncButtonClick
    end
    object MkdAsyncButton: TButton
      Left = 418
      Top = 42
      Width = 81
      Height = 17
      Caption = 'Mkd'
      TabOrder = 17
      OnClick = MkdAsyncButtonClick
    end
    object MkdirAsyncButton: TButton
      Left = 418
      Top = 60
      Width = 81
      Height = 17
      Caption = 'Mkdir'
      TabOrder = 18
      OnClick = MkdirAsyncButtonClick
    end
    object RmdAsyncButton: TButton
      Left = 418
      Top = 78
      Width = 81
      Height = 17
      Caption = 'Rmd'
      TabOrder = 19
      OnClick = RmdAsyncButtonClick
    end
    object RmdirAsyncButton: TButton
      Left = 418
      Top = 96
      Width = 81
      Height = 17
      Caption = 'Rmdir'
      TabOrder = 20
      OnClick = RmdirAsyncButtonClick
    end
    object RenAsyncButton: TButton
      Left = 8
      Top = 78
      Width = 81
      Height = 17
      Caption = 'Ren'
      TabOrder = 21
      OnClick = RenAsyncButtonClick
    end
    object RenameAsyncButton: TButton
      Left = 8
      Top = 96
      Width = 81
      Height = 17
      Caption = 'Rename'
      TabOrder = 22
      OnClick = RenameAsyncButtonClick
    end
    object DeleAsyncButton: TButton
      Left = 90
      Top = 78
      Width = 81
      Height = 17
      Caption = 'Dele'
      TabOrder = 23
      OnClick = DeleAsyncButtonClick
    end
    object DeleteAsyncButton: TButton
      Left = 90
      Top = 96
      Width = 81
      Height = 17
      Caption = 'Delete'
      TabOrder = 24
      OnClick = DeleteAsyncButtonClick
    end
    object PwdAsyncButton: TButton
      Left = 254
      Top = 24
      Width = 81
      Height = 17
      Caption = 'Pwd'
      TabOrder = 25
      OnClick = PwdAsyncButtonClick
    end
    object QuoteAsyncButton: TButton
      Left = 336
      Top = 78
      Width = 81
      Height = 17
      Caption = 'Quote'
      TabOrder = 26
      OnClick = QuoteAsyncButtonClick
    end
    object DoQuoteAsyncButton: TButton
      Left = 336
      Top = 96
      Width = 81
      Height = 17
      Caption = 'DoQuote'
      TabOrder = 27
      OnClick = DoQuoteAsyncButtonClick
    end
    object PutAsyncButton: TButton
      Left = 90
      Top = 42
      Width = 81
      Height = 17
      Caption = 'Put'
      TabOrder = 28
      OnClick = PutAsyncButtonClick
    end
    object TransmitAsyncButton: TButton
      Left = 90
      Top = 60
      Width = 81
      Height = 17
      Caption = 'Transmit'
      TabOrder = 29
      OnClick = TransmitAsyncButtonClick
    end
    object TypeSetAsyncButton: TButton
      Left = 336
      Top = 6
      Width = 81
      Height = 17
      Caption = 'TypeSet'
      TabOrder = 30
      OnClick = TypeSetAsyncButtonClick
    end
    object RestGetAsyncButton: TButton
      Left = 172
      Top = 42
      Width = 81
      Height = 17
      Caption = 'RestGet'
      TabOrder = 31
      OnClick = RestGetAsyncButtonClick
    end
    object RestartGetAsyncButton: TButton
      Left = 172
      Top = 60
      Width = 81
      Height = 17
      Caption = 'RestartGet'
      TabOrder = 32
      OnClick = RestartGetAsyncButtonClick
    end
    object CDupAsyncButton: TButton
      Left = 336
      Top = 24
      Width = 81
      Height = 17
      Caption = 'CDup'
      TabOrder = 33
      OnClick = CDupAsyncButtonClick
    end
    object ClearButton: TButton
      Left = 512
      Top = 76
      Width = 105
      Height = 25
      Caption = 'Clear Display'
      TabOrder = 34
      OnClick = ClearButtonClick
    end
    object AppendFileAsyncButton: TButton
      Left = 254
      Top = 60
      Width = 81
      Height = 17
      Caption = 'AppendFile'
      TabOrder = 35
      OnClick = AppendFileAsyncButtonClick
    end
    object AppendAsyncButton: TButton
      Left = 256
      Top = 42
      Width = 81
      Height = 17
      Caption = 'Append'
      TabOrder = 36
      OnClick = AppendAsyncButtonClick
    end
    object SendBtn: TButton
      Left = 512
      Top = 47
      Width = 105
      Height = 25
      Caption = 'SendBtn'
      TabOrder = 37
      OnClick = SendBtnClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 632
    Height = 121
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 11
      Top = 12
      Width = 68
      Height = 16
      Caption = 'HostName'
    end
    object Label3: TLabel
      Left = 21
      Top = 67
      Width = 58
      Height = 16
      Caption = 'Host File'
    end
    object Label4: TLabel
      Left = 10
      Top = 39
      Width = 69
      Height = 16
      Caption = 'UserName'
    end
    object Label5: TLabel
      Left = 224
      Top = 39
      Width = 68
      Height = 16
      Caption = 'PassWord'
    end
    object Label2: TLabel
      Left = 16
      Top = 95
      Width = 63
      Height = 16
      Caption = 'Local File'
    end
    object Label6: TLabel
      Left = 264
      Top = 12
      Width = 26
      Height = 16
      Caption = 'Port'
    end
    object HostNameEdit: TEdit
      Left = 88
      Top = 8
      Width = 121
      Height = 24
      Hint = 'Host where the file is located'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = 'HostNameEdit'
    end
    object HostFileEdit: TEdit
      Left = 304
      Top = 64
      Width = 313
      Height = 24
      Hint = 'Enter the host file name or directory name for Mkdir and Rmdir'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Text = 'HostFileEdit'
    end
    object UserNameEdit: TEdit
      Left = 88
      Top = 36
      Width = 121
      Height = 24
      Hint = 'User name used to log on the host'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = 'UserNameEdit'
    end
    object PassWordEdit: TEdit
      Left = 304
      Top = 36
      Width = 169
      Height = 24
      Hint = 'Password used to validate user access'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = 'PassWordEdit'
    end
    object cbDisplay: TCheckBox
      Left = 480
      Top = 12
      Width = 121
      Height = 17
      Hint = 'Enable data display during file transfert'
      Caption = 'Display Data'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
    end
    object LocalFileEdit: TEdit
      Left = 88
      Top = 91
      Width = 529
      Height = 24
      Hint = 'Enter local file name and path or new file name for rename'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      Text = 'LocalFileEdit'
    end
    object cbBinary: TCheckBox
      Left = 376
      Top = 12
      Width = 105
      Height = 17
      Hint = 'Select to use binary mode transfert'
      Caption = 'Binary Mode'
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 7
    end
    object HostDirEdit: TEdit
      Left = 88
      Top = 64
      Width = 209
      Height = 24
      Hint = 'Enter the host directory where the file is located'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Text = 'HostDirEdit'
    end
    object PortEdit: TEdit
      Left = 304
      Top = 8
      Width = 57
      Height = 24
      TabOrder = 6
      Text = 'PortEdit'
    end
    object SyncCheckBox: TCheckBox
      Left = 480
      Top = 40
      Width = 121
      Height = 17
      Caption = 'Synchronous'
      TabOrder = 9
    end
    object PassiveCheckBox: TCheckBox
      Left = 480
      Top = 26
      Width = 129
      Height = 17
      Caption = 'Passive Mode'
      TabOrder = 10
    end
  end
  object FtpClient1: TFtpClient
    Timeout = 15
    MultiThreaded = False
    Port = 'ftp'
    DisplayFlag = False
    Binary = True
    ShareMode = ftpShareExclusive
    OnProgress = FtpClient1Progress
    OnSessionConnected = FtpClient1SessionConnected
    OnSessionClosed = FtpClient1SessionClosed
    OnRequestDone = FtpClient1RequestDone
    OnStateChange = FtpClient1StateChange
    Left = 24
    Top = 288
  end
end