JPEG mit Kompression "auf die harte Tour"

[Klaus01]

Guten Morgen,

wenn ich das richtig verstanden habe, brauchst Du doch nur ein BMP Format in ein jpg Format wandeln.
Das würde in etwas so gehen.

{
Usage:

Delphi-Quellcode:

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;

Der Code ist von hier: http://delphi.about.com/cs/adptips20...ltip0301_3.htm

Hoffe liege nicht so ganz daneben.

Grüße
Klaus