Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

Как из массива байтов сделать битмап? 


slym   (2002-02-12 17:23) [0]

Как из массива байтов сделать битмап?
Есть функция: SetBiDiBits, но что не делаю получаю Малевича "Черный квадрат"...
господа Визарды, жду ответа, желательно исходником



Cobalt   (2002-02-12 17:31) [1]

Покажи сначала свой код



copyr25   (2002-02-12 19:58) [2]

И ещё, попробуй запустить бинарный код любого bitmap"a через свою программу



Oxy2   (2002-02-12 21:56) [3]

А что это за функция такая SetBiDiBits? Я ее в MSDN не нашел.



VuDZ   (2002-02-12 22:08) [4]

может SetBitmapBits()?



Evgeny   (2002-02-13 07:06) [5]

Скорее всего SetDiBits().



slym   (2002-02-14 13:28) [6]

Увы последние мои эксперименты погубили исходник, но ключевой момент я помню...
прошу прощение за очепятку - SetDiBits(). (device independed.)
SetBitmapBits или SetDiBits - всеравно, только бы рисовало...
Делается распределенная версия фракталов, результат итерраций массив байтов, из него делаю картинку.



MBo   (2002-02-14 14:00) [7]

вот рабочий пример, в нем используется устаревшая функция
SetBitmapBits, вместо нее рекомендуется SetDiBits

procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..255,0..255] of byte;
ct:array[0..255] of TRGBQuad;
b:tbitmap;
i,j:integer;
begin
b:=tbitmap.create;
b.pixelformat:=pf8bit;
b.Width := 256;
b.Height := 256;
for i:=0 to 255 do begin
ct[i].rgbRed:=i;
ct[i].rgbBlue:=i;
ct[i].rgbGreen:=i;
ct[i].rgbReserved:=0;
end;
for i:=0 to 255 do for j:=0 to 255 do a[i,j]:=trunc(sqrt(i*j));
SetDIBColorTable(b.canvas.Handle,0,$100,ct);
SetBitmapBits(b.Handle, sizeof(a),@a);
Image1.picture.assign(b);
b.free;
end;




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.032 c
14-46485          BJValentine           2002-03-06 14:35  2002.04.15  
Музыка


1-46343           Biorobot              2002-04-01 18:28  2002.04.15  
Куда мои вопросы деваются?


3-46271           Bill                  2002-03-19 15:08  2002.04.15  
Кто знает аналог StrinGrid?


1-46356           андрей Татуков        2002-04-04 10:46  2002.04.15  
RichEdit.Print зависает (бесконечный Спулинг)


1-46413           Renard                2002-04-01 21:36  2002.04.15  
Подскажите, как отключить кнопку restore (в системном меню)