Graphics error: Device driver file not found (EGAVGA.BGI)

Почему может возникать эта ошибка?

Начнём с простого. Как вызывается InitGraph?

Пример полной программы:

uses Graph;

var
  ErrorCode        : Integer;
  GrDriver, GrMode : Integer;

begin
  GrDriver := Detect;
  InitGraph(GrDriver, GrMode, 'X:\BP');
  ErrorCode := GraphResult;
 if ErrorCode <> grOk then
 begin
   WriteLn('Ошибка инициализации графики:');
   WriteLn(GraphErrorMsg(ErrorCode));
   Halt(1);
 end;
  ClearDevice;
  SetColor(White);
  Rectangle(0, 0, GetMaxX, GetMaxY);
  Line(0, 0, GetMaxX, GetMaxY);
  Line(0, GetMaxY, GetMaxX, 0);
 ReadLn;
  CloseGraph;
end.

Для успешной инициализации довольно важен третий параметр.

В School Pak теоретически он должен быть равен 'X:\BP', но, начиная с версии 1.3, это уже не важно, всё равно будет работать. Сделано всё с помощью резидента, резидент работает только внутри School Pak, модуль Graph не затронут.

В других версиях Turbo Pascal вместо 'X:\BP' должен быть путь к BGI драйверам (например, 'C:\BP\BGI' или 'C:\TP7'). Как вариант, можно EGAVGA.BGI положить в один каталог с программой, тогда должно быть

InitGraph(GrDriver, GrMode, '');

Скачать EGAVGA.BGI

EGAVGA.BGI

School Pak

Не все версии Turbo Pascal одинаково хороши. Надоело докачивать довески? Пора установить Turbo Pascal School Pak

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //