JPG в TBitMap при работе с Timage

← →
Nic © (2006-06-25 23:50) [0]

Как сделать сабж? При загрузке
Image.LoadFromFile
TBitMap заполняется только если грузим битовую маску, а если JPG файл, то неясно как обращаться к элементам (пикселям картинки), как с ними работать. Подскажите плиз в каком направлении копать.

← →
Пусик © (2006-06-25 23:56) [1]

uses JPEG;

Вот пример процедуры для работы с JPG и Bitmap. Дальше разбирайся.

procedure StretchJPG(const FilePathSrc,FilePathDest: String; aW,aH: Integer); var Src, Dest: TBitmap; j: TJPEGImage; Degree: Double; begin Src:= TBitmap.Create; Dest:= TBitmap.Create; j:= TJPEGImage.Create; try j.LoadFromFile(FilePathSrc); Src.Assign(j); Dest.Assign(Src); if (Dest.Width<=aW) and (Dest.Height<=aH) then Exit; Degree := Src.Height/aH; if Trunc(Src.Width/Degree)>aW then Degree := Src.Width/aW; Dest.Width:= Trunc(Src.Width/Degree); Dest.Height:= Trunc(Src.Height/Degree); SetStretchBltMode(Dest.Canvas.Handle, HALFTONE); StretchBlt(Dest.Canvas.Handle, 0, 0, Dest.Width, Dest.Height, Src.Canvas.Handle, 0, 0, Src.Width, Src.Height, SRCCOPY); j.Assign(Dest); j.SaveToFile(FilePathDest); finally Src.Free; Dest.Free; j.Free; end; end;

JPG в TBitMap при работе с Timage Найти похожие ветки