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.ｄｅｌｅｔｅ('sample.txt'); 

相关阅读 >>

Delphi webbrowser中模拟连接点击（非鼠标模拟）

Delphi 获取网络图片在webbrowser显示 android/osx/ios/win的最佳方式

Delphi 获取计算机从开机开始的已运行时间

Delphi 利用idhttp进行多线程下载

Delphi json字符串转义

Delphi 获得每个进程的cpu使用率

Delphi xe6 android 查看电池信息

Delphi获取盘符代码

Delphi 万能模糊查询

Delphi 查找一个特定的exe是否在内存中运行

更多相关阅读请进入《Delphi》频道 >>