Форум: "Сети";
Текущий архив: 2011.04.03;
Скачать: [xml.tar.bz2];
ВнизIndy10 idFTP как разделить файлы и каталоги? Найти похожие ветки
← →
DimDim (2009-03-04 21:12) [0]Уважаемые Мастера!
В 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) [1]
case IdFTP.DirectoryListing.Items[i].ItemType of
ditDirectory: .. директория ..
ditFile: .. файл ..
end;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2011.04.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c