|
Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: warum sind .bmp sooo viel größer als Jpeg?
15. Apr 2008, 18:31
Hi,
Delphi-Quellcode:
function JPEGToBMP(JPEG: TGraphic): TBitmap;
begin
if JPEG.ClassType <> TJPEGImage then
exit;
Result := TBitmap.Create;
Result.Assign(JPEG);
end;
// JPEG aus Image1 als Bitmap ins Image2 kopieren.
procedure TForm1.Button1Click(Sender: TObject);
begin
Image2.Picture.Bitmap := JPEGToBMP(Image1.Picture.Graphic);
end;
Gruß
Neutral General
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
|