io Programmo 53/IOPROG_53.ISO/soft/c++/xceedftp.exe/Samples/Delphi/MethodDemo/Main.dfm/Main.txt

Text File | 2000-10-05 | 14.1 KB | 585 lines

object frmMain: TfrmMain
  Left = 253
  Top = 167
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Method Demonstrator sample application'
  ClientHeight = 422
  ClientWidth = 623
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 609
    Height = 33
    AutoSize = False
    Caption =
      'Each tab below demonstrates a major Xceed FTP Library method. Th' +
      'e tabs contain fields which represent properties associated with' +
      ' each method. Obtain tips by moving the mouse over each field. T' +
      'o execute the method, click on the buttons.'
    WordWrap = True
  end
  object Label7: TLabel
    Left = 376
    Top = 48
    Width = 89
    Height = 17
    AutoSize = False
    Caption = 'Items listed:'
  end
  object Label8: TLabel
    Left = 376
    Top = 264
    Width = 169
    Height = 13
    Caption = 'Log output, error codes and events:'
  end
  object tabExamples: TPageControl
    Left = 8
    Top = 48
    Width = 361
    Height = 345
    ActivePage = shtConnect
    TabOrder = 1
    object shtConnect: TTabSheet
      Caption = 'Connect/Disconnect'
      object Label3: TLabel
        Left = 8
        Top = 80
        Width = 81
        Height = 17
        AutoSize = False
        Caption = 'ServerAddress:'
      end
      object Label4: TLabel
        Left = 232
        Top = 80
        Width = 81
        Height = 17
        AutoSize = False
        Caption = 'ServerPort:'
      end
      object Label5: TLabel
        Left = 8
        Top = 120
        Width = 113
        Height = 17
        AutoSize = False
        Caption = 'UserName:'
      end
      object Label6: TLabel
        Left = 8
        Top = 160
        Width = 113
        Height = 17
        AutoSize = False
        Caption = 'Password:'
      end
      object lblConnectionInfo: TLabel
        Left = 8
        Top = 224
        Width = 337
        Height = 16
        Caption = 'Status: Not connected'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label13: TLabel
        Left = 8
        Top = 8
        Width = 329
        Height = 52
        Caption =
          'These methods allow you to connect and to disconnect from and FT' +
          'P server. The information required to connect to the FTP server ' +
          'is specified in the ServerAddress, ServerPort , UserName and Pas' +
          'sword properties.'
        WordWrap = True
      end
      object btConnect: TButton
        Left = 272
        Top = 248
        Width = 75
        Height = 25
        Caption = 'Connect'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = btConnectClick
      end
      object txtUsername: TEdit
        Left = 8
        Top = 136
        Width = 209
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        Text = 'anonymous'
      end
      object txtServerAddress: TEdit
        Left = 8
        Top = 96
        Width = 209
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Text = 'ftp.cdrom.com'
      end
      object txtServerPort: TEdit
        Left = 232
        Top = 96
        Width = 105
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        Text = '21'
      end
      object txtPassword: TEdit
        Left = 8
        Top = 176
        Width = 209
        Height = 21
        ParentShowHint = False
        PasswordChar = '*'
        ShowHint = True
        TabOrder = 3
        Text = 'guest'
      end
      object btDisconnect: TButton
        Left = 272
        Top = 280
        Width = 75
        Height = 25
        Caption = 'Disconnect'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = btDisconnectClick
      end
    end
    object shtList: TTabSheet
      Caption = 'List/Get'
      object Label9: TLabel
        Left = 8
        Top = 120
        Width = 129
        Height = 17
        AutoSize = False
        Caption = 'sRemoteFolder:'
      end
      object Label10: TLabel
        Left = 8
        Top = 8
        Width = 336
        Height = 39
        Caption =
          'The ListFolderContents and GetFolderContents methods allow you t' +
          'o list the items contained in a folder on the FTP server. The re' +
          'mote folder to list must be specified in the sRemoteFolder param' +
          'eter.'
        WordWrap = True
      end
      object Label14: TLabel
        Left = 8
        Top = 56
        Width = 330
        Height = 52
        Caption =
          'The ListFolderContents method triggers an event (ListingFolderIt' +
          'em) in order to provide information on each file contained in th' +
          'e remote folder. The GetFolderContents object returns an XceedFt' +
          'pFolderItems collection object containing all the listed items.'
        WordWrap = True
      end
      object txtRemoteFolder: TEdit
        Left = 8
        Top = 144
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object chkPassiveMode: TCheckBox
        Left = 8
        Top = 176
        Width = 113
        Height = 17
        Caption = 'PassiveMode'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object btListFolderContents: TButton
        Left = 232
        Top = 248
        Width = 115
        Height = 25
        Caption = 'ListFolderContents'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = btListFolderContentsClick
      end
      object btGetFolderContents: TButton
        Left = 232
        Top = 280
        Width = 115
        Height = 25
        Caption = 'GetFolderContents'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = btGetFolderContentsClick
      end
    end
    object shtSendReceive: TTabSheet
      Caption = 'Send/ReceiveFile'
      object Label17: TLabel
        Left = 8
        Top = 72
        Width = 137
        Height = 17
        AutoSize = False
        Caption = 'sLocalFilename:'
      end
      object Label20: TLabel
        Left = 8
        Top = 112
        Width = 97
        Height = 17
        AutoSize = False
        Caption = 'sRemoteFilename'
      end
      object Label11: TLabel
        Left = 8
        Top = 8
        Width = 335
        Height = 52
        Caption =
          'The SendFile and ReceiveFile methods alllow you to send and rece' +
          'ive files to and from an FTP server. The sLocalFilename paramete' +
          'r specifies the name of the local file to send or to receive to.' +
          ' The sRemoteFilename parameter is the file on the FTP server.'
        WordWrap = True
      end
      object lblSendReceiveInfo: TLabel
        Left = 8
        Top = 288
        Width = 257
        Height = 13
      end
      object txtLocalFilename: TEdit
        Left = 8
        Top = 88
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object txtRemoteFilename: TEdit
        Left = 8
        Top = 128
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object btSendFile: TButton
        Left = 272
        Top = 248
        Width = 75
        Height = 25
        Caption = 'SendFile'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnClick = btSendFileClick
      end
      object btReceiveFile: TButton
        Left = 272
        Top = 280
        Width = 75
        Height = 25
        Caption = 'ReceiveFile'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        OnClick = btReceiveFileClick
      end
      object chkAllocateStorage: TCheckBox
        Left = 8
        Top = 160
        Width = 337
        Height = 17
        Caption = 'AllocateStorage (When sending, some servers need this option)'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object chkAppend: TCheckBox
        Left = 8
        Top = 176
        Width = 337
        Height = 17
        Caption = 'Append (When sending, append to existing files)'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object chkPassiveMode2: TCheckBox
        Left = 8
        Top = 192
        Width = 337
        Height = 17
        Caption = 'PassiveMode (Server connects to client, good for firewalls)'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
      end
      object grpRepType: TGroupBox
        Left = 8
        Top = 224
        Width = 129
        Height = 57
        Caption = 'RepresentationType'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        object optAscii: TRadioButton
          Left = 8
          Top = 16
          Width = 105
          Height = 17
          Caption = 'ASCII'
          ParentShowHint = False
          ShowHint = False
          TabOrder = 0
        end
        object optBinary: TRadioButton
          Left = 8
          Top = 32
          Width = 105
          Height = 17
          Caption = 'Binary'
          Checked = True
          ParentShowHint = False
          ShowHint = False
          TabOrder = 1
          TabStop = True
        end
      end
    end
    object shtItemHandling: TTabSheet
      Caption = 'Item handling'
      object Label23: TLabel
        Left = 8
        Top = 56
        Width = 337
        Height = 17
        AutoSize = False
        Caption =
          'sFilename parameter (Remote filename for DeleteFile or RenameFil' +
          'e)'
      end
      object Label24: TLabel
        Left = 8
        Top = 136
        Width = 337
        Height = 17
        AutoSize = False
        Caption =
          'sNewFolder parameter (for CreateFolder) or sFolder (for RemoveFo' +
          'lder)'
      end
      object Label2: TLabel
        Left = 8
        Top = 96
        Width = 300
        Height = 13
        Caption = 'sNewName parameter (for RenameFile: the new filename to set)'
      end
      object Label12: TLabel
        Left = 8
        Top = 8
        Width = 337
        Height = 39
        Caption =
          'The following methods allow you to (if the user logged in has pe' +
          'rmission) delete and rename files as well as create and remove f' +
          'olders on the FTP server.'
        WordWrap = True
      end
      object txtRemoteFilenameModif: TEdit
        Left = 8
        Top = 72
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object txtRemoteFolderNameModif: TEdit
        Left = 8
        Top = 152
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object btDeleteFile: TButton
        Left = 264
        Top = 184
        Width = 83
        Height = 25
        Caption = 'DeleteFile'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = btDeleteFileClick
      end
      object txtNewName: TEdit
        Left = 8
        Top = 112
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object btRenameFile: TButton
        Left = 264
        Top = 216
        Width = 83
        Height = 25
        Caption = 'RenameFile'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = btRenameFileClick
      end
      object btCreateFolder: TButton
        Left = 264
        Top = 248
        Width = 83
        Height = 25
        Caption = 'CreateFolder'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = btCreateFolderClick
      end
      object btRemoveFolder: TButton
        Left = 264
        Top = 280
        Width = 83
        Height = 25
        Caption = 'RemoveFolder'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnClick = btRemoveFolderClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 400
    Width = 625
    Height = 25
    Align = alNone
    Panels = <
      item
        Text = 'File:'
        Width = 305
      end
      item
        Text = 'Global:'
        Width = 50
      end>
    SimplePanel = False
    SizeGrip = False
  end
  object barFile: TProgressBar
    Left = 40
    Top = 408
    Width = 257
    Height = 12
    Min = 0
    Max = 100
    TabOrder = 3
  end
  object barGlobal: TProgressBar
    Left = 360
    Top = 408
    Width = 257
    Height = 12
    Min = 0
    Max = 100
    TabOrder = 2
  end
  object xFtp: TXceedFtp
    Left = 584
    Top = 24
    Width = 30
    Height = 30
    OnDisconnected = xFtpDisconnected
    OnFileTransferStatus = xFtpFileTransferStatus
    OnListingFolderItem = xFtpListingFolderItem
    OnLoggingCommandLine = xFtpLoggingCommandLine
    OnReceivingFile = xFtpReceivingFile
    OnSendingFile = xFtpSendingFile
    OnSkippingFile = xFtpSkippingFile
    ControlData = {
      0003000008000200000000000B0000000B00000008000200000000000300D71F
      00000300010000000800020000000000020000000B00FFFF08000C0000006700
      7500650073007400000003000000000008000200000000000200150008001400
      000061006E006F006E0079006D006F0075007300000003000000000008000200
      000000000200380408000200000000000800020000000000}
  end
  object lstLogAndErrors: TListBox
    Left = 376
    Top = 280
    Width = 241
    Height = 113
    ItemHeight = 13
    TabOrder = 5
  end
  object lstFolderListing: TListView
    Left = 376
    Top = 64
    Width = 241
    Height = 193
    Columns = <
      item
        Caption = 'Filename'
        Width = 185
      end
      item
        Caption = 'Type'
      end>
    RowSelect = True
    TabOrder = 6
    ViewStyle = vsReport
  end
end