请问Delphi中有TFTPServer这个控件吗

Question

我看了好几个ftp服务器的源代码,里面都申明有这个控件,但我的确找不到,因此程序也无法编译.所以请教高手

Answer 1

用delphi7帶的indy 下的 IdFTP1就可

Answer 2

http://dev.csdn.net/develop/article/26/26463.shtm
如何用idFTP遍历整个目录—下载、删除 好久不在网上发表文章了，主要因为水平太臭，恐怕耽误了各位兄弟姐妹的前程，哈哈！废话少说，下面切入正题。       这两天做一个项目，其中需要用ftp下载服务器上的整个目录，并且下载完成后，删除整个目录。由于ftp不能穿透子目录，只能在当前目录下操作，所以用一般的方法根本无法达到预期效果。可能我想偷懒吧！于是想从网上搜搜，看有没有现成的东东拿来使用 ：）结果令我非常失望，不是无法运行就是达不到我的预期效果。其实论坛上也有人问过这样的问题，可一直也没有满意的结果。哎！还得靠自己呀！小日本可没有那么听话，不知道大家听没听说钓鱼岛，去没去参加游行。       下面的程序是用delphi7.0 + idFTP 实现的。可能还会有bug，不过希望能给需要他的人带来一点点帮助和提示!，程序中只有下载与删除的代码，至于上传的code自己写吧，稍微思考一下就可以实现。unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,IdFTPList,  IdTCPClient, IdFTP ; type  TForm1 = class(TForm)    Btt_DownLoadDir: TButton;    IdFTP1: TIdFTP;    Btt_DeleteDir: TButton;    Label1: TLabel;    lb_num: TLabel; //处理文件个数提示。    procedure Btt_DownLoadDirClick(Sender: TObject);    procedure Btt_DeleteDirClick(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation {$R *.dfm}      { 下载整个目录，并遍历所有子目录  首先 ChangeDir(Root) 到根目录  然后创建本地目录 + RemoteDir  然后用 list 得到所有目录名  循环判断,进入 RemoteDir 目录内部  如果是目录继续第归。否则 get 该文件到本地目录，当 get 完所有文件后返回上一级目录  用List再取得信息，继续循环 } procedure FTP_DownloadDir(var idFTP : TIdFtp;RemoteDir,LocalDir : string);label Files ;var  i,DirCount : integer;begin  if not DirectoryExists(LocalDir + RemoteDir) then    ForceDirectories(LocalDir + RemoteDir);  idFTP.ChangeDir(RemoteDir);  idFTP.List(nil);  DirCount := idFTP.DirectoryListing.Count ;  if DirCount = 0 then  begin    idFTP.ChangeDirUp;    idFTP.List(nil);  end;  for i := 0 to DirCount - 1 do  begin    if DirCount <> idFTP.DirectoryListing.Count then    begin      repeat        idFTP.ChangeDirUp;        idFTP.List(nil);      until DirCount = idFTP.DirectoryListing.Count ;    end;    if idFTP.DirectoryListing[i].ItemType = ditDirectory then      FTP_DownloadDir(idFTP,idFTP.DirectoryListing[i].FileName,LocalDir + RemoteDir + '\')    else begin      idFTP.Get(idFTP.DirectoryListing[i].FileName,LocalDir + RemoteDir + '\' +        idFTP.DirectoryListing[i].FileName,true);      Form1.lb_num.Caption := IntToStr(StrToInt(Form1.lb_num.Caption) + 1);      Form1.lb_num.Update;      if i = DirCount - 1 then      begin        idFTP.ChangeDirUp;        idFTP.List(nil);      end;    end;  end;end; {删除整个ftp目录，包括下面的文件, RootDir = 要删除的根目录，一般情况下 RemoteDir 与 RootDir 相等}procedure FTP_DeleteAllFiles(var idFTP : TIdFtp;RemoteDir,RootDir : string);label Files;var  i,DirCount : integer;  Temp : string;begin  idFTP.ChangeDir(RemoteDir);  if Pos(RootDir,idFTP.RetrieveCurrentDir) = 0 then Exit;Files :  idFTP.List(nil);  DirCount := idFTP.DirectoryListing.Count ;  while DirCount = 0 do  begin    Temp := idFTP.RetrieveCurrentDir;    idFTP.ChangeDirUp;    idFTP.RemoveDir(Temp);    idFTP.List(nil);    DirCount := idFTP.DirectoryListing.Count ;    for i := 0 to DirCount - 1 do    if idFTP.DirectoryListing[i].FileName = RootDir then Exit;  end;  for i := 0 to DirCount - 1 do  begin    if Pos(RootDir,idFTP.RetrieveCurrentDir) = 0 then Break ;    if idFTP.DirectoryListing[i].ItemType = ditDirectory then    begin      FTP_DeleteAllFiles(idFTP,idFTP.DirectoryListing[i].FileName,RootDir);    end else begin      idFTP.Delete(idFTP.DirectoryListing[i].FileName);      Form1.lb_num.Caption := IntToStr(StrToInt(Form1.lb_num.Caption) + 1);      Form1.lb_num.Update;      goto Files ;    end;  end;end; procedure TForm1.Btt_DownLoadDirClick(Sender: TObject);
begin  IdFTP1.Connect(true,-1);
  if IdFTP1.Connected then  begin
    IdFTP1.ChangeDir('bigimage');
    FTP_DownloadDir(IdFTP1,'1002.1002.1002','g:\ftpdir\');
  end;
  IdFTP1.Disconnect ;
end; procedure TForm1.Btt_DeleteDirClick(Sender: TObject);
begin
  IdFTP1.Connect(true,-1);
  if IdFTP1.Connected then
  begin
    IdFTP1.ChangeDir('bigimage');
    FTP_DeleteAllFiles(IdFTP1,'1002.1002.1002','1002.1002.1002');
  end;
  IdFTP1.Disconnect ;
end; end.运行环境 win2000 advanced server + delphi7.0 + iis6.0

Answer 3

哦  很感谢你们的热心解答 
不过我用的是Delphi 6.0 好像没有TIdFTP这个控件
还有请问你们见过TFTPServer 这个控件吗

Answer 4

TFTPServer 听起来应该是建立FTP服务的组件，
Indy里面好像没有

Answer 5

to  Benjaminxue(冰河):
  Delphi6也有IndyFTP的，也就是TIdFTP，它在Indy Clients那一页上