使用FTP控件下载的问题

[ybliu]

FTP Server为IIS5.0中的FTP服务器，并设定好用户主目录。现要把该主目录下的所有文件下载到另一台机器上，请问下列代码有何问题：（通过调试，发现程序在执行到NMFTP1->List();时死了，此时CPU的使用率高达100%，不知是何原因？请各位朋友帮帮我）

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString fName;
int fCount;

if(NMFTP1->Connected)
NMFTP1->Disconnect();
else
{
NMFTP1->Vendor =NMOS_AUTO;
NMFTP1->Port =21;
NMFTP1->TimeOut =5000;
NMFTP1->Host =ipAddr
NMFTP1->UserID ="userID";
NMFTP1->Password ="pwd";
NMFTP1->Connect();
}

NMFTP1->Mode(MODE_IMAGE);
NMFTP1->ParseList =true;
NMFTP1->List();

fCount=NMFTP1->FTPDirectoryList->name->Count;
for(int i=0;i<fCount;i++)
{
fName=NMFTP1->FTPDirectoryList->name->Strings[i];
NMFTP1->Download(fName,fName);
}
}

[JamesJiang]

Borland的TNMFTP控件基本没有什么实用价值，建议使用Indy组件（原先的Winshoe组件）里的TIdFtp控件，Dephi6和BCB6中已经包含了这套控件，但BCB5中还没有，你自己去下一套好了。