| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вывод набора данных в TImage

Илайдж ©   (2003-07-15 16:04:00) 

Приветствую, мастера.
Есть некий осмысленный набор данных, который хранится в массиве размером 64к (320x200)

Есть такая штука

type
TPItem = record
r,g,b: byte;
end;

TPal = array [0..255] of TPItem;

function RGB2Color(P: TPal; item: byte): TColor;
begin
result := rgb(P[item].r shl 2,P[item].g shl 2,P[item].b shl 2);
end;


Вывод картинки осуществляется так:

for i:=0 to 319 do
for j:=0 to 199 do
( pal,mas[j*320+i])

Приветствую, мастера.
Есть некий осмысленный набор данных, который хранится в массиве размером 64к (320x200)

Есть такая штука

type
TPItem = record
r,g,b: byte;
end;

TPal = array [0..255] of TPItem;

function RGB2Color(P: TPal; item: byte): TColor;
begin
result := rgb(P[item].r shl 2,P[item].g shl 2,P[item].b shl 2);
end;


Вывод картинки осуществляется так:

for i:=0 to 319 do
for j:=0 to 199 do
Image1.Canvas.Pixels[i,j] := rgb2color(pal,mas[j*320+i]);


Понятное дело, что это идет очень медленно.
Пытался вывести через функцию SetDIBitsToDevice, но проблема в том, что в аргументе есть var Bits: tagBITMAPINFO и никак не получается привязать мою палитру pal к этой штуке.
Выводит либо белый экран, либо ахинею...
Подскажите, как вывести картинку, имея ее непосредственные данные и отдельно палитру, которая используется при выводе на экран. С bmp-шниками никаких проблем нету, но хотелось бы использовать данные, которые уже существуют, а не конвертить каждый файл в свой bmp.
Заранее спасибо.

Надеюсь, объяснил осмысленно..

---

Fenik   (2003-07-15 21:07:00) [1]

По-моему, лучше сначала на бмп, а потом на экран.
Ведь как легко и просто работать со ScanLine..

---

MBo   (2003-07-15 16:40:00) [2]

http://www.delphimaster.ru/articles/pixels/index.html

---

Наверх