home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 195
- Top = 109
- Width = 525
- Height = 317
- Caption = 'FTP Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- OnCloseQuery = FormCloseQuery
- PixelsPerInch = 120
- TextHeight = 16
- object PageControl1: TPageControl
- Left = 0
- Top = 0
- Width = 517
- Height = 267
- ActivePage = TabSheet1
- Align = alClient
- MultiLine = True
- TabOrder = 0
- object TabSheet1: TTabSheet
- Caption = 'Account'
- object Label1: TLabel
- Left = 94
- Top = 15
- Width = 28
- Height = 16
- Caption = 'Host'
- end
- object Label2: TLabel
- Left = 98
- Top = 44
- Width = 24
- Height = 16
- Caption = 'Port'
- end
- object Label3: TLabel
- Left = 76
- Top = 76
- Width = 45
- Height = 16
- Caption = 'User ID'
- end
- object Label4: TLabel
- Left = 65
- Top = 107
- Width = 60
- Height = 16
- Caption = 'Password'
- end
- object Label16: TLabel
- Left = 327
- Top = 34
- Width = 77
- Height = 16
- Caption = 'Proxy Server'
- end
- object Label17: TLabel
- Left = 327
- Top = 98
- Width = 61
- Height = 16
- Caption = 'Proxy Port'
- end
- object HostTxt: TEdit
- Left = 134
- Top = 11
- Width = 149
- Height = 24
- TabOrder = 0
- Text = 'ftp.borland.com'
- end
- object PortTxt: TEdit
- Left = 134
- Top = 41
- Width = 35
- Height = 24
- TabOrder = 1
- Text = '21'
- end
- object Button1: TButton
- Left = 94
- Top = 175
- Width = 92
- Height = 31
- Caption = 'Connect'
- TabOrder = 2
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 186
- Top = 175
- Width = 92
- Height = 31
- Caption = 'Disconnect'
- TabOrder = 3
- OnClick = Button2Click
- end
- object UserTxt: TEdit
- Left = 134
- Top = 71
- Width = 149
- Height = 24
- TabOrder = 4
- Text = 'anonymous'
- end
- object PassTxt: TEdit
- Left = 134
- Top = 102
- Width = 149
- Height = 24
- TabOrder = 5
- Text = 'user@host.com'
- end
- object CheckBox1: TCheckBox
- Left = 326
- Top = 10
- Width = 128
- Height = 21
- Caption = 'Use Proxy Server'
- TabOrder = 6
- end
- object Edit6: TEdit
- Left = 325
- Top = 59
- Width = 149
- Height = 24
- TabOrder = 7
- end
- object Edit7: TEdit
- Left = 325
- Top = 118
- Width = 41
- Height = 24
- TabOrder = 8
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'File/Directory List'
- object Memo1: TMemo
- Left = 0
- Top = 66
- Width = 509
- Height = 149
- Align = alBottom
- TabOrder = 0
- end
- object Button3: TButton
- Left = 92
- Top = 12
- Width = 93
- Height = 30
- Caption = 'NList'
- TabOrder = 1
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 233
- Top = 12
- Width = 92
- Height = 30
- Caption = 'List'
- TabOrder = 2
- OnClick = Button4Click
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'ChangeDir'
- OnMouseMove = TabSheet3MouseMove
- object Label5: TLabel
- Left = 0
- Top = 0
- Width = 41
- Height = 16
- Align = alTop
- Alignment = taCenter
- Caption = 'Label5'
- end
- object Label6: TLabel
- Left = 80
- Top = 44
- Width = 93
- Height = 16
- Caption = 'Change Dir To: '
- end
- object DirTxt: TEdit
- Left = 174
- Top = 39
- Width = 148
- Height = 24
- TabOrder = 0
- end
- object Button5: TButton
- Left = 153
- Top = 75
- Width = 92
- Height = 31
- Caption = 'Change'
- TabOrder = 1
- OnClick = Button5Click
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'Download'
- object Label7: TLabel
- Left = 90
- Top = 34
- Width = 73
- Height = 16
- Caption = 'Remote File'
- end
- object Label8: TLabel
- Left = 106
- Top = 63
- Width = 58
- Height = 16
- Caption = 'Local File'
- end
- object RemoteTxt: TEdit
- Left = 174
- Top = 30
- Width = 149
- Height = 24
- TabOrder = 0
- end
- object LocalTxt: TEdit
- Left = 174
- Top = 59
- Width = 149
- Height = 24
- TabOrder = 1
- end
- object Button6: TButton
- Left = 113
- Top = 95
- Width = 93
- Height = 31
- Caption = 'Download'
- TabOrder = 2
- OnClick = Button6Click
- end
- object Button7: TButton
- Left = 231
- Top = 95
- Width = 93
- Height = 31
- Caption = 'Abort'
- TabOrder = 3
- OnClick = Button7Click
- end
- object Button8: TButton
- Left = 148
- Top = 134
- Width = 136
- Height = 31
- Caption = 'Download Restore'
- TabOrder = 4
- OnClick = Button8Click
- end
- end
- object TabSheet6: TTabSheet
- Caption = 'Upload'
- object Label11: TLabel
- Left = 86
- Top = 23
- Width = 58
- Height = 16
- Caption = 'Local File'
- end
- object Label12: TLabel
- Left = 71
- Top = 54
- Width = 73
- Height = 16
- Caption = 'Remote File'
- end
- object Label9: TLabel
- Left = 188
- Top = 185
- Width = 147
- Height = 16
- Caption = 'Position to Restore From'
- end
- object Edit3: TEdit
- Left = 154
- Top = 20
- Width = 149
- Height = 24
- TabOrder = 0
- end
- object Edit4: TEdit
- Left = 154
- Top = 49
- Width = 149
- Height = 24
- TabOrder = 1
- end
- object Button10: TButton
- Left = 188
- Top = 94
- Width = 93
- Height = 30
- Caption = 'Upload'
- TabOrder = 2
- OnClick = Button10Click
- end
- object Button11: TButton
- Left = 64
- Top = 94
- Width = 114
- Height = 30
- Caption = 'Upload Append'
- TabOrder = 3
- OnClick = Button11Click
- end
- object Button9: TButton
- Left = 190
- Top = 134
- Width = 92
- Height = 31
- Caption = 'Abort'
- TabOrder = 4
- OnClick = Button7Click
- end
- object Button12: TButton
- Left = 69
- Top = 134
- Width = 109
- Height = 31
- Caption = 'Upload Unique'
- TabOrder = 5
- OnClick = Button12Click
- end
- object Button13: TButton
- Left = 69
- Top = 177
- Width = 112
- Height = 31
- Caption = 'UploadRestore'
- TabOrder = 6
- OnClick = Button13Click
- end
- object PosTxt: TEdit
- Left = 336
- Top = 180
- Width = 49
- Height = 24
- TabOrder = 7
- end
- end
- object TabSheet5: TTabSheet
- Caption = 'Dir Management'
- object Label10: TLabel
- Left = 90
- Top = 14
- Width = 60
- Height = 16
- Caption = 'Create Dir'
- end
- object Label13: TLabel
- Left = 90
- Top = 142
- Width = 72
- Height = 16
- Caption = 'Remove Dir'
- end
- object Edit1: TEdit
- Left = 174
- Top = 10
- Width = 148
- Height = 24
- TabOrder = 0
- end
- object Edit2: TEdit
- Left = 174
- Top = 138
- Width = 148
- Height = 24
- TabOrder = 1
- end
- object Button14: TButton
- Left = 172
- Top = 46
- Width = 93
- Height = 30
- Caption = 'Create'
- TabOrder = 2
- OnClick = Button14Click
- end
- object Button15: TButton
- Left = 172
- Top = 174
- Width = 93
- Height = 30
- Caption = 'Remove'
- TabOrder = 3
- OnClick = Button15Click
- end
- end
- object TabSheet7: TTabSheet
- Caption = 'Delete'
- object Label14: TLabel
- Left = 105
- Top = 23
- Width = 56
- Height = 16
- Caption = 'Filename'
- end
- object Edit5: TEdit
- Left = 183
- Top = 18
- Width = 149
- Height = 24
- TabOrder = 0
- end
- object Button16: TButton
- Left = 182
- Top = 54
- Width = 92
- Height = 31
- Caption = 'Delete'
- TabOrder = 1
- OnClick = Button16Click
- end
- end
- object TabSheet8: TTabSheet
- Caption = 'Misc'
- object Label15: TLabel
- Left = 129
- Top = 20
- Width = 128
- Height = 99
- AutoSize = False
- Caption =
- 'Resets the server to the authentication phase, so that you could' +
- ' log in with another UserID/Password'
- WordWrap = True
- end
- object Button17: TButton
- Left = 25
- Top = 54
- Width = 92
- Height = 31
- Caption = 'ReInit'
- TabOrder = 0
- OnClick = Button17Click
- end
- end
- object TabSheet9: TTabSheet
- Caption = 'Rename File'
- object Label18: TLabel
- Left = 70
- Top = 53
- Width = 52
- Height = 16
- Caption = 'Rename'
- end
- object Label19: TLabel
- Left = 279
- Top = 53
- Width = 11
- Height = 16
- Caption = 'to'
- end
- object Edit8: TEdit
- Left = 124
- Top = 48
- Width = 149
- Height = 24
- TabOrder = 0
- end
- object Edit9: TEdit
- Left = 299
- Top = 48
- Width = 149
- Height = 24
- TabOrder = 1
- end
- object Button18: TButton
- Left = 197
- Top = 98
- Width = 92
- Height = 31
- Caption = 'Rename'
- TabOrder = 2
- OnClick = Button18Click
- end
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 267
- Width = 517
- Height = 23
- Panels = <>
- SimplePanel = True
- end
- object NMFTP1: TNMFTP
- Port = 21
- ReportLevel = 0
- OnDisconnect = NMFTP1Disconnect
- OnConnect = NMFTP1Connect
- OnInvalidHost = NMFTP1InvalidHost
- OnHostResolved = NMFTP1HostResolved
- OnStatus = NMFTP1Status
- OnConnectionFailed = NMFTP1ConnectionFailed
- OnPacketRecvd = NMFTP1PacketRecvd
- OnPacketSent = NMFTP1PacketSent
- OnError = NMFTP1Error
- OnTransactionStart = NMFTP1TransactionStart
- OnTransactionStop = NMFTP1TransactionStop
- OnFailure = NMFTP1Failure
- OnSuccess = NMFTP1Success
- OnListItem = NMFTP1ListItem
- OnUnSupportedFunction = NMFTP1UnSupportedFunction
- Vendor = 2411
- ParseList = False
- ProxyPort = 0
- Passive = False
- FirewallType = FTUser
- FWAuthenticate = False
- Left = 412
- Top = 218
- end
- end
-