Настройка работы с графикой в Pascal

[Ma-stiff]

Срочно нужно наладить работу с графикой в Паскале, по неизвестной мне причине graphmode не желает запускаться. Подключаю библиотеку (graph.tpu), компилирую (всё нормально, без ошибок и т.п.), запускаю - нифига. Вот исходники, списаны оба с учебников (для надёжности, учебники разные), только добавил вывод результатов и выход по нажатию [Esc]:

uses graph, crt;
var d, m: integer;

begin
d:=detect;
initgraph (d,m,'');
setcolor (white);
rectangle (0,0,91,480);
closegraph;
writeln (graphresult);
writeln ('d= ',d);
writeln ('m= ',m);
readln;
end.

program graphuse;
uses graph, crt;
var Gd, Gm: integer;
    key: char;

begin
Gd:=VGA;
Gm:=VGAhi;
initgraph (Gd,Gm,'');
if graphresult=grok then begin
repeat
key:=readkey;
setcolor (2);
rectangle (0,0,91,480);
until key=#27;
end;
closegraph;
writeln (graphresult);
readkey;
end.

Первая прога просто сразу закрывается, вторая выдаёт -1.

 

[mause]

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

Uses Crt, Graph;

Var Gd, Gm : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '(вот здесь путь к модулю)');
 If GraphResult <> grOk Then Halt(1);
 Randomize;
 Repeat
  Line(Random(200), Random(200), Random(200), Random(200));
 Until KeyPressed;
 ReadLn;
 CloseGraph;
End.

где в апострофах путь к графическому модулю у тебя стоит там прочерк и она ишет в корневом каталоге и не находит даже если она там есть укажи путь и все должно работать. эта прога просто вылетает если не находит граф. модуля

 

[Ma-stiff]

mause
Так прочерк потому, что вроде всё что нужно кинул именно в корень.

 

[mause]

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

 

[Ma-stiff]

mause
Короче разобрался я, народ подсказал.
Я просто по глупости думал, что всё дело только с graph.tpu, а путь надо было писать к egavga.bgi :bang: . Теперь всё работает.
Но появился новый вопрос: нельзя скомпилить так, чтобы экзешнику egavga.bgi не был нужен?

 

[mause]

вроде нет это такая фишка пасклевская даже многие игры под дос написаные на паскале содержат этот модулью во всяком случае я не знаю как это делается....

 

[Ma-stiff]

mause
Значит, будем писать на Delphi Вчера просидел за ним, даже к0лькулятЫрЪ простенький накатал

 

[mause]

"В делфи все можно сделать банальным тыканьем мыши по экрану" - фраза одного из наших преподов! =))) А кулькулятор там накатать можно довольно веселый и с комментами типа "а че как сложно то ?" во прикол то...