Search results for 'TJpegImage'. 2 post(s) found.
- 2009/06/26 Save TBitmap image to Jpeg format image in Delphi
- 2007/09/11 Convert a BMP to a JPG
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 |
Trackback : Cannot send a trackbact to this post.
You can easily convert a BMP image to a JPG (JPEG) image:
{
Usage:
BMPtoJPG('mybitmap.bmp','myjpeg.jpg')
}
function BMPtoJPG
(var BMPpic, JPGpic: string):boolean;
var Bitmap: TBitmap;
JpegImg: TJpegImage;
begin
Result:=False;
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(BMPpic) ;
JpegImg := TJpegImage.Create;
try
JpegImg.Assign(Bitmap) ;
JpegImg.SaveToFile(JPGpic) ;
Result:=True;
finally
JpegImg.Free
end;
finally
Bitmap.Free
end;
end;
Usage:
BMPtoJPG('mybitmap.bmp','myjpeg.jpg')
}
function BMPtoJPG
(var BMPpic, JPGpic: string):boolean;
var Bitmap: TBitmap;
JpegImg: TJpegImage;
begin
Result:=False;
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(BMPpic) ;
JpegImg := TJpegImage.Create;
try
JpegImg.Assign(Bitmap) ;
JpegImg.SaveToFile(JPGpic) ;
Result:=True;
finally
JpegImg.Free
end;
finally
Bitmap.Free
end;
end;
Another posts included in "Delphi"
| Convert TColor to Hex & Hex to TColor (0) | 2007/09/11 |
| Cut a rectangle from an Image to Clipboard (0) | 2007/09/11 |
| How to capture Windows Desktop to Bitmap (0) | 2007/09/11 |
| Reading a directory content (0) | 2007/09/10 |
| Path shortener: c:\AB\C...DE\F.ghi (0) | 2007/09/10 |
| How to Split and Merge Files (0) | 2007/09/10 |
| Get File 'Last Modified' attribute (0) | 2007/09/10 |
| From/to the 8.3 (short) format to/from the long format (0) | 2007/09/10 |
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 02:42
moneyideas
-
Subject different money making ideas
2010/01/29 11:21
moneyideas
-
Subject different money making ideas
2010/01/31 16:39
moneyideas
Prev
Rss Feed