ftp问题求解 请各位大侠指教 分不多（我只有一百了 全送上）(100分)

下面是我写的一个求指定文件的大小 用idftp 编译的时候没错 运行是给个url却总是提示
not logged in错误。在FileSize := IdFTP1.size(aurl);这个位置。请问connect不是已经就登录了么
function tform1.geturlhost(aurl:string):string;
var
i,a:integer;
s:string;
host: array[0..255] of Char;
begin
s:=aurl;
i:=pos('/',s);
a:=1;
while (i<>0) and (a<3)do
begin
delete(s,1,i);
i:=pos('/',s);
a:=a+1;
end;
i:=pos('/',s);
StrPLCopy(host,s,i-1);
result:=host;
end;

function TForm1.getfilesize(aurl: string): integer;
var
FileSize : integer;
begin
idftp1.Username:='nonymous';
idftp1.Password:='zh@21cn.com';
idftp1.Host :=geturlhost(aurl);
idftp1.Port :=21;
idftp1.Connect(true);
FileSize := IdFTP1.size(aurl);
showmessage(inttostr(filesize));
IdFTP1.Abort;
Result := FileSize;
except
showmessage('连接失败');
end;
end;

自己顶 别只看不回啊 帮顶一下也好啊 []

帮助顶吧

嗯 谢啦

怎么都没人回啊

看看我的待答问题即可

里面好像没有说到哦 能否具体说一下 有源码的传我一份
hongzenghuang@21cn.com
thx

用的什么控件啊

to hongzenghuang：
那里面有source, 你看看 ： www.hyszx.com/ftp.rar

用idftp啊

to yf168
看了你的程序 连接那一段基本还是那样写啊 多了一些防止出错的
还是不明白
在idftp1.Connect(true);处还是出现 ‘not logged in‘的错误

问题解决了 是登录密码问题 还是非常谢谢yf168的帮助 还有ff_ff 的关注