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