Скачать: CL | DM;

Tjpegimage >>>> TDib?   Найти похожие ветки 

← →
vidiv ©   (2002-12-09 02:09) [0]

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

---

← →
MBo ©   (2002-12-09 06:30) [1]

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

---

← →
Дмитрий К.К. ©   (2002-12-09 06:53) [2]

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;

---

← →
vidiv ©   (2002-12-09 10:17) [3]

Tdib - это их DelphiX

---

← →
Дмитрий К.К. ©   (2002-12-09 10:36) [4]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c