TNMFTP组件连接问题,急!

[Shawn]

1.serv-u 在本机创建一个域.分配一个用户名和密码,用CuteFTP 8 Professional连接正常:ftp://172.16.1.8/,user,123
2.用TNMFTP控件来连接,出现问题,提示"Host Lookup Failed" 和 "Null Remote Address".
3.代码如下:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ftp1->Vendor = NMOS_AUTO;
ftp1->Host = "ftp://172.16.1.8/";
ftp1->Port = 21;
ftp1->FWUserID = "user";
ftp1->FWPassword = "123";
ftp1->ReportLevel = Status_Basic;

if(ftp1->Connected)
{
ftp1->Disconnect();
}
try
{
ftp1->Connect();
}
catch(...)
{
ftp1->Disconnect();
}
}
高手快救命啊!!!

[i_love_pc]

试试这样：

ftp1->Host = "172.16.1.8"; 

[Shawn]

ftp1->host = "172.16.1.8"更改后,出现这样的错误提示: '530 Not logged in' 和 '10053:Software caused connection abort'请高手继续帮忙解决,分不够可以再加,谢谢

[ydlchina]

ftp1-> Host = "ftp:////172.16.1.8//";

[ydlchina]

看错了

[ydlchina]

FTP1->UserID = UserID;
FTP1->Password = PassWord

[i_love_pc]

'530 Not logged in'...
======================

好像不是代码的问题，看看配置是否正确！

[Shawn]

谢谢大家,原来是我的代码写错了.谢谢月亮上的猪和杰子.
现在此贴又追加100分,求FTP遍历目录算法.本人已经用笨方法实现,希望可以用递归算法实现些问题,请高手再度指点,不胜感激!!!
1.ftp连接
ftp1->Host = "172.16.1.8";
ftp1->User = "user";
ftp1->Password = "123";
ftp1->Connect();
2.遍历FTP
//遍历FTP目录
lst->Clear();//全局变量 TStringList* lst;
lst->Add(ComboBox1->Text);
while(lst->Count > 0)
{
TStringList* lstNextDirectory = new TStringList;
for(int i = 0; i < lst->Count; ++i)
{
ftp1->ChangeDir("/");
if(ComboBox1->Text.Trim() != "")//遍历根目录下特定目录.
{
ftp1->ChangeDir(ComboBox1->Text);
}
ftp1->ChangeDir(GetChangeDir(lst->Strings[i]));//GetChangeDir去掉路径串开头多余的'/'
String sCurrentDirectory = ftp1->RetrieveCurrentDir();
TStringList *lstTmp = new TStringList;
ftp1->List(lstTmp);
for(int k = 0; k < lstTmp->Count; ++k)
{
bool IsDirectory = false;
String sFileName = GetNameFromDirLine(lstTmp->Strings[k], IsDirectory);//GetNameFromDirLine解析信息串得到文件名和目录属性
if(IsDirectory)
{
if(!(sFileName == "." || sFileName == ".."))
{
lstNextDirectory->Add(sCurrentDirectory + "/" + sFileName);
}
}
else
{
lstNet->Add(sCurrentDirectory + "/" + sFileName);
}
}
delete lstTmp;
}
//下一层目录
lst->Clear();
lst->AddStrings(lstNextDirectory);
delete lstNextDirectory;
}

[我不懂电脑]

'530 Not logged in'...
意思是不能登陆

[Shawn]

递归算法本人已实现，谢谢诸位，结帖！

[zhangyanhua7101120]

能不能把递归实现的代码贴出来看看呢，小弟最近需要这样的代码，谢谢了