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;