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

delphi 提供了 indy 组件包，其中 TIdFTP 可以实现通过以 FTP 方式进行文件的上传与下载。示例代码如下：

procedure TForm1.Button2Click(Sender: TObject)

var

  tt :TIdFTPListItems

  t : TIdFTPListItem

  i : integer

  tfname : String

begin

  IdFTP1.TransferType := ftBinary //指定为二进制文件  或文本文件ftASCII

  for i:=0 to IdFTP1.DirectoryListing.Count-1 do

  begin

    tt := 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

  end

end

提供个思路吧！

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

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

---