Hallo,
Ich versuche nun schon eine ganze weile ein jpeg in einen filestream zuspeichern. Vorher lade ich das jpeg entweder aus einem bitmap oder aus einem vorhandenen jpeg. leider wird beim speichern gar nichts geschrieben... Und ich weiß nicht warum
Das ist der Code den ich verwende:
Delphi-Quellcode:
var
Datei : TFileStream;
jpeg : TJpegImage;
bmp : TBitmap;
begin
Datei := TFileStream.Create(Savedialog1.FileName,fmOpenWrite);
// Bild laden
jpeg := TJpegImage.Create;
jpeg.CompressionQuality := 90;
If ExtractFileExt(mmFiles.Lines[i]) = '.bmp'
then
begin
bmp := TBitmap.Create;
bmp.LoadFromFile(mmFiles.Lines[i]);
jpeg.Assign(bmp);
bmp.Free;
end
else jpeg.LoadFromFile(mmFiles.Lines[i]);
jpeg.Compress;
// in Stream schreiben
jpeg.SaveToStream(datei);
jpeg.Free;
Liebe Grüße
Daniel