Habs gerade auch gemerkt, mist... was ich rasch tat war dein vorschlag, der funktioniert.
Delphi-Quellcode:
function JPGToBitmap( const FileName: String ): TBitmap;
Var
fJPG: TJPEGImage;
begin
fJPG := TJPEGImage.Create;
try
fJPG.LoadFromFile( FileName );
Result := TBitmap.Create;
Result.Assign( fJPG );
except
Result := nil;
end;
fJPG.Free;
end;
Fürs speichern, kopiere einfach die jpg-Datei wohin auch immer.