Проблема с модулем GRAPH.Паскаль

[Wi1D]

Проблема состоит в том что при написании программы с использованием модуля GRAPH у меня на экране вместо проги пишут BGI errors:bla bla bla uses(inigraph);
Ради этого я установил Xp и перебрал все ПАСКАЛИ!ничего не помогает...она либо не запускаеться либо запускаеться но черный экран а после вылет с ошибкой.я залез в каталог а там EGAVGA и GRAPH 1992года...
Вообщем если у кого нибудь есть паскаль на котором идет модуль GRAPH напишите сюда или сразу в личку 494963786...
Просто я пытаюсь подключить этот модуль уже неделю
По сути сам код мне не важен...мне просто нужно подключить модуль!!!а код я позже сам напишу!!!

[Arigato]

Нужно использовать процедуру InitGraph. Вот пример из хэлпа:

{Sample code for the Initgrf procedure.}

 uses Graph;

var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin  { Do graphics }
    Line(0, 0, GetMaxX, GetMaxY);
    Readln;
    CloseGraph;
  end
  else
    Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

[Wi1D]

этот код выдает ошибку 16 bit MS-DOS Sub system
E:\......
This system does not support fullscreen mode. Choose ''Close'' to terminate the application.

А у Вас этот код работат?если да то не могли бы вы сказать свою Операционную систему и прислать мне на ящик phands@ramber.ru тот паскаль который у Вас работает!

[Arigato]

Код работает. Turbo Pascal 7.0, Windows XP SP2.

This system does not support fullscreen mode. Choose ''Close'' to terminate the application.

Система не поддерживает полноэкранный режим. Честно, не сталкивался с такой ошибкой.

[Wi1D]

Надо попробывать(((А не могли бы Вы заархивировать Turbo Pascal 7.0 и прислать на phands@rambler.ru

[Somebody]

Такую ошибку не видел, но было такое, что прога вылетала, а на соседнем компе с такой же системой, но другим железом всё нормально. Выход так и не нашёлся.

[Arigato]

А не могли бы Вы заархивировать Turbo Pascal 7.0 и прислать

Честно, не хочется перегонять несколько метров. К тому же Паскаль можно скачать в инете, поищите.

[albatros]

var
a,b: integer;
begin
detectgraph(a,b);
initgraph(a,b,'относительный или абсолютный путь к egavga.bgi');
{рисуешь чё хочешь}
closegraph;
end.

копируешь из папки файл egavga bgi и вставляешь в папку с прогой
в качестве пути ничего не указываешь

компилируешь на turbo pascal
если выбрасывает turbo pascal, компилируй на free pascal

[albatros]

http://www.tpxexe.narod.ru/
скачай отсюда turbo pascal

[Алексей Селиванов]

Сообщение от Wi1D

этот код выдает ошибку 16 bit MS-DOS Sub system
E:\......
This system does not support fullscreen mode. Choose ''Close'' to terminate the application.

А у Вас этот код работат?если да то не могли бы вы сказать свою Операционную систему и прислать мне на ящик phands@ramber.ru тот паскаль который у Вас работает!

Такое ощущение у тебя вообще этот модуль отсутствует!!!!