IMHO.WS - Проблемы с графическим режимом в Borland Pascal 7

IMHO.WS (http://www.imho.ws/index.php)

- Программирование (http://www.imho.ws/forumdisplay.php?f=40)

- - Проблемы с графическим режимом в Borland Pascal 7 (http://www.imho.ws/showthread.php?t=84500)

steelik

25.04.2005 21:15

Проблемы с графическим режимом в Borland Pascal 7

Код:

Program Ex_1;



Uses Graph;



Var Gd, Gm: integer;



Begin

Gd:=VGA;

Gm:=VGAhi;

Initgraph(Gd,Gm,'');



if GraphResult = grOk then

begin

line(0,0,639,479);

Readln;

CloseGraph;

end;



End.

Вообщем жму CTRL+F9, собирается, блынкает черный экран и обратно. Жму ALT+F5, ничего особенного, то есть никаких ошибок не возникает, в чем может быть дело? Всё это под XPSP2 стоит.

cerafim

26.04.2005 05:44

steelik
еще один модуль crt, или это у меня в голове все перевернулось или он должен быть подключен... и еще в настройках паскаля, должны быть указаны пути до директорий с модулями...
в общем это основные проблемы которые у меня были во время учебы

Willow

27.04.2005 19:56

Для того, чтобы увидеть код ошибки нужно написать следующее:

Error:=GraphResult;
If error<>grOk then
begin
writeln('Graph error #',error);
halt;
end;

Bishop

30.04.2005 08:12

steelik
По ходу все у тебя работает: программа запускается, переходит в граф. режим и, после рисования линии, выходит из него и завершается. А оператор Readln; в граф. режиме не осуществляет задержку.
Попробуй вместо него поставить конструкцию вроде
repeat until (readkey=#13);
(Enter для выхода).

Ghost

30.04.2005 08:43

steelik
Есть там маленький глюк: даже прописав все пути или конкретно указав в InitGraph путь к графическому драйверу (третий параметр), он (драйвер) не находится. Попробуй переписать его (файлик egavga.bgi из папки BGI) в текущую папку (в которой лежит сама твоя прога). И еще можно попробовать детектить графический режим, а не указывать явно - с этим тоже возникают проблемы при работе из под винды:

Код:

uses

  graph, crt;



var

  gd, gm: integer;



begin

  gd := detect;

  initgraph (gd, gm, '');

  if GraphResult = grOk then begin

    line (0, 0, getmaxx, getmaxy);

    readkey;

    closegraph;

  end;

end.

Часовой пояс GMT +4, время: 21:59.