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

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

Tjpegimage >>>> TDib? [D5, Win95/98, WinME, NT4, Win2k, WinXP]

vidiv ©   (2002-12-09 02:09:00) 

Мастера, поскажите пожалуйста: как картинку TJpegImage преобразовать в картинку TDib???? Очени сильно и срочно надо. Заранее спасибо!!!

---

Дмитрий К.К.   (2002-12-09 10:36:00) [1]

> vidiv © (09.12.02 10:17)
> Tdib - это их DelphiX


Тогда вопрос не сюда, а на форум "Медиа".

---

vidiv   (2002-12-09 10:17:00) [2]

Tdib - это их DelphiX

---

Дмитрий К.К.   (2002-12-09 06:53:00) [3]

TDib - свой собственный формат поди.

Для преобразования TBitmap в DIB пользуйси:

procedure BitmapToDIB(Bitmap: TBitmap;
var BitmapInfo: PBitmapInfo;
var InfoSize: integer;
var Bits: pointer;
var BitsSize: longint);
begin
BitmapInfo := nil;
InfoSize := 0;
Bits := nil;
BitsSize := 0;
if not Bitmap.Empty then try
GetDIBSizes(Bitmap.Handle, InfoSize, BitsSize);
GetMem(BitmapInfo, InfoSize);
Bits := GlobalAllocPtr(GMEM_MOVEABLE, BitsSize);
if Bits = nil then raise
EOutOfMemory.Create("Не хватает памяти для пикселей изображения");
if not GetDIB(Bitmap.Handle, Bitmap.Palette, BitmapInfo^, Bits^) then
raise Exception.Create("Не могу создать DIB");
except
if BitmapInfo <> nil then FreeMem(BitmapInfo, InfoSize);
if Bits <> nil then GlobalFreePtr(Bits);
BitmapInfo := nil;
Bits := nil;
raise;
end;
end;

---

MBo   (2002-12-09 06:30:00) [4]

Что такое TDib???
в Tbitmap можно превратить с помощью Assign

---

Наверх