Console zeile lesen

[TheSaint]

Hallo Zusammen,
hallo Falko,

ich hätte noch mal eine Frage zu dem aufgeführten Code:

Vorraussetzung für diese Funktionen ist aber PB 4.3:

Code: Alles auswählen

EnableExplicit
OpenConsole()
Define ping.l = RunProgram("ping", "google.com", "", #PB_Program_Open|#PB_Program_Read)
Define Output.s = ""
Define FullOutput.s=""
If ping
  While ProgramRunning(ping)
    Output=ReadProgramString(ping); Merke dir jede Zeile
    PrintN(Output); Dieser String wird in die Console ausgegeben.
    FullOutput + Output + Chr(13); Speicher für das Messagerequester die gesamte Ausgabe
  Wend
  CloseProgram(ping)
  FullOutput + Chr(13) + Chr(13); Zweimal Enter gedrückt
EndIf
MessageRequester("ping", FullOutput); Kann man für weitere Bearbeitung weglassen 
Input(); Lass die console noch offen um dort nachzuschauen
CloseConsole()

Der Code funktioniert super.
Wenn jedoch in der Console ein Umlaut, wie "ä, ö, ... " ist, dann wird das nicht angezeigt, sonder als so ein Quadrat.
Gibt es hierfür eine Lösung, das das beim MessageRequester auch als "ä, ö,..." angezeigt wird??

Schon mal vielen Dank.

[ts-soft]

Code: Alles auswählen

OpenConsole()
Define Text.s = "äöü ÄÖÜ ß"
CharToOem_(@Text, @Text)
PrintN(Text)
Input()

Umgekehrt wäre es: OemToChar_(buffer, buffer)

[TheSaint]

Hallo ts-soft,

Umgekehrt wäre es: OemToChar_(buffer, buffer)

Klappt echt super.

Ich brauchte nur die o. g. Codezeile.

Da wäre ich nie draufgekommen.

Vielen Dank.