Kann mir jemand sagen, was ich falsch gemacht habe? Ich finde einfach keinen Fehler. Oder geht das so gar nicht?
Doch natürlich, es geht. Aber Dein Fehlschlag ist durch einen unvorsichtigen Fehler bei meinen Angaben zum Vorgehen verursacht:
Auch wenn man den Pointer im Stream auf eine Position in einem Offset vom Anfang des Streams setzt, wird trotzdem beim SaveToStream der komplette Stream von Position 0 an gespeichert. Somit also auch die beiden ersten Bytes $FF$D8 aus dem Stream des Files ohne ExIf, von dem die eigentlichen Bilddaten übernommen werden und der an den Stream der ExIf-Daten angehängt wird. Diese beiden Bytes dürfen aber nicht mitkopiert werden. Wenn das jedoch der Fall ist, kommen diverse (allerdings nicht alle) Bildbearbeitungsprogramme bzw. Viewer aus dem Tritt.
Berichtigte Lösung: Überschreiben der ersten beiden Bytes (also $FF$D8) im Stream der Bilddaten durch $00$00 vor dem Anhängen dieses Streams an den Stream der ExIf-Struktur.
Folgendes Beispiel vermeidet den beschriebenen Fehler (
ausgetestet!):
Delphi-Quellcode:
procedure CopyExIf2JPG(const SourceFileHasExIf, SourceFileWithOutExIf, TargetFile: String);
var
fsTarget: TFileStream;
ms: TMemoryStream;
buffer: Array [1..2] of byte;
begin
fsTarget := TFileStream.Create(TargetFile, fmCreate);
try
ms := TMemoryStream.Create;
try
ms.LoadFromFile(SourceFileHasExIf);
ms.Seek(0, soFromBeginning);
ms.Size := $03E6;
ms.SaveToStream(fsTarget);
ms.Clear;
ms.LoadFromFile(SourceFileWithOutExIf);
fillchar(buffer,sizeof(buffer),#0);
ms.Seek(0, soFromBeginning);
ms.Write(Buffer,2); // hic!
ms.SaveToStream(fsTarget);
finally
ms.Free;
end;
finally
fsTarget.Free;
end;
end;