Процедура InitGraph возвращает также и результат своей работы в параметре GraphDriver. В случае ошибки он может принимать значения, приведенные в табл. 19.1.
таблица 19.1.
Значение
Объяснение
-2
Нет графического адаптера
-3
Не найден файл драйвера
-4
Ошибка в драйвере (в его коде) {408}
-5
Не хватает памяти для загрузки драйвера
-10
Невозможный режим для выбранного драйвера.
-15
Нет такого драйвера
Если же ошибок при инициализации не обнаружено, то в параметре GraphDriver возвращается номер адаптера из приведенного в разд. 19.2.1.1 списка констант.
В модуле Graph реализован еще один способ проверки результата проведения графической операции. Он осуществляется с помощью функции
GraphResult : Integer
которая возвращает код результата последнего вызова одной из процедур или функций, указанных в табл. 19.2.
Таблица кодов, возвращаемых GraphResult, и расшифровка их содержания приведена ниже при описании функции GraphErrorMsg, так как обычно эти функции используются совместно. Заметим, что после одного вызова GraphResult следующий ее вызов даст нулевое значение, поэтому для дальнейшего использования результатов тестирования рекомендуется сохранять значение этой функции в какой-либо переменной.
Для быстрой выдачи простого сообщения о типе ошибки графической системы используется функция, преобразующая результат вызова функции GraphResult в сообщение, которое можно вывести на экран процедурой Write. Эта функция объявлена как: {409}
GraphErrorMsg(ErrorCode : Integer) : String;
Константы кодов ошибок, определенные в модуле Graph, и соответствующие им сообщения приведены в табл.19.3.
Таблица 19.3
Константа
Код
Сообщение об ошибке
Перевод и
пояснения
grOk
No error
Ошибки нет
grNoInitGraph
-1
(BGI) Graphics not installed (use InitGraph)
Графика не инициализирована
grNotDetected
-2
Graphics hardware not detected
Графический адаптер не найден
grFileNotFound
-3
Device driver file not detected
BGI-файла нет в указанном каталоге
grInvalidDriver
-4
Invalid device driver file
BGI-файл содержит ошибочный код
grNoLoadMem
-5
Not enough memory to load driver
Нет места в ОЗУ для загрузки драйвера
grNoScanMem
-6
Out of memory in scan fill
При работе процедуры FillPoly не хватает рабочей памяти
grNoFloodMem
-7
Out of memory in flood fill
При работе процедуры FloodFill не хватает рабочей памяти
grFontNotFound
-8
Font file not found
CHR-файла нет в указанном каталоге
grNoFontMem
-9
Not enough memory to load font
Нет места в ОЗУ для загрузки шрифта
grInvalidMode
-10
Invalid Graphics mode for selected driver
Невозможный режим для выбранного драйвера {410}
grError
-11
Graphics error
Ошибка графики
grIOError
-12
Graphics I/O error
Ошибка ввода-вывода графики
grInvalidFont
-13
Invalid font file
В файле шрифта неправильный код
grInvalidFontNum
-14
Invalid font number
Несуществующий номер шрифта
grInvalidDeviceNum
-15
Invalid device number
Несуществующий номер адаптера
Простейший блок инициализации графического режима в программе может выглядеть, как показано на рис. 19.1.
USES Graph; {подключен модуль Graph}
PROCEDURE GrInit; {инициализация режима графики}
VAR
GraphDriver : Integer; {для графического адаптера}
GraphMode : Integer; {для графического режима}
ErrorCode : Integer; {для кода ошибки}
BEGIN
GraphDriver := Detect; {режим автоопределения}
InitGraph(GraphDriver, GraphMode, ‘ ‘); {инициализация}
ErrorCode := GraphResult, {результат инициализации}
if ErrorCode <> grOk then {если неуспешно, то…}
begin
WriteLn(‘Ошибка графики:)’, GraphErrorMsg(ErrorCode));
WriteLn(‘Программа остановлена’);
Halt(1)
end {if}
END;
{{==ПРИМЕР ИНИЦИАЛИЗАЦИИ}==}
BEGIN
GrInit; {вызов инициализации}
Line(0, 0, GetMaxX,GetMaxY); {работа с графикой….}
Readln; {пауза до нажатия ввода}
CloseGraph {закрытие режима графики}
END.
Рис. 19.1 {411}
В дальнейшем процедуру GrInit лучше записать в отдельный файл (например, INITGRAF.PAS) и использовать директиву включения этого файла при компиляции (что и сделано во всех остальных примерах). Такой блок всегда включает стандартный графический режим максимального разрешения. Однако это не всегда необходимо. На адаптере CGA, например, уменьшение разрешения дает возможность использовать большее количество цветов, а на адаптерах EGA и VGA увеличивает количество видеостраниц. Ниже мы рассмотрим процедуры, позволяющие определять тип установленного графического адаптера и режимы, которые могут быть установлены для него.
