JPEG-Fehler: #41

[clues1]

@all

Problem habe ich nun gelöst:

Code:

function LoadJPGFromStream(FS: TFileStream; var JPG: TJPEGImage): boolean;
var MS: TMemoryStream;
    s: Cardinal;
    offset: cardinal;
begin
  MS := TMemoryStream.Create;

  FS.ReadBuffer(S, sizeof(s));
  offset := FS.Position;

  JPG.LoadFromStream(FS);
  FS.Position := offset + s;

  MS.free;
end;

function SaveJPGToStream(FS: TFileStream; JPG: TJPEGImage): boolean;
var MS: TMemoryStream;
    s: Cardinal;
begin
  MS := TMemoryStream.Create;

  JPG.SaveToStream(MS);
  s := MS.Size;

  FS.WriteBuffer(S, sizeof(s));
  JPG.SaveToStream(FS);

  MS.free;
end;

Ich habe nun diese 2 Funktionen zu speichern und lesen von JPEGImages erstellt.
Das Problem in JPEGImage liegt daran, das LoadFromStream immer zum ende des Streams springt.