16.4.2. Переменная DosError

Предопределенная переменная DosError типа Integer содержит номер ошибки, возвращаемой MS-DOS, при неправильной операции. Эта переменная равна нулю до тех пор, пока не произойдет сбой во время работы программы при обращении к функциям DOS. Возможные значения DosError:

0 — нет ошибки;

2 — не найден файл (невозможно связать логический файл с физическим устройством);

3 — путь (маршрут) не найден (неверная адресация файла на диске);

4 — слишком много открытых файлов (больше, чем указано в директиве FILES = ... файла CONFIG.SYS);

5 — доступ закрыт (операция заблокирована средствами DOS, или нарушаются правила работы с именами файлов или каталогов);

6 — неверное ведение файла (редкая ошибка, возникающая при нарушении информации в полях файловых переменных или в системных областях MS-DOS);

8 — не хватает памяти;

10 — несовместная операционная среда;

11 — нераспознаваемая разметка (формат) диска;

12 — неверный код доступа к диску (ошибка в поле Mode файловой записи);

18 — искомые файлы исчерпаны (возникает при поиске файлов по шаблонам).

Обычно переменная DosError используется в сопряжении с процедурами FindFirst и FindNext. {361}

16.4.3. Процедуры поиска файлов на диске

16.4.3.1. Процедуры FindFirst(Path : String; Attrib : Word; VAR SR: SearchRec ) и FindNextt(VAR SR : SearchRec ). Эти процедуры предназначены для нахождения файлов на диске и всегда сопряжены между собой. Процедура FindFirst принимает в виде параметров строку с указанием маршрута поиска и имени файла (или шаблона для имен файлов) и числовое значение Attrib, указывающее атрибут искомых файлов. Атрибут может задаваться константами или их суммами. Он показывает, какие именно типы имен надо найти. Вызов процедуры FindFirst при заданных значениях параметров Path и Attrib должен производиться один раз. При этом в переменную SR предопределенного типа SearchRec запишутся параметры первого найденного файла (имя, атрибут, дата и время создания и его длина). Кроме этого, будет подготовлена специальная системная запись в памяти для ее дальнейшего использования процедурой FindNext. Эта процедура всегда должна вызываться после FindFirst (или не вызываться вовсе в противном случае). FindNext просто записывает в переданную ей переменную SR параметры следующего найденного файла, удовлетворяющего значениям Path и Attrib.

Контролером работы обеих процедур является переменная DosError. Она равна нулю, если вызов процедур дал какие-либо реальные результаты. Если же вызов закончился ошибкой (такое будет, если неверно задать запрос, или не существует искомых

USES DOS; { ПРИМЕР ПОИСКА МЕТКИ ДИСКА } { Функция возвращает метку диска. } FUNCTION GetVolume( Disk : String ) : String; VAR SR : SearchRec; BEGIN { Поиск. Имя диска дописывается до шаблона.} FindFirst( Disk+'\*.*', VolumeID, SR ); case DosError of { анализ : } 0 : GetVolume = SR.Name; { нашлась } 18 : GetVolume = 'NO LABEL' { не нашлась } else GetVolume = 'ERROR'#7 { ошибка } end {case} END; BEGIN { ПРИМЕР ВЫЗОВА } WriteLn( 'Метка диска С: ', GetVolume( 'С:' ) ); ReadLn { пауза до нажатия клавиши ввода } END.

Рис. 16.7 {362}

файлов, или их список исчерпался при очередном запросе FindNext), DosError будет хранить ее код. При этом FindFirst может дать коды 2 и 18, a FindNext — только 18.

Ряд примеров (рис. 16.7,16.8,16.9) показывает, как можно использовать описанные процедуры.

USES DOS; { ПРИМЕР ПРОВЕРКИ СУЩЕСТВОВАНИЯ ФАЙЛА } (Функция возвращает True, если файл FileName существует. } FUNCTION FileExists( FileName : String ) : Boolean; VAR SR : SearchRec; BEGIN { Поиск происходит только среди файлов. } FindFirst(FileName,AnyFile-VolumeID-Directory,SR); FileExists := ( DosError = 0 ) END; BEGIN { — ПРИМЕР ВЫЗОВА — } if FileExists( 'C:\PASCAL\*.PAS' ) then begin WriteLn( 'Здесь есть Паскаль-программы !’); if FileExists( 'C:\PASCAL\demo.pas ‘) then WriteLn('...И файл DEMO тоже здесь есть!') else WriteLn( 'Но среди них нет файла DEMO...'); end {then} else WriteLn( В каталоге нечего искать ! ); ReadLn { пауза до нажатия клавиши ввода } END.

