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

Колядин Максим · 05 дек 2006, 12:08

Цитата:
Потом уже идет непосредственно рисование, всякие там line, rectangle, putpixel и т.д. - см. справку по модулю graph.tpu}
_____________________________________________________________________
Напомню, что мне нужно вывести на экран картинку с локального диска, а не рисовать всякие line, ellise, в программе. Можно ли в програмной среде отобразить картинку?

somewhere · 05 дек 2006, 12:11

&quot писал(а):Напомню, что мне нужно вывести на экран картинку с локального диска, а не рисовать всякие line, ellise, в программе. Можно ли в програмной среде отобразить картинку?

Есть очень простой способ вывести картинку, но там кое-где нужен ассемблер, VESA.BGI будет уже не нужен. Картинка будет выводиться с использованием VESA, но без драйвера на Паскале. Если интересно, могу написать как?

Опиши формат файла, если такого нет, то параметры рисунка (длина, ширина, глубина цвета)

Колядин Максим · 05 дек 2006, 15:14

Цитата:
SOMWERE
Если интересно, могу написать как?
________________________________________________
Somwere, спасибо, конечно же интересно!!!
А свойства рисунка:
Имя: image01.jpg
ДлиннаХширина: 640x480
Глубина цвета: 24
Частота кадров: 1
В принцепе, мне любую цветную картинку надо.

Хыиуду · 05 дек 2006, 15:49

Если я не ошибаюсь в протоколе файла bmp, там сначала идет справочная информация, а потом уже байты, означающие цвет, причем задом наперед (с правого нижнего угла к левому верхнему). Поэтому, опять же, если не ошибаюсь, надо открыть файл как двоичный, пропустить нужное количество байт заголовка, потом считывать по три байта r,g,b и делать putpixel(...,...,rgb(r,g,b))

Колядин Максим · 05 дек 2006, 16:22

А как это "как двоичный"? И ещё, Хыиуду, Вы не могли бы немножечко поподробнее, ато я не очень вас понимаю... Но всё равно спасибо!

somewhere · 05 дек 2006, 16:32

&quot писал(а):пропустить нужное количество байт заголовка, потом считывать по три байта r,g,b и делать putpixel(...,...,rgb(r,g,b))

Это очччень долго, сначала читать по три байта, а потом и еще PutPixel - если б вы знали сколько времени тратиться на переключение банков видеопамяти... конечно 5 секунд не время на наших компах, но это не рационально. Завтра покажу прогу, ее дома в архивах надо покопать ну и доделать немного.
Кстати то, что файл в JPEG - если найдете декодер для Pascal - то будет просто вообще супер, а так BMP, ну и прочие непакованные форматы :-)

somewhere · 05 дек 2006, 16:36

&quot писал(а):А как это "как двоичный"?

Двоичный, значит не текстовый

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

var 
f  : file;
f1: file of byte; {word, any other type, used to specify structure}

Колядин Максим · 05 дек 2006, 18:45

Спасибо за предоставленную информацию жду программы. Спасибо.
До завтра!
I'm waiting. . . . . .

somewhere · 06 дек 2006, 13:24

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

Колядин Максим · 06 дек 2006, 16:21

В процедуре SetVideoMode, в строке:
~~~~~~~
shr ah, 3
~~~~~~~
- выводится ошибка номер 159
"Error 159: 286/287 instructions are not enabled" , как исправить?
Пробывал "shr" на "mov" заменить, тогда программа запускается и невыдавая никакой ошибки выходит.
Если же повторить это же, для файла формата JPG,(все данные о свойствах рисунка я писал ранее), то программа отображает нечто непонятное (какие-то полоски разноцветные сверху) то же при условии что "shr" на "mov" заменить и изменить в assign на JPG -
assign(f,'001.jpg').
Somwere, помоги пожалуйста, очень надо...