Indy10 idFTP как разделить файлы и каталоги? [D7, WinXP]
DimDim © (2009-03-04 21:12:00)
Уважаемые Мастера!
В Indy10 в Indy FTP Client Demo есть процедура:
procedure TfrmMain.DisplayFTP;
var
i, c : Integer;
s : String;
begin
lbDirectory.Items.Clear;
FTP.List(lbDirectory.Items, '', false);
edFolder.Text := FTP.RetrieveCurrentDir;
tvFolders.Items.Clear;
lvFiles.Items.Clear;
for c := 0 to lbDirectory.Items.Count -1 do
begin
s := lbDirectory.Items[c];
i := FTP.Size(s);
if i = -1 then
begin
// Directory
tvFolders.Items.Add(nil,
s);
end
else
begin
// File
lvFiles.Items.Add.Caption
:= s;
end;
end;
SetControls;
end;
которая ДОЛЖНА отсортировывать файлы от каталогов и писать их
в разные списки (tvFolders и lvFiles). Вроде как на каталог
FTP.Size(s)=-1. Фактически -1 не возвращает.
Что-то у меня неправильно, или как это обойти чтобы она
делила на файлы и не файлы?
Сергей М. (2009-03-05 09:16:00) [1]
case IdFTP.DirectoryListing.Items[i].ItemType of
ditDirectory: .. директория ..
ditFile: .. файл ..
end;
Наверх 
ЧАТ |
Орешник |
|
