Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.004 c