Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.09.2008, 23:20   #1
Teksa
Пользователь
 
Регистрация: 24.08.2007
Сообщений: 88
По умолчанию проблемы с инициализацией графики

---------------------------
16-разрядная подсистема MS-DOS
---------------------------
Turbo Pascal
Процессор NTVDM обнаружил недопустимую инструкцию.
CS:0000 IP:0077 OP:f0 37 05 15 02 Для завершения работы приложения нажмите кнопку ''Закрыть''.
---------------------------
Закрыть Пропустить
---------------------------


вот такая вот интересная табличка выскакивает при попытке скомпилировать на турбо паскале 7.0 вот такую вот программу

Код:
Program Graphic;
uses graph;
var driver, mode, Err : integer;
begin
 driver:=detect;
 mode:=detect;
 InitGraph (driver, mode,'C:\pascali\tp7\bgi');
 Err:= GraphResult;
 if Err<>grOK then writeln ('Ошибка при инициализации графического режима')
              else begin
                    SetColor (9);
                    Rectangle (50,50,100,100);
                    Line (50,50,75,10);
                    Line (75,10,100,50);
                   end;
 readln;
 CloseGraph;
end.
Хотя от кода мало что меняется, достаточно попытатся инициализировать графику. Паскаль неюзался больше года. Программы с граф режимом ранее работавшие точно так же ругаются... винда обновлялась..

Очень хочется все свалить на паскальи виндовс, но хотелось бы знать как поправить.

ЗЫ на 98 ом работает...
Teksa вне форума Ответить с цитированием
Старый 30.09.2008, 23:43   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Попробуйте убрать строки driver:=detect; mode:=detect;
Если не поможет, качайте версию 7.1 - там многое поправлено специально для новых Windows
eoln вне форума Ответить с цитированием
Старый 06.10.2008, 13:14   #3
Teksa
Пользователь
 
Регистрация: 24.08.2007
Сообщений: 88
По умолчанию

detect проходит, видимо ищем 7.1, спасибо.
Teksa вне форума Ответить с цитированием
Старый 06.10.2008, 15:00   #4
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,239
По умолчанию

Проверил у себя(TurboPascal 7), работает(немного изменил код, лишнее было):
Код:
uses graph;
var GD, GM, Err :integer;
begin
 GD:=detect;
 InitGraph(GD, GM,'');
 Err:= GraphResult;
  if Err<>grOK then
   WriteLn('ЋиЁЎЄ* ЇаЁ Ё*ЁжЁ*«Ё§*жЁЁ Ја*дЁзҐбЄ®Ј® ०Ё¬*')
  else
   begin
   SetColor(9);
   Rectangle(50,50,100,100);
   Line(50,50,75,10);
   Line(75,10,100,50);
  end;
 ReadLn;
 CloseGraph;
end.
путь к драйверу необязательно писать, сам найдёт, только положите его к программе в папку(например: EGAVGA.BGI). Текст должен быть структурирован, удобнее для чтения и понимания. Паскалю 7 и т.д без разницы, есть ли в начале: Program xxxx;
__________________________________
Windows XP SP2

Последний раз редактировалось Alter; 06.10.2008 в 19:27.
Alter вне форума Ответить с цитированием
Старый 06.10.2008, 18:03   #5
Teksa
Пользователь
 
Регистрация: 24.08.2007
Сообщений: 88
По умолчанию

Гм)) это был пример скопипастенный из методички с кафедры кибернетики)) на самом деле проблемы не в коде, перестали работать давно написанные и давно сданные программы, насчет program xxx - то это опять к той же методичке)

ЗЫ проблему канешно решил.... установкой 98 ой винды.... понимаю что не оптимально... но недо оптимальности тут уже. Реакция на оптимизированный пример та же.

Последний раз редактировалось Teksa; 06.10.2008 в 18:12.
Teksa вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Алгоритмы вывода графики BOBAH13 Мультимедиа в Delphi 3 04.07.2011 11:35
Графики в БД ~LiS~ БД в Delphi 1 05.06.2008 22:19
графики ZhekON Помощь студентам 6 10.04.2008 18:14
Графики delphin100 Общие вопросы Delphi 6 16.03.2008 10:40
Вывод графики в DBGrid Saro БД в Delphi 0 20.04.2007 11:39