одномерный массив -> изображение на форме

[DCxDemo]

имеется одномерный массив байт, каждые 4 байта - пиксель RGBA. все строки картинки идут подряд. как можно быстренько вывести это дело на канву?
можно конечно генерировать bmp в папке с программой, но по-моему это не самое изящное решение.

[Rin]

http://programmersforum.ru/showthread.php?t=84340

[DCxDemo]

можно поподробней, как перевод из 24 бит в 32 должен мне помочь, если у меня и так 32?

[Rin]

type 
rgba=record
r,g,b,a:byte;
n=100;
var
b:TBitMap;
m:array[1..n] of rgba;
i,j:integer;
begin
.............
b:=TBitmap.Create;
b.pixelformat:=pf32bit;
b.width:=10;
b.height:=round(n/b.width);
for i:=1 to b.Width do
for j:=1 to b.Height do
b.canvas.Pixels[i,j]:=(m[i*j].r or (m[i*j].g shl 8) or (m[i*j].b shl 16)or (m[i*j].a shl 24));
BitBlt(form1.Canvas.Handle, 0, 0, b.Width, b.Height, b.canvas.Handle, 0,0, SrcCopy);
b.Free;

Правда более быстрый алгоритм будет с помощью scanline, а не pixels[].

[DCxDemo]

при использовании BitBlt, при повторном вызове этой процедуры для другой текстуры, ничего не меняется. если заменить на Draw, то работает нормально, картинка размером 512x512 рисуется с задержкой. терпимо конечно...

[Rin]

Не встречал такой проблемы с ditblt. Посмотрите ЗДЕСЬ работу со сканлайном, ваша текстура будет грузиться намного быстрее. Если зальете сырцы, то можно будет разобраться в чем трабл. При устовии, что не используете никаких компонентов из Delphi7 и выше.

[DCxDemo]

да, я использовал компонент Image, при выводе на форму, всё хорошо. думаю на форму и буду выводить, проще центрировать.
попутно пару вопросов, как стереть картинку (попробовал invalidate перед bitblt, но картинка исчезает практически сразу)
и можно ли работать с прозрачностью (вот это or (m[i*j].a shl 24) выдаёт очень странный результат, большинство картинок становятся чёрными, иногда виден белый контур нарисованного. где-то в примерах нашёл, что это не значение прозрачности, а режим отрисовки...)

[Rin]

На форму лучше не выводить. А отчистить можно так

image1.picture:=nil;

где-то в примерах нашёл, что это не значение прозрачности, а режим отрисовки...)

Ну думаю, что с форматом количества бит на пиксель у BMP поспорить будет сложно.
Возможно, что нужно использовать формат не RGBA, а AGBR.
тогда и формула будет перевернутой:

(m[i*j].a or (m[i*j].b shl 8) or (m[i*j].g shl 16)or (m[i*j].r shl 24)

[DCxDemo]

дело не в bmp, а в TColor видимо. получается, что первый байт, это не альфа канал... любое значение отличное от нуля делает с картинкой страшные вещи))

//На форму лучше не выводить.//
почему так? у меня есть область внизу формы и я хочу чтобы картинка рисовалась посередине этой области, но у меня не получается привязать Image к форме так, чтобы при изменении размеров, менялась и область зарисовки. она остаётся такой же как и при первом вызове.

[Rin]

На событии OnResize у формы изменяй размеры Image. Попробуй сохранить свой массив в файл, открыть его в фотошопе и глянуть, есть ли там альфаканал. Глянь кстати эту тему.