Search results for 'Canvas'. 1 post(s) found.
Delphi supports Jpeg unit as well as Bitmap unit for image processing. Following example convert and save Bitmap into Jpeg format. The source format must be TBitmap instance.
unit Jpeg;
procedure BitmapToJpeg(FileName: string; Img:TGraphic);
var
m_Jpeg: TJpegImage;
m_Bitmap: TBitmap;
begin
try
m_Jpeg:= TJpegImage.Create;
m_Bitmap := TBitmap.Create;
m_Bitmap.Width := Img.Width;
m_Bitmap.Height := Img.Height;
m_Bitmap.Canvas.Draw( 0, 0, Img);
// m_Bitmap.Canvas.StretchDraw( 0, 0, , ...,Img);
m_Jpeg.Assign( m_Bitmap);
m_Jpeg.SaveToFile( FileName);
finally
m_Jpeg.Free;
end;
end;
procedure BitmapToJpeg(FileName: string; Img:TGraphic);
var
m_Jpeg: TJpegImage;
m_Bitmap: TBitmap;
begin
try
m_Jpeg:= TJpegImage.Create;
m_Bitmap := TBitmap.Create;
m_Bitmap.Width := Img.Width;
m_Bitmap.Height := Img.Height;
m_Bitmap.Canvas.Draw( 0, 0, Img);
// m_Bitmap.Canvas.StretchDraw( 0, 0, , ...,Img);
m_Jpeg.Assign( m_Bitmap);
m_Jpeg.SaveToFile( FileName);
finally
m_Jpeg.Free;
end;
end;
Another posts included in "Delphi"
| How to get parameter string ? (0) | 2009/06/30 |
| How to return exit code such as exit() function in C/C++ ? (0) | 2009/07/02 |
| How to send email by TIdSMTP VCL ? (0) | 2009/07/07 |
| How to get screen resolution in case of using multiple monitors ? (0) | 2008/12/16 |
| How to turn off monitor ? (0) | 2008/12/10 |
| Find File at certain directory in Delphi (0) | 2008/10/10 |
| Sending email messages in .Net (0) | 2007/10/04 |
| Implementing C#'s foreach loop in Delphi 8 (0) | 2007/10/04 |
Prev
Rss Feed