Mega Code Archive

 

Categories / Delphi / Graphic

 

Jpg to bmp

// USES SATIRINA JPEG UNIT INI EKLEMEYI UNUTMAYIN. procedure TForm1.BitBtn3Click(Sender: TObject); VAR JPG:TJPEGIMAGE; BITMAP:TBITMAP; BEGIN bitmap := Tbitmap.Create; jpg := TJpegImage.Create; jpg.LoadFromFile('C:\RESIMLERIM\DENIZ.JPG'); Bitmap.Width := jpg.Width; Bitmap.Height := jpg.Height; Bitmap.Canvas.Draw(0, 0, jpg); bitmap.SaveToFile('C:\RESIMLERIM\DENIZ.BMP'); jpg.Free; bitmap.free; END;