有关FTP的问题,300分(300分)

  • 主题发起人 主题发起人 gaodaya
  • 开始时间 开始时间
G

gaodaya

Unregistered / Unconfirmed
GUEST, unregistred user!
我编写了一个FTP客户端程序,想列出所有的目录和文件。
我的代码如下:
NMFTP.ParseList := True;
NMFTP.List;

for I := 0 to (NMFTP.FTPDirectoryList.Name.Count - 1) do
with NMFTP.FTPDirectoryList do
begin
ListItem := lvFileList.Items.Add;
ListItem.Caption := Name[0];
ListItem.SubItems.Add(Size[0]);
ListItem.SubItems.Add(ModifDate[0]);
ListItem.SubItems.Add(Attribute[0]);
end;
可是NMFTP.FTPDirectoryList内容总是空的。
我不知道问题出在哪里,希望大家帮我一下。
 
delphi的demo里好像有例程。
 
不知你对NMFTP是否很熟悉,我这儿有三个NMFTP的例子,你要的话我可以发给你.留下你的
email吧.以前我留下email,这阵子老是有人给我发尼姆病毒,所以我不敢留了.呵呵,我看
到信息后就给你发过来.
 
2个办法,1改用ics控件
2呢,处理ListItem事件得到返回的结果

建议使用ics和看他的例子,简单~!
发生异常短线的话比Delphi的要快~!
 
看看这里,有你的答案 :

http://www.delphibbs.com/delphibbs/dispq.asp?lid=265419
http://www.delphibbs.com/delphibbs/dispq.asp?lid=337632
 
改了一下,应该没问题了。你看看吧

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
ListItem : TListItem;
begin

NMFTP.Connect;
NMFTP.ParseList := True;
NMFTP.List;
for I := 0 to (NMFTP.FTPDirectoryList.Name.Count - 1) do
begin
with NMFTP.FTPDirectoryList do
begin
ListItem := lvFileList.Items.Add;
ListItem.Caption := Name; //这几行改了
ListItem.SubItems.Add(Size); //
ListItem.SubItems.Add(ModifDate); //
ListItem.SubItems.Add(Attribute); //
end;
end;
end;
 
还是换控件吧,FastNet的东西确实太烂了。使用ICS、indy都好,例子也丰富。
 
哪里有ICS或INDY,我给我一个好吗??
netcat2@21cn.com
 

看到要的人多,我加班做了一个,请指教。
在 ZhaQiong.delphibbs.com 上。
 
FastNet缺少的就是源代码,Delphi上如果公开的话,大家一起修修补补,也会比ics
和indy套件好的。

ics可以在http://homepages.borland.com/torry/下载。
 
将FTP站点属性中的主目录列表风格改为:unix风格试一试
 
多人接受答案了。
 
后退
顶部