| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сканирование каталогов и отображение в ListView [D7]

DimitrySDA ©   (2007-02-12 18:37:00) 

Здравствуйте. Я прошу Вас помочь мне по следующему вопросу:
Необходимо произвести сканирование заранее указанной директории на диске. Причем каталог сканируется со всеми вложенными в нее каталогами и файлами. После сканирования заполняется ListView (как в Total Commander). В ListView можно переходить по папкам. Но переход из папки в папку не должен вызывать сканирование этой папки. Т.е. сканируется все один раз в начале. Ну и для файлов еще должен выводится размер. Причем это нужно реализовать функциями FindFirst, FindNext, FindClose. Тоесть без использования интерфейса каталога.
Буду благодарен за любую помощь. Если можно скиньте пример реализации на DimitryHomeMail_@mail.ru.
Ваша помощь очень необходима, сам ни как не могу реализовать это...

---

DimitrySDA   (2007-02-13 23:12:00) [1]

Я благодарен за любую оказанную помощь. Ведь учитсься нужно не только на своих ошибках. Критика и обсуждение это хороший стимул не останавливаться на достугнутом. Спасибо за пример и подсказки.

---

Германн   (2007-02-13 01:20:00) [2]

> koha ©   (12.02.07 20:12) [2]
>
> Маленький пример, которые не отображает всей твоей задачи,
>  но все же ни какой да пример из недавней моей проги:

Плохой пример, имхо. Во-первых отсутсвует FindClose, а за это положено бить канделябром по фэйсу! Во-вторых по сабжу нужно
> Причем каталог сканируется со всеми вложенными в нее каталогами
> и файлами.
и вот этого-то в примере и нету!
Т.е. сей пример не только не полезен, но и вреден. И вдобавок "запудривает" мозги вопрошающему лишними строками, не имеющими отношения к сабжу. Пример из справки по FindFirst гораздо менее вреден!

---

koha   (2007-02-12 20:12:00) [3]

Маленький пример, которые не отображает всей твоей задачи, но все же ни какой да пример из недавней моей проги:

procedure TFrmMain.FormCreate(Sender: TObject);
Var SR: TSearchRec;
   Icn: TIcon;
begin
 CurPath := ExtractFilePath(Application.ExeName);
 SysPath := GetEnvironmentVariable('SystemRoot')+'\System32\';
 SysRoot := GetEnvironmentVariable('SystemRoot');
 Mask    := SysPath+'*.cpl';
 ImgListLarge.BkColor:=clWindow;

 With ImgList do begin
   GetBitmap(0,BtnExit.Glyph);
   GetBitmap(2,BtnAdd.Glyph);
   GetBitmap(3,BtnMove.Glyph);
 end;

 if FindFirst(Mask,faAnyFile,SR) = 0 then
   Repeat
     Icn        := TIcon.Create;
     Icn.Handle := ExtractIcon(HInstance,PChar(SR.Name),0);
     if Icn.HandleAllocated then ImgListLarge.AddIcon(Icn)
     else begin Icn.LoadFromResourceName(HInstance,'NullComp');
       ImgListLarge.AddIcon(Icn);
     end;
     NewItem            := LVNoBlock.Items.Add;
     NewItem.ImageIndex := ImgListLarge.Count-1;
     NewItem.Caption    := ExtractFileName(SR.Name);
     Icn.Free;
   until FindNext(SR) <> 0;

end;

---

iXT   (2007-02-12 19:48:00) [4]

(FindFirst, FindNext, FindClose) + F1. Там все есть.

---

Наверх