Externes Programm ausführen

[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.

[Willie1]

Hallo Benmik, wenn man sich nur schriftlich austauscht, kommt es zu Missverständnissen.

Cmd1 schreibt Köln, habe ich schon verstanden. Meine Digi-Kam schreibt Locations automatisch z.B. Deutschland, Nordrhein-Westfalen, Köln, Am Kölner Dom
- deshalb brauche ich nichts zu schreiben. Trotzdem danke für den Tipp..
Cmd 2 ist genial, ich muss nur die deutschen Sonderzeichen mit UTF8ToAnsi umsetzen.
Cmd3 hat sich durch Cmd2 erledigt. Ist mir klar. Ich dachte nur, dass dich die Probleme mit der Schreiboption seit dem letzten Windows-Update interessieren. Du bist doch Exiftool-Experte.

Ich werde jetzt die neue Exiftool-Unit in mein Programm einbauen. Ich will die Orientation Tags neu setzen und weitere Felder, z.B. Descrption, Artist schreiben können. Wenn das klappt, melde ich mich hier im Forum.

Gruß Willie.

[Benmik]

OK, ich verstehe.
Ich brauche UTF8ToAnsi nicht, arbeite allerdings mit Windows 7.
Kann das innerhalb von Delphi eine Änderung verursachen?