Delphi中，怎么使用FTP主动下传文件

delphi 提供了 indy 组件包，其中 TIdFTP 可以实现通过以 FTP 方式进行文件的上传与下载。示例代码如下：procedure TForm1.Button2Click(Sender: TObject)var tt :TIdFTPListItems t : TIdFTPListItem i : integer tfname : Stringbegin IdFTP1.TransferType := ftBinary//指定为二进制文件 或文本文件ftASCII for i:=0 to IdFTP1.DirectoryListing.Count-1 do begintt := IdFTP1.DirectoryListing//得到当前目录下文件及目录列表t := tt.Items[i]//得到一个文件相关信息Label1.Caption :=t.Text //取出一个文件信息内容tfname := t.FileName showmessage(t.OwnerName+' '+t.GroupName+' '+t.FileName+' '+t.LinkedItemName) if IdFTP1.DirectoryListing.Items[i].ItemType = ditFile then //如果是文件begin IdFTP1.Get(tfname,'d:\FTPtest\'+tfname,True,True)//下载到本地，并为覆盖，且支持断点续传end endend

提供个思路吧！

1、可以利用FTP方式，在服务器驾设一个FTP服务器，在DEPHI中只要用FTP控件就可以直接传送！,ftp上传可以去度娘查……相当多

2、利用//192.168.0.1方式 ，这种方式等同于copy！

---