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

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