TJpegImage saveToStream und saveTo File funktioniert nicht

[Klaus01]

Vielleicht geht es so?

Delphi-Quellcode:

 ....  
    ms := TMemoryStream.Create; 
    try 
      try 
        FPicture.SaveToStream(ms); 
        len := ms.Size; 
        //stream.Write(len, sizeOf(len)); 
        ms.Position := 0;
        stream.Write(ms,len);  // schreibe den MemoryStream in den FileStream
        //ms.SaveToStream(stream); 
      except 
        on e: exception  do showmessage(e.Message); 
      end;

Alternativ sollte es auch so gehen:

Delphi-Quellcode:

ms : TMemoryStream.create;
FPicture.SaveToStream(ms);
ms.Position :=0;
ms.SaveToFile(FileName);

Grüße
Klaus