Файловая оболочка (Delphi 30 )

1. Постановка задачи.

Задача заключается в разработке файловой оболочки для операционной

системы Windows’95/98. В программе реализовать механизмы копирования,

переноса, удаления, переименования файлов и директорий, поиск файлов по

маске, просмотр списка файлов по маске, просмотр и редактирование файлов во

внешних редакторах, присвоение и получение атрибутов файла, присвоение

атрибутов группе файлов, запуск приложений со строкой параметров, создание

директории, определение размера директории, получение информации о диске,

настройки интерфейса программы, определение суммарного объёма дискового

пространства занимаемого группой файлов, восстановление интерфейсных

параметров при повторном запуске программы. Так же обеспечить управление

оболочкой при помощи манипулятора типа «мышь» и клавиатуры.

2. Метод реализации.

Для реализации поставленной задачи необходимо создать интерфейс

пользователя состоящий из таких компонент:

А) список директорий.

Б) список файлов

В) список дисков

Г) главное меню программы

Д) панель инструментов.

Для организации интерфейса пользователя будут использованы

стандартные визуальные компоненты Delphi 3.0. Для реализации механизма

копирования/вставки[1] необходимо запомнить список копируемых

файлов/директорий, каждый элемент списка должен содержать информацию о

месте нахождения файла/директории и имени файла/директории. При копировании

группы файлов или одного файла необходимо определить их место положение в

иерархии каталогов, а затем заполнить список, выбирая все файлы отмеченные

пользователем из списка файлов показанного в интерфейсной части программы

(списке файлов). При копировании директории необходимо также определить её

положение и произвести сканирование самой директории с сохранением в списке

имён файлов содержащихся в копируемой директории и структуры каталогов. Для

вставки директории в место копирования, необходимо воссоздать её структуру,

а затем скопировать в неё файлы. Для осуществления этого процесса

вышеупомянутый список разбивается на два. В первом списке (назовем его

временный список директорий) должна находиться структура каталогов, а во

втором (временном списке файлов) расположенные в этих каталогах файлы. Два

списка необходимы для уменьшения времени затраченного на копирование, так

как при наличии одного списка необходим анализ каждого элемента списка на

предмет наличия поддиректорий и создание этих поддиректорий в месте

копирования, а в копируемой директории в большинстве случаев количество

директорий меньше чем количество файлов и времени на проверку понадобиться

больше, чем при использовании двух списков.

Если же использовать два списка то для воссоздания структуры каталогов

необходимо лишь отсортировать временный список директорий в соответствии с

иерархией каталогов, и создавать директории проходя по списку сверху вниз.

Так как после сортировки, директории расположенные на верхних уровнях

вложенности каталогов будут находиться в верхней части списка, а директории

расположенные на нижних уровнях будут находиться в конце списка. После

воссоздания структуры директории остаётся только переписать файлы.

Алгоритм заполнения временных списков показан на рисунке 1 в виде блок

схемы. Реализация данного алгоритма будет базирована на использовании

функций FindFirst и FindNext, эти функции осуществляют просмотр содержимого

указанной директории и в качестве результата возвращают имя найденного

элемента, его атрибуты, время создания и размер. При анализе атрибутов

найденного элемента можно определить данный элемент директория или файл, и

в соответствии с анализом записать его имя и положение в соответствующий

список. На описанном алгоритме будет базирован также механизм удаления

директории.

Упомянутые выше функции FindFirst и FindNext будут также применены при

реализации механизма поиска файлов по маске.

3. Описание программы.

Программа реализована на языке паскаль с использованием

Delphi 3.0 - среды визуального программирования приложений для Windows’95 .

Детально рассмотрим реализацию некоторых механизмов, таких как:

. Поиск файлов;

. Копирование Директорий;

. Удаление директорий.

Поиск файлов:

Поиск файлов в программе реализован с использованием маски. В маске

возможно использование служебного символа, замены группы неизвестных

символов в имени файла, или его расширении «*», а также возможен поиск с

различием регистров символов, и без такового, с указанием области поиска.

Так же существуют возможности поиска с наложением дополнительных

ограничений, таких как размер искомого файла, а так же времени создания

файла. Детально с реализацией выше перечисленных механизмов вы можете

ознакомиться в приложении 1 на страницах (29-35). Здесь же, мы рассмотрим

реализацию основной части этого механизма.

Для поиска файлов по маске необходимо задание маски поиска в виде

*.сом или autoexec.*, или другие возможные варианты, и области поиска[2]. В

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

символов. Блок схема поиска файлов показана на рисунке 1. При поиске

используется рекурсивная процедура (текст 1.) в которой последовательно

просматривается область поиска, включая

Текст 1.

Procedure TFindForm.FindInCurrentDir(CurDir:string);

Var

SizeF:integer;

i:integer;

EndList:boolean;

F:TSearchRec;

D:string;

begin

{Вывод в статус строке директории в которой производится

поиск}

FindForm.StatusFind.Panels[1].Text:=CurDir;

FindFirst(CurDir+'*.*',faAnyFile,F);

FindNext(F);

repeat

// Проверка расширенного поиска

