Console Ansi, OEM und Umlaute

[turboPASCAL]

Bin gerade dabei eine Consolen Anwendung zu schreiben. Dabei habe ich festgestellt (mal wieder :wink: ) das der Write-Befehl auf die Console nur DOS-OEM-Zeichen ausgibt. Das heist aus "ÜÖÄ üöä ß" wird "▄Í─ ³÷õ ▀".

Geholfen habe ich mir erst einmal mit

Delphi-Quellcode:

function Ansi2OEM(AnsiString: string): string;
begin
  ANSIString := ANSIString + #0;
  CharToOEM(PChar(ANSIString), @ANSIString[1]);
  Delete(ANSIString, Length(ANSIString), 1);
  Result := ANSIString;
end;

//
Writeln(Ansi2OEM('Hallöle !'));

welche die Ausgaben der Umlaute auch auf der Console lesbar macht. ;)

Gibt es eine Möglichkeit die Ausgaben auf die Console auf Ansi umzustellen ?

[marabu]

Hi,

hast du dir schonmal SetConsoleOutputCP() und SetConsoleCP() im Win32 API angesehen?

Grüße vom marabu

[turboPASCAL]

SetConsoleOutputCP & SetConsoleCP ändert in der Registry den CodePage für Consolen Anwendungen HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Nls\CodePage soweit ich das verstanden habe..

gilt das dan nfür alle Consolen-Anwendungen/Ausgaben oder für die jeweilige Anwendung ?

[Olli]

Zitat:

Zitat von turboPASCAL

SetConsoleOutputCP & SetConsoleCP ändert in der Registry den CodePage für Consolen Anwendungen HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Nls\CodePage soweit ich das verstanden habe..

gilt das dan nfür alle Consolen-Anwendungen/Ausgaben oder für die jeweilige Anwendung ?

Falscher Fehler, die beiden Funktionen setzen es für die jeweilige Anwendung und du findest die verfügbaren Codepages im genannten Schlüssel.

[turboPASCAL]

Boah, ist das alt.

danke ich dir dass du den falschen Fehler korrigiert hast. :stupid: Werde es beim nächsten Programm austesten...