Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Зависание программы при InitGraph, (изменено) 
:(
    Опции темы
janit
Дата 2.4.2008, 06:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 2.4.2008

Репутация: нет
Всего: нет
Здравствуйте, уважаемые программисты.
Никак не получается запустить графический режим, директории в паскале указаны верно, файлы все присутствуют.
пытался и так:

Код

var d,m:integer;
begin
d:=detect;
initgraph(d,m,'x:\bgi');
end;


и так:
Код

var d,m:integer;
begin
d:=vga;
m:=vgahi;
initgraph(d,m,'x:\bgi');
end;


Итог: идет переключение в полноэкранный режим - и черный экран, при возврате обратно в оконный - такая картина, паскаль "висит":

Каков выход из этой ситуации? ОС - Windows XP SP2 Professional, железко -  AMD 64 4200+ , 2GB RAM, Nvidia GeForce 7900 GS.
Монитор жк... (читал пред. тему, но тема не раскрыта).

Может следует использовать альтернативы ТБ?

Это сообщение отредактировал(а) janit - 2.4.2008, 06:50

Присоединённый файл ( Кол-во скачиваний: 11 )
Присоединённый файл  tp.JPG 18,47 Kb
PM MAIL   Вверх
seat
Дата 2.4.2008, 16:14 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 20.3.2008

Репутация: нет
Всего: нет
Лови smile Думаю ответил на твой вопрос.

Присоединённый файл ( Кол-во скачиваний: 7 )
Присоединённый файл  seat.rar 17,19 Kb
PM MAIL   Вверх
volvo877
Дата 2.4.2008, 19:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Цитата(seat @  2.4.2008,  15:14 Найти цитируемый пост)
Думаю ответил на твой вопрос. 

Чем же, интересно? Тем, что привел пример вызова SetBkColor? Тебе ж сказали, что программа зависает на InitGraph, или внимательно читать вопрос для того, чтобы отвечать на него уже не принято? Главное - выложить свой код, да? Неважно, работает он или нет, можно его понять, или нет (я вот об этом:

Цитата

Код
s1:=9; { <--- Это что? Ты знаешь наизусть ВСЕ режимы? Не проще VGA/VGAHi }
s2:=2;
a:=0;
InitGraph(s1,s2,'EGAVGA.BJI'); { <--- Это что? BJI? Нет такого файла, что дальше? }

)


Итог: ты свою программу даже не запускал, а говоришь, что "помог"...

Это сообщение отредактировал(а) volvo877 - 2.4.2008, 19:09
PM MAIL   Вверх
Virtuals
Дата 3.4.2008, 09:16 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: нет
Всего: 11
вот держи, 100% рабочее
разные tpcrt можеш вырезать
правда это для режима 256цветов!!!
но идея станет ясна смотри модуль 3_256GR.PAS или GR256_3U.PAS (надеюсь подход с OBJ понравится, позволяет прикомпилить bgi к проекту)
но есть подозрение что проблемы с дровами на видеокарту!
было замечено что не все дрова позволяют использовать древние режимы из виртуальной машины мсдос (винда начиная с нт4)

самому пришлось перебрать несколько вариантов

примерчики
IMUL.PAS
и 
IMUL2.PAS
а вот 
LOAD256.PAS отдельная песня

Это сообщение отредактировал(а) Virtuals - 3.4.2008, 09:41

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  256G.rar 16,73 Kb
PM MAIL ICQ   Вверх
Virtuals
Дата 3.4.2008, 10:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: нет
Всего: 11
пример автора вот в таком виде у меня РАБОТАЕТ
и в ТР6 и в ТР7

Код

uses
  Graph;

var d,m:integer;
begin
d:=vga;
m:=vgahi;
initgraph(d,m,'');
      Line(0, 0, GetMaxX, GetMaxY);
ReadLn;
      CloseGraph;
end.
PM MAIL ICQ   Вверх
volvo877
Дата 3.4.2008, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Цитата(Virtuals @  3.4.2008,  09:35 Найти цитируемый пост)
пример автора вот в таком виде у меня РАБОТАЕТ

Мать вашу...  smile Да прочитайте вопрос наконец!!! Прочитайте, а не найдя слово "графика" бросайтесь отвечать сломя голову!!! Сказано, что проблема - в ЖК мониторе, что вы прицепились со своими примерами инициализации графики? Их только в хелпе Паскалевском - как собак нерезаных, нет, каждому надо обязательно свои пять копеек добавить!

Автору: поиск по интернету приводит к мысли, что проблема нерешаема (при использовании TP). Переходи на альтернативные средства разработки (FPC такой проблемы не имеет, проверено неоднократно).
PM MAIL   Вверх
Virtuals
Дата 3.4.2008, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: нет
Всего: 11
volvo877, 
что шумим?, ну честно нифига не понял что ты хочеш сказать?
я и пример проверил (дабы показать что дело не в коде) и четко написал
Цитата

но есть подозрение что проблемы с дровами на видеокарту!
было замечено что не все дрова позволяют использовать древние режимы из виртуальной машины мсдос (винда начиная с нт4)

самому пришлось перебрать несколько вариантов


сам столкнулся с таким глюком, когда древняя досовская программа 100% рабочая, вдруг вызвала черный экран!
и мне помогли танци с переустановкой дров на видяху
и не пришлось менять среду разработки, это явный глюк в дровах и винде (по крайне мере у меня)

ЗЫ еще несколько замечаний
1. это проявилось при использовании лсд монитора с DVI шнурком, на трубке все нормально было
2. еще один признак... не работал полноэкранный текстовый режим в некоторых дос приложениях

ЗЫЗЫ я не читал предыдущих тем, так как ссылок здесь на нее нет! и соответственно не в курсе о чем там реч
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

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

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0452 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.