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

把memo1.text改成memo1.lines.add吧

memo1.lines.add(idhttp.get('xxxx/1.txt'))

memo1.lines.add(idhttp.get('xxxx/2.txt'))

memo1.lines.add(idhttp.get('xxxx/....txt'))

---