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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 09.03.2011, 13:54   #11
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,645
По умолчанию

Рисунок действительно сохранён как 256-цветный (он же 8-битный)? Причём сохранён должен быть старым способом (желательно в паинте, а то кто знает какие bmp в современных программах ).
Если так, то значит нет подходящего графичиского режима (хотя паскаль обычно сообщает что у него не получилось перейти в графический режим, при условии что директивы в дефолте). У меня нормально выводится только если писать так:
Код:
uses bmp, graph;
var
  gd, gm: integer;
begin
  gd := installuserdriver('svga256m', nil); //файл svga256m.bgi или какой там у тебя есть.
  gm := 2;
  initgraph(gd, gm, '');
  write('graphresult=',graphresult);
  outtextxy(10,10,'Graph OK');
  SBMI('0.bmp', 0, 0, 0);
  readln;
  closegraph
end.
Ну и если рисунка не будет, то смотри ошибку, которую тебе программа скажет. Попробуй поменять svga256m на egavga, или вообще сделать всё detect'ом.
И всё это желательно делать на какой-нибудь виртуальной машине, например, DOSBox, ибо Win7 не всегда правильно работает с паскалем.
Если же рисунка нет, а надпись есть, то рисунок всё-таки не соответствует нужному формату bmp.
eoln вне форума
Старый 09.03.2011, 17:13   #12
tenager
 
Аватар для tenager
 
Регистрация: 17.03.2010
Сообщений: 9
По умолчанию

Пишет graphresult =0
Graph OK а изображения нет(
tenager вне форума
Старый 09.04.2011, 00:02   #13
funn
Новичок
Джуниор
 
Регистрация: 08.04.2011
Сообщений: 1
По умолчанию

Спасибо все отлично работает
funn вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся.... EVIL Помощь студентам 3 22.11.2009 02:37
Как вывести изображение из paintbox на принтер, если оно занимает 2 экрана? aleksei199 Общие вопросы Delphi 8 25.06.2008 14:00
Как вывести из текстового файла на экран русский текст? Mischa Помощь студентам 8 12.03.2008 06:23
Нужно вывести на экран каждое слово на новой строке. Юлёк PHP 5 28.01.2008 14:57