AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia EXIF auf anderes JPEG übertragen
Thema durchsuchen
Ansicht
Themen-Optionen

EXIF auf anderes JPEG übertragen

Ein Thema von e-gon · begonnen am 28. Okt 2013 · letzter Beitrag vom 6. Nov 2013
Antwort Antwort
e-gon

Registriert seit: 7. Jul 2003
Ort: Stuttgart
163 Beiträge
 
Delphi 6 Enterprise
 
#1

AW: EXIF auf anderes JPEG übertragen

  Alt 5. Nov 2013, 14:38
So, ich habe nun mal die Anleitung von ASM umgesetzt. Leider ist das JPEG nach der Übernahme von EXIF nicht mehr lesbar.

Delphi-Quellcode:
procedure TForm1.CopyEXIF(const FileNameEXIFSource, FileNameEXIFTarget: string);
var MSSource,MSTarget: TMemoryStream;
     FS: TFileStream;
     TargetStartPos, SourceEndPos: Longint;
     Buf: Array [0..3] of Byte;
begin
  MSTarget := TMemoryStream.Create;
  try
// 4. Lies dann Deine veränderte jpeg-Datei in den MemoryStream.
    MSTarget.LoadFromFile(FileNameEXIFTarget);
    MSTarget.Seek(2, soFromBeginning);
    if (MSTarget.Read(Buf, 4) = 4) then begin
      if (Buf[1] <> M_EXIF) or
         (MessageDLG('Die Datei '''+FileNameEXIFTarget+''' hat selbst ein EXIF! Soll dieser wirklich überschrieben werden?',
                     mtConfirmation, [mbYes, mbNo], 0) = mrYes) then begin
        if Buf[1] = M_EXIF then TargetStartPos := (Buf[2]*256)+Buf[3]+2
        else TargetStartPos := 2;

        MSSource := TMemoryStream.Create;
        try
// 1. Lies aus Deiner originalen jpeg-Datei die Größe der EXIF-Struktur aus (steht in den Bytes unmittelbar nach dem EXIF-StartTag "FFE1" und reicht bis zur Kennung "786969660000" = "Exif").
          SourceEndPos := 2;
          MSSource.LoadFromFile(FileNameEXIFSource);
          MSSource.Seek(SourceEndPos, soFromBeginning);
          MSSource.Read(Buf, 3);
          if Buf[1] = M_EXIF then SourceEndPos := SourceEndPos+(Buf[2]*256)+Buf[3]+2;
// 2. Lies die originale jpeg-Datei in einen MemoryStream. Setze die Größe des MemoryStreams zurück auf die Größe der EXIF-Struktur zuzüglich der 4 führenden Kennbytes der jpeg-Datei (FFD8 und FFE1).
          MSSource.SetSize(SourceEndPos);

// 3. Übertrage den MemoryStream in den FileStream, der Deine neue jpeg-Datei anlegt, welche sowohl Dein verändertes jpeg-Bild als auch die ursprüngliche EXIF-Information aufnehmen soll.
          FS:= TFileStream.Create(FileNameEXIFTarget, fmCreate or fmShareExclusive);
          try
            MSSource.SaveToStream(FS);

// 5. Setze den Pointer des MemoryStreams auf die Position $02 (also ab dem 3.Byte, d.h. ohne die JPEG-Kennung "FFD8" der zweiten Datei) und übertrage den MemoryStream ab dieser Position in den zuvor begonnenen Filestream.
            MSTarget.Seek(TargetStartPos, soFromBeginning);
            FS.CopyFrom(MSTarget, MSTarget.Size-TargetStartPos);
          finally
            FS.Free;
          end
        finally
          MSSource.Free;
        end
      end;
    end
    else MessageDLG('Fehler beim Lesen der Datei '''+FileNameEXIFTarget+'''!', mtError, [mbOk], 0);
  finally
    MSTarget.Free;
  end;
end;
Kann mir jemand sagen, was ich falsch gemacht habe? Ich finde einfach keinen Fehler. Oder geht das so gar nicht?

Gruß
e-gon
  Mit Zitat antworten Zitat
ASM

Registriert seit: 15. Aug 2004
165 Beiträge
 
Delphi 7 Enterprise
 
#2

AW: EXIF auf anderes JPEG übertragen

  Alt 5. Nov 2013, 16:27
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;
  Mit Zitat antworten Zitat
e-gon

Registriert seit: 7. Jul 2003
Ort: Stuttgart
163 Beiträge
 
Delphi 6 Enterprise
 
#3

AW: EXIF auf anderes JPEG übertragen

  Alt 6. Nov 2013, 09:08
Hallo ASM,

vielen Dank für Deine Unterstützung! Mit dem Problem der Positionierung im Stream hast Du grundsätzlich recht. Ich habe allerdings festgestellt, wenn man unmittelbar vor dem CopyFrom den Seek-Befehl ausführt, funktioniert das Kopieren ab der Seek-Position.

Mein Problem war übrigens ein Leichtsinnsfehler! Habe beim zweiten Read statt 4 nur 3 Zeichen gelesen! Das habe ich aber erst nach viel Debuggen und Hexen herausbekommen!
Immerhin, jetzt scheint es zu funktionieren!

Falls es mal jemand braucht, hier nochmals der finale Code:

Delphi-Quellcode:
procedure TForm1.CopyEXIF(const FileNameEXIFSource, FileNameEXIFTarget: string);
const
  M_JFIF = $E0;
  M_EXIF = $E1;
var
  MSSource, MSTarget: TMemoryStream;
  FS: TFileStream;
  TargetStartPos, SourceEndPos: Longint;
  Buf: Array [0..3] of Byte;
begin
  MSTarget := TMemoryStream.Create;
  try
// 4. Lies dann Deine veränderte jpeg-Datei in den MemoryStream.
    TargetStartPos := 2;
    MSTarget.LoadFromFile(FileNameEXIFTarget);
    MSTarget.Seek(TargetStartPos, soFromBeginning);
    MSTarget.Read(Buf, 4);
    if Buf[1] = M_JFIF then begin
      TargetStartPos := TargetStartPos+(Buf[2]*256)+Buf[3]+2;
      MSTarget.Seek(TargetStartPos, soFromBeginning);
      MSTarget.Read(Buf, 4);
    end;
    if (Buf[1] <> M_EXIF) or
       (MessageDLG('Die Datei '''+FileNameEXIFTarget+''' hat selbst ein EXIF! Soll dieser wirklich überschrieben werden?',
                   mtConfirmation, [mbYes,mbNo], 0) = mrYes) then begin
      if Buf[1] = M_EXIF then TargetStartPo s:= TargetStartPos+(Buf[2]*256)+Buf[3]+2;

      MSSource := TMemoryStream.Create;
      try
// 1. Lies aus Deiner originalen jpeg-Datei die Größe der EXIF-Struktur aus (steht in den Bytes unmittelbar nach dem EXIF-StartTag "FFE1" und reicht bis zur Kennung "786969660000" = "Exif").
        SourceEndPos := 2;
        MSSource.LoadFromFile(FileNameEXIFSource);
        MSSource.Seek(SourceEndPos, soFromBeginning);
        MSSource.Read(Buf, 4);
        if Buf[1] = M_EXIF then SourceEndPos := SourceEndPos+(Buf[2]*256)+Buf[3]+2;
// 2. Lies die originale jpeg-Datei in einen MemoryStream. Setze die Größe des MemoryStreams zurück auf die Größe der EXIF-Struktur zuzüglich der 4 führenden Kennbytes der jpeg-Datei (FFD8 und FFE1).
        MSSource.SetSize(SourceEndPos);

// 3. Übertrage den MemoryStream in den FileStream, der Deine neue jpeg-Datei anlegt, welche sowohl Dein verändertes jpeg-Bild als auch die ursprüngliche EXIF-Information aufnehmen soll.
        FS := TFileStream.Create(FileNameEXIFTarget, fmCreate or fmShareExclusive);
        try
          MSSource.SaveToStream(FS);

// 5. Setze den Pointer des MemoryStreams auf die Position $02 (also ab dem 3.Byte, d.h. ohne die JPEG-Kennung "FFD8" der zweiten Datei) und übertrage den MemoryStream ab dieser Position in den zuvor begonnenen Filestream.
          MSTarget.Seek(TargetStartPos, soFromBeginning);
          FS.CopyFrom(MSTarget, MSTarget.Size-TargetStartPos);
        finally
          FS.Free;
        end;
      finally
        MSSource.Free;
      end
    end;
  finally
    MSTarget.Free;
  end;
end;
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz