Страница 1 из 3

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

Добавлено: 04 дек 2006, 00:53
Колядин Максим
Здраствуйте, програмисты! Скажите пожалуйста, как на Паскале написать программу, которая выведит картинку с физического диска на экран.
Возможно ли такое вообще? Если да, то как?
Спасибо!

Re: ПОМОГИТЕ! (Pascal)

Добавлено: 04 дек 2006, 11:20
Хыиуду
Смотря какую картинку надо вывести. Учитывая, что графические возможности Паскаля ограничены 640х480х16 цветов - лучше для этих целей использовать Delphi.

Re: ПОМОГИТЕ! (Pascal)

Добавлено: 04 дек 2006, 15:56
somewhere
И в Паскале можно. Достаточно установить Vesa драйвер. Он кажеться так и зоветься - Vesa.bgi

Re: ПОМОГИТЕ! (Pascal)

Добавлено: 04 дек 2006, 17:22
Хыиуду
Ох, давно я на Паскале за графику не брался! А у Весы какое разрешение и глубина цвета?

Re: ПОМОГИТЕ! (Pascal)

Добавлено: 04 дек 2006, 20:35
Колядин Максим
Somewhere, в папке BGI нет vesa.bgi или даже чего-то похожего, но есть Views.tpu
Если можно, поподробнее о Vesa и где его можно взять, спасибо.

Re: ПОМОГИТЕ! (Pascal)

Добавлено: 04 дек 2006, 22:48
Хыиуду
Естественно, нет, он не так уж давно появился, насколько я помню. А где его взять - STFW. Яндекс - найдется все, Гугля - ничего и не терялось.
http://www.sources.ru/pascal/graph/vesa.zip

Re: ПОМОГИТЕ! (Pascal)

Добавлено: 04 дек 2006, 23:28
Колядин Максим
Огромное спасибо, и теперь скажите, пожалуйста, как этим пользоваться, куда извлекать файлы, и вывести изображение на экран. Спасибо, за ответы!

Re: ПОМОГИТЕ! (Pascal)

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

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

var driver,mode:integer;
begin
  driver:=detect; {Уж не помню, в апострофах или как}
  initgraph(driver,mode,''); {вместо пустой строки - путь к файлу bgi, если он не в той же папке}
  {Потом уже идет непосредственно рисование, всякие там line, rectangle, putpixel и т.д. - см. справку по модулю graph.tpu}
  closegraph;
end.

Re: ПОМОГИТЕ! (Pascal)

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

Re: ПОМОГИТЕ! (Pascal)

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