请问各位高手,如何将ftp中的文件和目录导入像shelllistview,directorylistbox等控件中,请各位老大帮忙解答一下,如果能上代码那就更好了,还有shelllistview这个控件都有什么关键的属性和方法啊,先谢谢了!!

------
向往自由，无所不能；网络时代，谁与争锋

請先爬文
本站已經有很多帖都有在討論有關ftp的東西
而且也有許多範例了

===================引 用 truthhk 文 章===================
请问各位高手,如何将ftp中的文件和目录导入像shelllistview,directorylistbox等控件中,请各位老大帮忙解答一下,如果能上代码那就更好了,还有shelllistview这个控件都有什么关键的属性和方法啊,先谢谢了!!

再做一次好人吧! 因為這類範例有, 但不太容易找到完整的, 所以公佈出來可以省很多研究時間
這是我8年前的作品, 有興趣到會員創作區下載
http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=102003

[code delphi]
procedure TForm_FTPsrv1.CDir(DirName: String);
var i: integer;
sl: TStringList;
begin
try
IdFTP1.ChangeDir(DirName);
IdFTP1.TransferType:= ftASCII;
labelDIR.Caption:= IdFTP1.RetrieveCurrentDir;
DirectoryListBox1.Items.Clear;
DirectoryListBox1.Sorted:= False;
IdFTP1.List(DirectoryListBox1.Items);
for i:= 0 to DirectoryListBox1.Items.Count-1 do begin
if i<2 then DirectoryListBox1.Items[i]:= '0' DirectoryListBox1.Items[i]
else begin
if DirectoryListBox1.Items[i][1]='d' then
DirectoryListBox1.Items[i]:= '1' DirectoryListBox1.Items[i]
else
DirectoryListBox1.Items[i]:= '-' DirectoryListBox1.Items[i];
end;
end;
DirectoryListBox1.Sorted:= True;
except
on E:Exception do begin
Application.MessageBox(pChar('資料夾切換失敗' #13 E.message),'錯誤',
MB_ICONERROR MB_OK);
end;
end;
end;

[/code]

編輯記錄

谢谢P.D老大。。。非常感谢

------
向往自由，无所不能；网络时代，谁与争锋