Вывод картинки в Pascal

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Аватара пользователя
Колядин Максим
Сообщения: 297
Зарегистрирован: 16 ноя 2006, 19:09
Откуда: Seattle, WA
Контактная информация:

Здраствуйте, програмисты! Скажите пожалуйста, как на Паскале написать программу, которая выведит картинку с физического диска на экран.
Возможно ли такое вообще? Если да, то как?
Спасибо!
Программист - это человек, который решает способом, который вы не понимаете, проблемы, о которых вы даже не подозревали...
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Смотря какую картинку надо вывести. Учитывая, что графические возможности Паскаля ограничены 640х480х16 цветов - лучше для этих целей использовать Delphi.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Аватара пользователя
somewhere
Сообщения: 1858
Зарегистрирован: 31 авг 2006, 17:14
Откуда: 71 RUS
Контактная информация:

И в Паскале можно. Достаточно установить Vesa драйвер. Он кажеться так и зоветься - Vesa.bgi
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Ох, давно я на Паскале за графику не брался! А у Весы какое разрешение и глубина цвета?
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Аватара пользователя
Колядин Максим
Сообщения: 297
Зарегистрирован: 16 ноя 2006, 19:09
Откуда: Seattle, WA
Контактная информация:

Somewhere, в папке BGI нет vesa.bgi или даже чего-то похожего, но есть Views.tpu
Если можно, поподробнее о Vesa и где его можно взять, спасибо.
Программист - это человек, который решает способом, который вы не понимаете, проблемы, о которых вы даже не подозревали...
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Естественно, нет, он не так уж давно появился, насколько я помню. А где его взять - STFW. Яндекс - найдется все, Гугля - ничего и не терялось.
http://www.sources.ru/pascal/graph/vesa.zip
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Аватара пользователя
Колядин Максим
Сообщения: 297
Зарегистрирован: 16 ноя 2006, 19:09
Откуда: Seattle, WA
Контактная информация:

Огромное спасибо, и теперь скажите, пожалуйста, как этим пользоваться, куда извлекать файлы, и вывести изображение на экран. Спасибо, за ответы!
Программист - это человек, который решает способом, который вы не понимаете, проблемы, о которых вы даже не подозревали...
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Вроде бы на старых драйверах (типа egavga.bgi) это звучало так:

Код: Выделить всё

var driver,mode:integer;
begin
  driver:=detect; {Уж не помню, в апострофах или как}
  initgraph(driver,mode,''); {вместо пустой строки - путь к файлу bgi, если он не в той же папке}
  {Потом уже идет непосредственно рисование, всякие там line, rectangle, putpixel и т.д. - см. справку по модулю graph.tpu}
  closegraph;
end.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Аватара пользователя
somewhere
Сообщения: 1858
Зарегистрирован: 31 авг 2006, 17:14
Откуда: 71 RUS
Контактная информация:

&quot писал(а):Ох, давно я на Паскале за графику не брался! А у Весы какое разрешение и глубина цвета?
Зависит от видеоадаптера, обычно, все что видно в винде + еще несколько текстовых режимов 132х50, 132х60 поддерживают почти все. По крайней мере на S3 Trio 64V+ с 2М (царствие ему железное) добивался 1600х1200х256 и 1024х768х64К. С совпеменными уже не рабоал, но как правило все поддерживают VESA 1.2 как минимум
Аватара пользователя
somewhere
Сообщения: 1858
Зарегистрирован: 31 авг 2006, 17:14
Откуда: 71 RUS
Контактная информация:

&quot писал(а):Естественно, нет, он не так уж давно появился, насколько я помню.
На самом деле уже давно был, где я его откопал не помню, но было это в году так 1998
Ответить