Как вывести bmp изображение на экран?? - Паскаль, Turbo Pascal, PascalABC.NET

lexuss · 23.11.2007, 20:56

Как вывести bmp изображение на экран??помогите пожалуйста.

AlDelta · 23.11.2007, 23:09

Для этого вроде стандартных процедур нет. Используй сторонние модули.
Модуль bmp.tpu приложен ниже.
BMP.zip

Чтобы использовать этот модуль, его надо откомпилировать и прописать в сроке USES
(COMPILE->Destination disk, COMPILE->COMPILE)программе

Код:

SBMI(FILEname:string; X,Y:Word; FDR:Integer) //процедура загрузки БМР-хи 
                                               // (после подключения модуля)

где FILEname - путь к BMP файлу,
X,Y -координаты экрана, начиная с которых надо выводить рисунок( т.е если X=0, Y=0, то рисунок будет выведен в верхнем левом углу)
FDR - число показывающая смещение цвета, если вам нужно вывести рисунок такой, какой он виден в PAINT , то FDR равен 0

tenager · 08.03.2011, 14:53

у меня что-то не получается. Скомпилировал, скопировал файлы bmp.o, bmp.ppu в FPC/2.4.2/units/i386-win32/bmp. набрал программу:

Код:

uses bmp;
begin
   SBMI('751.bmp',1,1,0);
   ReadLn;
end.

Компилируется, но когда пытаюсь запустить - открывается только консоль и всё. Может я что не так сделал?

Stilet · 08.03.2011, 15:35

Наверное просто нужно процедурой InitGraph ввести программу в графический режим )

tenager · 08.03.2011, 15:54

tenager · 08.03.2011, 20:45

А вообще этот модуль у кого-нибудь заработал, или может быть есть ещё какой-нибудь модуль?

eoln · 08.03.2011, 20:47

Проверил - работает. Только при использовании этого модуля, кенгуру должен быть не более чем 8-битный.

tenager · 08.03.2011, 21:45

Вопрос у меня, конечно, смешной, но как сохранить в 8 бит? Paint и Photoshop дают не меньше 16 бит.

Somebody · 08.03.2011, 21:53

О_о В Paint'е же есть и 8- и 4- и 1- битный при сохранении.

tenager · 08.03.2011, 22:06

А вот сохранил. Но всё равно экран чёрный (

23.11.2007, 20:56	#1
lexuss Новичок Джуниор Регистрация: 23.11.2007 Сообщений: 1	Как вывести bmp изображение на экран?? Как вывести bmp изображение на экран??помогите пожалуйста.

23.11.2007, 23:09	#2
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	Для этого вроде стандартных процедур нет. Используй сторонние модули. Модуль bmp.tpu приложен ниже. BMP.zip Чтобы использовать этот модуль, его надо откомпилировать и прописать в сроке USES (COMPILE->Destination disk, COMPILE->COMPILE)программе Код: `SBMI(FILEname:string; X,Y:Word; FDR:Integer) //процедура загрузки БМР-хи // (после подключения модуля)` где FILEname - путь к BMP файлу, X,Y -координаты экрана, начиная с которых надо выводить рисунок( т.е если X=0, Y=0, то рисунок будет выведен в верхнем левом углу) FDR - число показывающая смещение цвета, если вам нужно вывести рисунок такой, какой он виден в PAINT , то FDR равен 0 Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows" Последний раз редактировалось AlDelta; 23.11.2007 в 23:11.

08.03.2011, 14:53	#3
tenager Регистрация: 17.03.2010 Сообщений: 9	у меня что-то не получается. Скомпилировал, скопировал файлы bmp.o, bmp.ppu в FPC/2.4.2/units/i386-win32/bmp. набрал программу: Код: `uses bmp; begin SBMI('751.bmp',1,1,0); ReadLn; end.` Компилируется, но когда пытаюсь запустить - открывается только консоль и всё. Может я что не так сделал? Последний раз редактировалось Stilet; 08.03.2011 в 15:35.

08.03.2011, 15:35	#4
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Наверное просто нужно процедурой InitGraph ввести программу в графический режим ) I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вывести на экран таблицу значений функции 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

08.03.2011, 15:54	#5
tenager Регистрация: 17.03.2010 Сообщений: 9

08.03.2011, 20:45	#6
tenager Регистрация: 17.03.2010 Сообщений: 9	А вообще этот модуль у кого-нибудь заработал, или может быть есть ещё какой-нибудь модуль?

08.03.2011, 20:47	#7
eoln Старожил Регистрация: 26.04.2008 Сообщений: 2,645	Проверил - работает. Только при использовании этого модуля, кенгуру должен быть не более чем 8-битный.

08.03.2011, 21:45	#8
tenager Регистрация: 17.03.2010 Сообщений: 9	Вопрос у меня, конечно, смешной, но как сохранить в 8 бит? Paint и Photoshop дают не меньше 16 бит.

08.03.2011, 21:53	#9
Somebody Участник клуба Регистрация: 08.10.2007 Сообщений: 1,185	О_о В Paint'е же есть и 8- и 4- и 1- битный при сохранении.

08.03.2011, 22:06	#10
tenager Регистрация: 17.03.2010 Сообщений: 9	А вот сохранил. Но всё равно экран чёрный (