русс | укр

Языки программирования

ПаскальСиАссемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование

Все о программировании


Linux Unix Алгоритмические языки Аналоговые и гибридные вычислительные устройства Архитектура микроконтроллеров Введение в разработку распределенных информационных систем Введение в численные методы Дискретная математика Информационное обслуживание пользователей Информация и моделирование в управлении производством Компьютерная графика Математическое и компьютерное моделирование Моделирование Нейрокомпьютеры Проектирование программ диагностики компьютерных систем и сетей Проектирование системных программ Системы счисления Теория статистики Теория оптимизации Уроки AutoCAD 3D Уроки базы данных Access Уроки Orcad Цифровые автоматы Шпаргалки по компьютеру Шпаргалки по программированию Экспертные системы Элементы теории информации

Сканирование дисков и директорий

Что надо сделать, чтобы получить в программе красивое дерево директорий, как в Проводнике? Как получить список всех файлов, находящихся в указанном месте? Сделать это не очень просто, но вполне реально.

Для отображения файлов и директорий в Delphi есть старинные, еще для Windows 3.1, компоненты DriveComboBox, DirectoryListBox и FileListBox на закладке Win3.1 палитры компонентов. Использовать их не следует: они не только отпугивают пользователя древним внешним видом, но и не поддерживают отображение рабочего стола, сетевого окружения и других пунктов, появившихся в более новых версиях Windows. Поэтому есть два варианта: взяться за дело самому или встроить в свою программу настоящий Проводник. Сначала рассмотрим первый вариант.

Уже знакомая нам процедура FindFirst может использоваться для получения не только сведений об одном файле, но и о списке файлов и директорий. Для этого вместо имени в ней указывается маска поиска (скажем, для всех файлов - *.*, для документов Word - *.doc и т.д.)

Для начала напишем программку, которая выводит список всех файлов, находящихся в указанной директории, и список отходящих от нее поддиректорий. Список файлов будем выводить в компонент Memo1, а поддиректорий – в Memo1.

procedure TForm1.Button1Click(Sender: TObject);

var dir:string;

s:TSearchRec;

begin

if not(SelectDirectory('Выберите папку', '',dir)) then

exit;

memo1.Lines.Clear;

memo2.Lines.Clear;

FindFirst(dir+'\*.*',faAnyFile,s);

repeat

if s.name<>'.' then

if s.Attr=faDirectory then

memo2.Lines.Add(s.Name)

else

memo1.Lines.Add(s.Name);

until FindNext(s)<>0;

FindClose(s)

Строка ‘\*.*’ добавляется к выбранному пути для формирования маски поиска вида C:\Windows\*.*. В цикле информация о файлах считываются до тех пор, пока функция FindNext возвращает ненулевое значение. Процедура FindClose освобождает память, занятую в ходе выполнения сканирования каталога.

Внутри цикла пропускается бесполезное имя поддиректории ‘.’, соответствующее самой текущей директории. Далее проверяется, чем является только что считанный объект: файлом или директорией и в зависимости от этого название заносится в компоненты Memo1 или Memo2.

Чтобы построить настоящее дерево директорий, пригодится компонент TTreeView. Рассмотрим рекурсивную процедуру формирования дерева директорий на указанном диске. Ее параметрами являются ссылка на компонент типа TreeView и путь, начиная с которого будут сканироваться директории (например, ‘C:\’).

PROCEDURE FillTree(tree:TTreeView;dr:STRING);

PROCEDURE AddDir(h:TTreeNode);

VAR s:TSearchRec;

n:TTreeNode;

Path:STRING;

BEGIN

Path:=GetFullPath(h);

FindFirst(path+'*.*',faDirectory,s);

REPEAT

IF (s.Attr<>faDirectory) OR (s.Name='.') OR (s.Name='..') THEN

Continue;

n:=tree.Items.AddChild(h,S.Name);

Application.ProcessMessages;

AddDir(n)

UNTIL FindNext(s)<>0;

FindClose(s)

END;

BEGIN

WITH Form1 DO

BEGIN

tree.Items.Clear;

Screen.Cursor:=crHourGlass;

AddDir(tree.Items.Add(NIL,dr));

Screen.Cursor:=crDefault

END

END;

Рассмотрим работу программы. Процедуре AddDir на вход подается ссылка на узел дерева, начиная с которого будут добавляться ветки-директории. При первом выходе на вход подается вершина дерева, создающаяся командой tree.Items.Add(NIL,dr), где dr – имя начального каталога. Внутри процедуры AddDir вызывается функция GetFullPath, которая проходит по дереву от текущего уровня вверх до вершины и формирует полный путь к директории. Например, если в дереве есть ветки C:\, Windows, System32, то функция GetFullPath вернет полный путь вида 'C:\Windows\System32'. Затем выполняется цикл по поддиректориям, отходящим от текущей ветки дерева, и для каждой из них снова вызывается процедура AddDir, что обеспечивает сканирование всего диска. При этом пропускаются текущая директория и директория верхнего уровня, обозначаемые символам '.' и '..' соответственно. Результат работы такой программы показан на Рис. 14.3.

