Версия для печати темы

Автор: Orlangur 12.11.2005 20:55

Появилась такая проблема:
В Паскале перестал пахать графический режим. Опишу подробнее:
Возьмем наипростейший пример:

Program lines;
Uses
Graph, Crt;
Var
GraphDriver, GraphMode, i, n: integer;
Begin
GraphDriver := Detect;
GraphMode := 0;
InitGraph(GraphDriver, GraphMode, '');
n := 50;
For i:= 1 to 10 do
begin
PutPixel(n, 100, Red);
n := n+1;
end;
SetBkColor(White);
ReadKey;
CloseGraph;
end.

Компилируется эта прога нормально, а когда запускаешь выдаёт ошибку:
"BGI Error: Graphics not initialized (use InitGraph)".
Использую я Free Pascal. Пробовал на Turbo Pascal - аналогичная ситуация.
Как быть?

Автор: Altair 12.11.2005 20:57

Var
GraphDriver, GraphMode, i, n: integer;
Begin
GraphDriver := Detect;
GraphMode := 0;
InitGraph(GraphDriver, GraphMode, '');

замени кусок на

Var
  i, n: integer;
 
GraphDriver, GraphMode:smallint;

Begin
GraphDriver := d8bit;
GraphMode := m800x600;
InitGraph(GraphDriver, GraphMode, '');

и компилируй под win 32.
номер ошибки скажи если будет .

p.s. в uses вместо crt - wincrt.

Автор: Orlangur 12.11.2005 21:30

Это как? Всмысле 32 битным компилятором?

Автор: Orlangur 12.11.2005 21:40

Сделал как посоветовал.
При компиляции выдал такую ошибку:
Error 3: Unknown identifier.
При этом указывает на:

GraphDriver, GraphMode: smallint;

Автор: Altair 13.11.2005 0:55

Нет так мы тебе помогать не будем.
Мне нужно ТОЧНО значть:
КОМПИЛЯТОР
ВЕРСИЯ КОМПИЛЯТОРА
ПЛАТФОРМА ПОД КОТОРУЮ КОМПИЛИРУЕШЬ
пока этой информации не будет, диалога не будет!

Автор: Orlangur 13.11.2005 3:57

Turbo Pascal 7.01, version Haypo (0.91 BETA).
Free Pascal Version 1.0.6.
Платформу под которую компилирую не знаю.
А какие платформы вообще бывают? Какие лучше?

Автор: Altair 13.11.2005 4:06

Выбери что-то одно!
Программы для одного не совместимы на 100% с другим.

ДОС или ВИН ?
Ты все еще в облаках витаешь,
если ты работаешь только с 16 битами, забудь о FPC и живи в прошлом веке, иначе выбрасывай TP и юзай только FPC ... но скачай более новую версию.
Хорошо дальше, ты точно должен щас сказать какой компилер берешь и платформу под котрую компилишь.
Дело в отм что в ВИн приложениях не нужен BGI, раз у тебя ошибка такая, значитв FPC ТЫ НЕ КОМПИЛИРУЕШЬ!!! (ТАм такой ошибки быть не может)
оооххх..

Автор: Orlangur 13.11.2005 4:23

Я уже разобрался...
Компилю я под Вин.
Скачал нормальную 32 битную версию Free Pascal 2.0.
Теперь всё ОК.

Что такое - smallint?

А что за d8bit?

Автор: Altair 13.11.2005 4:24

тип данных. целочисленный.

стандарт задания видеодрайвера. 8 битный цвет (256 цветов)

Автор: Orlangur 13.11.2005 4:29

Спасибо Altair...
Извини за гимор...

Автор: Altair 13.11.2005 4:30

Orlangur , да ты брсь, заходи еще, мы тут как раз за тем что бы отвечать на вопросы

Автор: Дима 21.12.2005 19:19

Привет, скажите плиз как писать текст в ГРАФ режиме.
пишу вроде как надо:
settextstyle (0,0,2);
outtextxy (20,20,'...');
нажимаю CTRL F9 программа работает,а еулсеф нету

Автор: volvo 21.12.2005 19:29

Дима, какой компилятор у тебя? Какой-то из 32-битных или обычный TP? И, кстати, приведи программу полностью...

Автор: гость 23.05.2007 0:15

uses graph;
var graphdriver, graphmode: integer;
Begin
graphdriver:= detect;
Initgraph (graphdriver, graphmode,'c:/tp/bgi');
setbkcolor

а че дальше то?
помогите плз

рисуночек нужен

Автор: Ozzя 23.05.2007 11:04

Зарегистрируйся и получишь возможность прикреплять рисунки