Рис. 16.8

USES DOS; { ПРИМЕР ПОКАЗА СОДЕРЖИМОГО КАТАЛОГА } { ПРОЦЕДУРА ПОКАЗЫВАЕТ СПИСОК СОДЕРЖИМОГО ДИСКА ПО } { ШАБЛОНУ Where } PROCEDURE ShowDisk( Where : PathStr ); TYPE { виды атрибутов } AttrType = ( RO, Hid, Sys, Vol, Dir, Arc ); CONST { их обозначения } AttrText : Array[AttrType] of.Char = ('R', 'H', 'S', ‘V’, 'D', 'A'); { их значения } AttrVal : Array [AttrType] of Byte = ( 1, 2, 4, 8, 16, 32 );

Рис. 16.9 {363}

VAR i : AttrType; { переменная цикла по атрибутам } SR : SearchRec; DT : DateTime; BEGIN if Where=' ' { Если пустая строка, } then Where:='*.*'; { то дописать шаблон. } { Поиск происходит среди файлов и каталогов:} FindFirst(Where, AnyFile, SR); { найти первый файл } while DosError = 0 do begin { пока нет ошибки } with SR do begin { очередной объект } Write( Name:15, Size:10 ); UnPackTime( Time, DT ); with DT do Write(Day:5,'-',Month:2, '-',Year:4, Hour:5, ':', Min:2, ':', Sec:2,' '); for i:=RO to Arc do { Цикл по атрибутам } if ( Attr and AttrVal[i] ) = AttrVal[i] then Write(AttrText[i]) else Write( '.' ); WriteLn end; {with SR} FindNext( SR ) { поиск следующего } end {while} END; { ПРИМЕР ВЫЗОВА } BEGIN ShowDisk( 'C:\*.*' ); ReadLn { пауза до нажатия клавиши ввода } END.

Рис. 16.9 (окончание)

Функция GetVolume возвращает метку диска, которая была установлена при форматировании или командой MS-DOS LABEL. Метка диска одна, поэтому используется только вызов FindFirst. С помощью FindFirst можно проверять наличие файла в определенном месте.

Последний пример показывает, как написать процедуру показа содержимого каталога (как это делается, например, в системах PC TOOLS или Norton Commander).

16.4.3.2. Функция FSearch( Path : PathStr, DirList: String ) : PathStr. Эта функция возвращает строку типа PathStr, в которой содержится имя и адрес файла на диске. Параметры функции несколько необычны. Первый параметр Path задает имя файла, который нужно отыскать, а второй параметр DirList является списком маршрутов, разделенных точкой с запятой и указывающих, где {364} именно искать файл. Возможные вызовы функции FSearch могут иметь такой вид:

USES DOS;

VAR S : PathStr;

BEGIN

{Поиск файла в списке каталогов: }

S:=FSearch('MYFILE.DOC', 'C:\;C:\TOOLS;C:\HELP;D:\' );

...

{Поиск файла в одном каталоге: }

S:= FSearch( 'YOURFILE.PAS', 'C:\PASCAL\PAS' );

...

{ Поиск файла в текущем каталоге: }

S:= FSearch( 'OURFILE.PAS' , ‘ ‘);

...

END.

Перед тем как начать поиск файла в каталогах списка DirList, функция всегда попытается отыскать его в текущем каталоге. Если файл будет найден, то в переменную S запишется имя файла из параметра Path, в противном случае функция вернет пустую строку. Легко заметить, что параметр DirList аналогичен по синтаксису команде РАТН=... MS-DOS. Поэтому, если программе надо искать файл (не обязательно .СОМ или .ЕХЕ) в общедоступных каталогах, то можно построить вызов

S: = FSearch( 'MyFile.txt', GetEnv( 'PATH' ) );

Функцию FSearch можно, в принципе, использовать для проверки наличия файла в указанном месте. Более того, именно так и надо поступать, если поиск ведется во многих местах. Но для нахождения файла в одном конкретном месте более эффективна процедура, построенная из FindFirst и FindNext.