Рис. 18.3 Результат построения дерева директорий.

Для использования тех же окон отображения файлов и директорий, что и в Проводнике, предусмотрен модуль shellctrls, который надо подключить к программе. В этом модуле описаны компоненты типа ShellTreeView (отображение дерева директорий – то, что мы видим на левой панели Проводника) и ShellListView (отображение списка поддиректорий и файлов – то, что мы видим на правой панели проводника). Фокус заключается в том, что данные компоненты по умолчанию отсутствуют на палитре компонентов, поэтому их надо создавать вручную. Что же, научимся и этому!

Последовательно поместим на форму следующие компоненты: панель инструментов ToolBar1 (закладка Win32), панель Panel1 с выравниванием влево (Align=alLeft), разделитель Splitter1 с закладки Additional также с выравниванием влево и еще одну панель с выравниванием alClient (Рис. 14.4).

Рис. 18.4 Размещение компонентов на форме.

В дальнейшем левую панель займет компонент-дерево, а правую – список файлов и поддиректорий,

Объявим две глобальные переменные, которые будут представлять эти компоненты в программе:

var s:TShellTreeView;

l:TShellListView;

Напишем следующие обработчики событий формы OnCreate и OnDestroy:

procedure TForm1.FormCreate(Sender: TObject);

begin

s:=TShellTreeView.Create(Self);

l:=TShellListView.Create(Self);

s.Parent:=Panel1;

l.Parent:=Panel2;

S.Align:=alClient;

L.Align:=alClient;

l.ShellTreeView:=s

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

l.Free;

s.Free

end;

В обработчике события создания формы создаются два новых компонента, и указывается, что их родительскими компонентами являются соответственно левая и правая панели. К тому же устанавливается выравнивание alClient – по размеру родителя. Поэтому два новых компонента автоматически будут принимать размеры панелей, что избавляет от необходимости вычислять экранные координаты. Строчка l.ShellTreeView:=s связывает два компонента так, что при переходе в дереве на левой панели будет автоматически меняться список на правой панели – все, как в Проводнике. Запустим программу и убедимся, что мы написали свой Проводник!

Для изменения способа отображения файлов и поддиректорий на правой панели (в виде больших значков, маленьких значков, списка или таблицы) предназначено свойство ViewStyle компонента типа TShellListView. Разместим на компоненте ToolBar1 компонент TRadioGroup, установив его свойство Columns=4, Rows=1, а в свойство Items записав четыре строки – названия режимов отображения: "Большие значки", "Малые значки", "Список", "Таблица". Пишем следующий обработчик события OnClick компонента RadioGroup1:

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

WITH l DO

CASE RadioGroup1.ItemIndex OF

0: ViewStyle:=vsIcon;

1: ViewStyle:=vsSmallIcon;

2: ViewStyle:=vsList;

3: ViewStyle:=vsReport

END;

end;

Теперь можно переключать режимы просмотра, как и в настоящем Проводнике.

Последнее, что осталось сделать – заставить программу реагировать на факт выбора файла. Для этого необходимо написать свою процедуру – обработчик события OnChange. Причем это должна быть не обычная процедура, а метод объекта. Удобнее всего сделать ее методом формы. Для этого в описании формы добавляем строчку:

type

TForm1 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Splitter1: TSplitter;

ToolBar1: TToolBar;

RadioGroup1: TRadioGroup;

ToolButton1: TToolButton;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure ChangerFile(Sender: TObject; Item: TListItem; Change: TItemChange);

private

{ Private declarations }

public

{ Public declarations }

end;

Рис. 18.5 Самодельный Проводник.

А в тексте модуля после оператора Implementation пишем:

procedure TForm1.ChangerFile(Sender: TObject; Item: TListItem; Change: TItemChange);

begin

if l.SelectedFolder<>nil then

Form1.Caption:=l.SelectedFolder.pathname

end;

Здесь в заголовок формы будет выводиться полный путь и название выбранного файла/директории. Перед этим проверяется, что объект действительно выбран (свойство SelectedFolder не равно Nil). В обработчик события OnCreate добавим строчку

l.OnChange:=ChangerFile

которая связывает выполнение процедуры ChangerFile с наступлением события OnChange. Окончательный вид приложения показан на Рис. 14.5.

Просмотров: 902


Вернуться в оглавление



Карта сайта Карта сайта укр


Уроки php mysql Программирование

Онлайн система счисления Калькулятор онлайн обычный Инженерный калькулятор онлайн Замена русских букв на английские для вебмастеров Замена русских букв на английские

Аппаратное и программное обеспечение Графика и компьютерная сфера Интегрированная геоинформационная система Интернет Компьютер Комплектующие компьютера Лекции Методы и средства измерений неэлектрических величин Обслуживание компьютерных и периферийных устройств Операционные системы Параллельное программирование Проектирование электронных средств Периферийные устройства Полезные ресурсы для программистов Программы для программистов Статьи для программистов Cтруктура и организация данных


 


Не нашли то, что искали? Google вам в помощь!

 
 

© life-prog.ru При использовании материалов прямая ссылка на сайт обязательна.