warum sind .bmp sooo viel größer als Jpeg?

[Neutral General]

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