Externes Programm ausführen

[Delphi.Narium]

Schau bitte mal, ob Du (sinngemäß) hiermit weiter kommst, es stammt aus 'ner alten Delphi 7-Komponente zum Aufruf von Konsolenprogrammen:

Delphi-Quellcode:

function OEM2Ansi(OEMString: string): string;
begin
  OEMString := OEMString + #0;
  OemToChar(PChar(OEMString), @OEMString[1]);
  Delete(OEMString, Length(OEMString), 1);
  Result := OEMString;
end;

...
      repeat
        succeed:=ReadFile(PipeOutputRead,Buffer,szBuffer,BytesRead,nil);
        if not succeed then break;
        // Hier die Funktion einfügen, vor dem Schreiben der Ausgabe in den Stream.
        OemToAnsi(Buffer^,Buffer^);
        Stream.Write(Buffer,BytesRead)
      until (BytesRead=0);
...

[himitsu]

Zitat von Delphi.Narium:

es stammt aus 'ner alten Delphi 7-Komponente zum Aufruf von Konsolenprogrammen:

Und weil dort mit "falschen" Typen gearbeitet wurde, funktioniert dieser Code seit 2009 nicht mehr, da dort String = UnicodeString und PChar = PWideChar ist.

OEMString hätte schon immer ein AnsiString sein müssen und das knallt nun bei der Unicode-Umstellung seit Delphi 2009.
PS: Delphi-Strings besitzen eine abschließende implizite #0, aber nicht so schlimm ... doppelt hält besser.

[Delphi.Narium]

Zitat von himitsu:

Und weil dort mit "falschen" Typen gearbeitet wurde, funktioniert dieser Code seit 2009 nicht mehr, da dort String = UnicodeString und PChar = PWideChar ist.

Deshalb schrieb ich ja auch sinngemäß. Klar, dass das nicht 1:1 zu übernehmen ist.

Die obige Routine dürfte hierher stammen: Console: OEM nach ANSI. Wurde hier also schon vor über 7 Jahren "falsch" veröffentlicht , aber eventuell läßt sich ja aus dem Thread eine Lösung für das hier diskutierte Problem ableiten.

[Willie1]

Delphi.Narium, das hatte ich hier schon gefunden, es läuft nicht.
Auf -lang de verzichten ist auch keine Lösung, es gibt den Tag City er zeigt z.B. Düsseldorf falsch in Unicode an, doof.

Ich habe es gerade ausprobiert, auf dem Rechner vor dem letzten Windows 10 Update werden Umlate z.B. Düsseldorf korrekt angezeigt.
Die Windows Console ist wohl verändert worden. Was sagt ihr jetzt.

Willie.

[Delphi.Narium]

Was wird denn von ExifTool auf der Kommandozeile für Düsseldorf ausgegeben? Sieht's dort richtig aus. Habe schon Kommandozeilenprogramme erlebt, die nicht den dort üblichen Zeichensatz nutzen, so dass dort Düsseldorf "falsch" ausgegeben wurde. Wenn dem so ist, scheitert auch eine Übersetzung nach Ansi, Unicode ...

Könntest Du bitte mal die Ausgabe von ExifTool auf der Kommandozeile für diesen Problemfall in eine Datei umleiten?
Und dann (ohne eine von Dir vorgenommene Konvertierung) die Ausgabe, die Du in Deinem Programm erhältst?
Und das dann beides hier mal anhängen, eventuell kommen wir damit ja irgendwie weiter.
Wenn Du das entsprechende JPG mir dazulegen könntest, wäre nett, dann könnte man mal schauen, was da "wirklich" dinnesteht, um dem Zeichensatzwirrwarr, der momentan herrscht, mal auf die Sprünge zu kommen.

[Willie1]

Also, wenn ich K-Dom.txt im Explorer öffne, wird Köln korrekt angezeigt. Ween ich erst Notepad öffne und dann K-Dom.txt öffne, wirden die Umlaute falsch angezeigt. Es geht um den Tag City.
Anbei Bild und Txt-Datei.

P.S Stattdessen ein Bild von der schönen Nachbarstadt.

[Delphi.Narium]

Die Textdatei ist die unveränderte Ausgabe von ExifTool? Dann dürfte das nicht den "DOS-Zeichensatz" benutzen.

Hab' mir mal die aktuelle Fassung geholt. Bei mir sieht es so aus, als wären die Umlaute ... bei der Ausgabe auf der Kommandozeile UTF8.

Wenn man die in eine Datei umgeleitet Ausgabe mit Totalcommander anschaut und dort als Zeichensatz UTF8 wählt, werden die Umlaute korrekt angezeigt.