If FindForm.CBAdvSearch.Checked and

(F.Attr<>faDirectory) then

begin

// Проверка на размер найденного файла

// размер и время создания найденого файла должны находится

в пределах заданных

// пользователем

if not(((F.Size < StrToInt(FindForm.SLess.Text)) and

(F.Size > StrToInt(FindForm.SGreater.Text)))) then

Continue;

if

not(((FileDateTime(CurDir+F.Name)<FindForm.DateIsBefore.Date)

and (FileDateTime(CurDir+F.Name) >

FindForm.DateIsAfter.Date))) then Continue;

end;

// проверить не является ли найденый файл директорией

if F.Attr=faDirectory then

if (F.Name<>'.') and (F.Name<>'..') then

begin

// если найденный файл – директория ,

рекурсивный вызов поиска в данной директории

FindInCurrentDir(CurDir+F.Name+'\');

end;

if (F.Name<>'..') and (F.Name<>'.') then

// если файл подходит под маску, занести его в список

if CompareFileWithMask(F.Name) then

begin

FindForm.FileWasFind.Items.Add(CurDir+F.Name);

FindForm.StatusFind.Panels[0].Text:=IntToStr(StrToInt(FindForm.StatusFind.Pa

nels[0].Text)+1);

FindForm.FileWasFind.Refresh;

end;

// выполнять поиск пока не закончатся файлы в текущей области заданной

области.

Until((FindNext(F) <> 0));

FindClose(F);

end;

подкаталоги, сравнивается имя найденного файл с маской поиска, и если все

наложенные ограничения выполнены, найденный файл заносится в список

предлагаемый пользователю для просмотра. Для организации поиска в разных

областях изменяется лишь место первого вызова рекурсивной процедуры.

В форме поиска файлов возможен переход к выбранному файлу, из списка

найденных, а также запуск либо просмотр/редактирование во внешнем

редакторе.

Копирование / Удаление директорий:

Описанная выше реализация алгоритма поиска файлов применёна в

реализации копирования и удаления директорий[3]. При реализации

рассматриваемых процессов понадобится наличие двух временных списков:

списка директорий и списка файлов (каждая строка обоих списков включает в

себя «полный путь» (FULL PATH)) файла/директории. Для реализации временных

списков использован визуальная компонента ListBoх, данная компонента

представляет собой динамический список строк и набор процедур и функций для

управления этим списком. Заполнение этих списков осуществляется при помощи

просмотра директории. С листингом программы реализующем эти процессы вы

можете ознакомиться в приложении 1 на страницах (17,23-27). Для

копирования/удаления директорий составляются оба вышеупомянутых списка. При

вставке директории создаётся полное дерево директории, а затем происходит

копирование файлов[4]. При удалении директории так же составляются оба

списка, но так как стандартной процедуры удаляющей не пустую директорию

нет, то в начале удаляются все файлы в удаляемой директории (включая файлы

находящиеся в поддиректориях), а затем пустые директории.

4. Анализ результатов.

Программа имеет все необходимые функции работы с файлами. Все функции

можно активизировать нажатием комбинации клавиш. Производиться статистика

копирования, переноса, удаления файлов/директорий в удобной для восприятия

пользователем форме. Существует простой механизм наложения фильтра на

показываемые файлы. При изменении интерфейса программы, все изменения

сохраняются и будут восстановлены при следующем запуске. Запуск приложений

со строкой параметров с указанием типа запуска. Вывод сообщения о

количестве поддиректорий в директории и о количестве файлов расположенных в

ней. Определение размера директории присвоение атрибутов группе файлов

простым нажатием двух клавиш.

5. Выводы.

В ходе работы была разработана программа манипулирования файлами и

директориями.

В программе реализованы следующие механизмы:

копирования, переноса, удаления, переименования файлов и директорий,

поиск файлов по маске,

наложение фильтра на список файлов,

просмотр и редактирование файлов во внешних редакторах,

присвоение и получение атрибутов файла,

присвоение атрибутов группе файлов,

запуск приложений со строкой параметров,

создание директории,

определение размера директории,

получение информации о диске,

настройки интерфейса программы,

определение суммарного объёма дискового пространства занимаемого группой

файлов,

восстановление интерфейсных параметров при повторном запуске программы.

Программа имеет удобный интерфейс и может использоваться для работы

пользователями с разным уровнем знаний.

Системные требования: Операционная система Windows’95 и выше, 500 килобайт

дискового пространства.

6. Литература.

П. Туротт, Г. Брент, Р. Багдазиан, С.Тендон «DELPHI 3», DiaSoft, Киев,

1997 г.

-----------------------

[1] Механизм копирования разбит на две части копирование/вставка исходя из

предпологаемого интерфейса программы

2 Возможны 3 области поиска: поиск в текущей директории; поиск на текущем

диске; поиск на всех жестких дисках (также сетевых).

3 Перенос директорий не рассматривается ввиду того, что его алгоритм

является последовательной

комбинацией алгоритма копирования и алгоритма удаления.

4 Если объём копируемых файлов превышает объём пустого места в месте

назначения, копирование произведено не будет