Externes Programm ausführen

[Benmik]

In dem von dir angehängten Bild finde ich nicht die Informationen, die du ausgelesen hast. Kannst du mal das Original einstellen oder zumindest eins, in dem alle Informationen erhalten geblieben sind?

PS: Ich denke mal, ich habe die Lösung gefunden, und zwar hier. Beachte mal "Reply #9". Obwohl "UTF8" standardmäßig eingestellt sein soll, muss es mit angegeben werden.
Probiere mal folgende beiden Kommandos:
exiftool.exe -charset IPTC=UTF8 -city=Köln -lang de C:\Temp\K-Dom.jpg dann
exiftool.exe C:\Temp\K-Dom.jpg -w! .txt .
Wenn du meine Lösung mit Delphi verwendest, dann musst du  -charset IPTC=UTF8 nochmal explizit angeben:
exiftool.exe -k -a -u -g1 -lang de -charset IPTC=UTF8 C:\Temp\K-Dom.jpg

[Willie1]

Hallo
-charset IPTC=UTF8 in den Parameter aufnehmen, hilft bei mir nicht!!!
s:=UTF8ToAnsi(ETout.Text); Damit funktioniert es! Bei Delphi 2005 gab es diese Funktion noch nicht, deshalb mein Eigenkonstrukt, das ebenfalls funktioniert. Warum sollte ich das nicht nutzen. Ich habe die Exiftool-Textdatei vom JPG-Bild mit einem Hexeditor ausgewertet.
Wiellie.

[Delphi.Narium]

Delphi 7 hatte doch UTF8ToAnsi schon in der System.pas. Und bei Delphi 2005 soll das nicht mehr dabei sein?

http://www.delphipraxis.net/41960-ut...vertieren.html

[Willie1]

Ok Delphi.Narium, da magst du recht haben. Auf jeden Fall klappt die Übersetzung.
Benmik, ich hab's mit Copy and Paste übertragen, es geht nicht. Ich weiß Programme mit Parameter zu bedienen ist mühsam!

[Benmik]

Delphi-Quellcode:

  procedure FühreTestCodeAus;
  var ETool,ETCmd1,ETCmd2,ETCmd3,Datname:string; AusgabeListe,FehlerListe:TStringList;
  begin
    AusgabeListe := TStringList.Create;
    FehlerListe  := TStringList.Create;
    ETool   := 'C:\Program Files (x86)\EXIFTool\exiftool.exe ';
    ETCmd1  := ' -charset IPTC=UTF8 -city=Köln -lang de ';
    ETCmd2  := ' -k -a -u -g1 -lang de -charset IPTC=UTF8 ';
    ETCmd3  := '  -w! .txt ';
    Datname := '"C:\Temp\K-Dom.jpg"';
    Try
      ExecuteET(ETool + ETCmd1 + Datname,'',AusgabeListe,FehlerListe);
      ExecuteET(ETool + ETCmd2 + Datname,'',AusgabeListe,FehlerListe);
      ExecuteET(ETool + ETCmd3 + Datname,'',AusgabeListe,FehlerListe);
    Finally
      AusgabeListe.Free;
      FehlerListe.Free;
    End;
  end;

[Willie1]

Hallo,
ich habe es getestet.
cmd1 ist nicht notwendig. Wenn die deutschen Sonderzeichen korrekt angezeigt werden, dann auch Köln.
cmd 2 läuft, aber die deutschen Sonderzeichen werden nicht umgesetzt. Ich habe sie mit Memo1.Lines.Assign(ETout) übernommen.
cmd3 funktioniert nur dann, wenn ich als Zielordner den Ordner auswähle, in dem sich die Bilddatei befindet.
Ein Unterordner wird angelegt. Aber z.B. %dc:\data\%f.txt führt zu einer Fehlermeldung 1 files could not be read 0 output files created, der Temp-Ordner des BS ebenso.
Die deutschen Sonderzeichen werden richtig angezeigt!

Die Windows Version spielt wohl eine Rolle. Ich habe Windows 10 1709 Built 16299.125.

[Benmik]

Willie, ich bin mir mittlerweile nicht mehr sicher, ob wir uns richtig verstehen.

ETCmd1 schreibt überhaupt erstmal "Köln" in das Tag "City". Wenn du das für "nicht notwendig" hältst, dann hast du was übersehen.
ETCmd2 liest die Tags aus der Datei in Delphi aus; da passiert äußerlich natürlich erstmal nichts, aber du hast die Möglichkeit, die Tags in AusgabeListe auszulesen.
ETCmd3 ist durch ETCmd2 gar nicht mehr nötig und dient nur dazu zu zeigen, dass die Umlaute auch in einer Textdatei in Notepad richtig angezeigt werden.

[Benmik]

Zitat von Willie1:

Hallo -charset IPTC=UTF8 in den Parameter aufnehmen, hilft bei mir nicht!!!

Naja, wenn es bei mir funktioniert, dann muss es bei dir wohl auch funktionieren. Aber du hast ja eine Lösung gefunden, die dich zufriedenstellt.
Würde mich freuen, wenn du uns weiter auf dem Laufenden hältst.