如何使用indy中的idFtp来接受一个ftp站点上的文件??

Question

有没有大侠写几句简单的示例程序
我在想，如果不用idFtp的话，用idHttp也行的
嗯，最好能知道这个文件传到百分之多少，这样可以显示
还有，传好后，怎么处理的代码写在哪里???
indy没找到示例程序，偶在这里谢了!!!!!!!!

Answer 1

最简单的办法是在远程主机创建FTP服务器,然后使用FTP进行编程:
这是我的一个FTP传送文件的源程序的一部份,使用IDFTP控件.通过InterNet访问.procedure TForm1.DownloadButtonClick(Sender: TObject);//下载文件
var fileName:string;
begin
  if Not IdFTP1.Connected then exit;
  Filename:=Trim(Midstr(DirectoryListBox.Items[DirectoryListBox.ItemIndex],40,90));
  IdFTP1.TransferType := ftBinary;
  BytesToTransfer := IdFTP1.Size(FileName);
  IdFTP1.Get(FileName, EditPath.Text+FileName, true);
end;procedure TForm1.UploadButtonClick(Sender: TObject);  //上传文件
begin
  if not IdFTP1.Connected then exit;
  if not UploadOpenDialog1.Execute then exit;
  IdFTP1.TransferType := ftBinary;
  IdFTP1.Put(UploadOpenDialog1.FileName, ExtractFileName(UploadOpenDialog1.FileName));end;

Answer 2

谢谢啊!!!!!
我在Button的OnClick里写
IdFtp1.Connect(true,-1);
老是出错
怎么回事?

Answer 3

啊???我没有indy的demo例程，哪位大侠有能发偶一份么[email protected]

Answer 4

http://www.indyproject.org/download/Files/Indy9.html
↑此頁的最下面一行有「DEMO」可下載。

Answer 5

可以在 OnWork 事件中当前下载了多少（AWorkCount 参数，字节数）
不过默认的 RecvBufferSize 和 SendBufferSize 都是 32768 ，这样只要下载了 32768 个字节后或完成才触发一次 OnWork 事件，可以适当该小一些，就可以得到比较准确的状态。

Answer 6

去Indy的官方站点下载Demo了，很完整的