delphi XE3中使用TidFTP的示例
在Delphi XE3中使用TidFTP的示例
在Delphi XE3中使用TidFTP的示例。
仅基础处理。
连接到FTP服务器
IdFTP1.Host := 'example.com';
IdFTP1.Username := 'xxxxxx';
IdFTP1.Password := 'xxxxxxx';
IdFTP1.Port := 21;
IdFTP1.Passive := True;
IdFTP1.Connect;
断开与FTP服务器的连接
IdFTP1.Disconnect;
S := IdFTP1.RetrieveCurrentDir();
移至指定目录
IdFTP1.ChangeDir('test');
移至以上目录
IdFTP1.ChangeDirUp;
获取文件列表
uses IdFTPList;
var
FTPListItems: TIdFTPListItems;
FTPListItem: TIdFTPListItem;
I: Integer;
FileName: String;
FileSize: Integer;
ModifiedDate: TDateTime;
PermissionDisplay: string;
ItemType: String;
begin
IdFTP1.List;
FTPListItems := IdFTP1.DirectoryListing;
for I := 0 to FTPListItems.Count - 1 do
begin
FTPListItem := FTPListItems.Items[I];
FileName := FTPListItem.FileName;
FileSize := FTPListItem.Size;
ModifiedDate := FTPListItem.ModifiedDate;
PermissionDisplay := FTPListItem.PermissionDisplay;
case FTPListItem.ItemType of
ditDirectory: ItemType := 'Directory';
ditFile: ItemType := 'File';
ditSymbolicLink: ItemType := 'SymbolicLink';
ditSymbolicLinkDir: ItemType := 'SymbolicLinkDir';
ditBlockDev: ItemType := 'BlockDev';
ditCharDev: ItemType := 'CharDev';
ditFIFO: ItemType := 'FIFO';
ditSocket: ItemType := 'Socket';
end;
上载档案
SourceFile := 'C:\test\test.txt';
DestFile := 'sample.txt';
IdFTP1.Put(SourceFile, DestFile);
下载文件
SourceFile := 'sample.txt';
DestFile := 'C:\test\down.txt';
IdFTP1.Get(SourceFile, DestFile);
删除文件
IdFTP1.Delete('sample.txt');
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.068502187728882 seconds