Unicode über Pipe in Delphi empfangen

[himitsu]

ReadLn und WriteLn sind nunmal NUR Ansi, egal ob zur Console oder zu einer Datei.
Die WideString-Parameter werden dabei intern nach Ansi umgewandelt.

Wenn das mit Char/WideChar geht, warum willst du es dann mit einem AnsiChar-Puffer versuchen?
Wobei du doch weist, daß WideChar/Uniocode ankommt, also sollte man da auch WideChar und nicht Char verwenden.

[nobby]

Das mit WriteLn war ja auch nur ein Test, um das Problem einzugrenzen. AnsiChar habe ich nur verwendet, um die einzelnen Doppel-Bytes, die empfangen werden, zu analysieren. Wenn ich char/WideChar buffer verwende, empfange ich

"獕湩⁧捷畯㩴퀠킚톸킀킸킻톸킆₰ꣃ꧃룃黃뷇믐駑ꏎꛃ跄ൡ"

anstatt wie gesendet (und erwartet):

"Using wcout: Кирилица èéøÞǽлљΣæča"

Die Anzahl der Zeichen stimmt, aber die Interpretierung (Code Page?) nicht.

[himitsu]

Ahh, jetzt hab ich's verstanden.

Also, so wie es aussieht, sendet dein C-Programm garnicht in Unicode.
> Sonst müßten beim ANSI, zwischen den lateinischen Buchstaben, jeweils eine #0 stehen.

Könnte UTF-8 sein.

Wie sieht/sähe denn dein Code aus, um Ansi zu empfangen?
> den entweder so umstellen, daß es in einen AnsiString geht und dann via UTF8Decode nach Unicode umwandeln oder den Text direkt in einen UTF8String rein.

[nobby]

Doch das C-Programm sendet den Unicode string:

"Using wcout: Кирилица èéøÞǽлљΣæča"

Das hat keine Bedeutung sondern soll nur die korrekte Darstellung überprüfen.

Die Pipe (gefüllt vom C-Programm) wird gelesen mit:

ReadFile(rPipe, buff, BUFFLEN, read, nil);

Ich habe probiert:

buff: array [0..BUFFLEN] of AnsiChar; //ANSI

und

buff: array [0..BUFFLEN] of Char; //Unicode

Mit der ersten Version kann ich die einzelnen Bytes überprüfen. Die < 128 stimmen, aber die > 128 liegen im falschen Unicode-Bereich.

[ConnorMcLeod]

Kann man die Pipe mittels eines TStringStream auslesen? Die Konvertierung müsste dann klappen.

[nobby]

Guten Morgen

Der empfangene Byte-Buffer ist definitiv UTF-8 kodiert.
Mit BabelMap analysiert: http://www.babelstone.co.uk/Software/BabelMap.html

Ich habs nun so hingekriegt:

buff: array [0..BUFFLEN] of AnsiChar;
rawb: AnsiString;
cons: string; //Unicode
...
ReadFile(rPipe, buff, BUFFLEN, read, nil); //pipe immer als stream of byte auslesen
...
rawb := AnsiString(buff); //byte buffer -> raw byte string (UTF-8)
cons := Utf8Decode(rawb); //raw byte string (UTF-8) -> Unicode
...
DispConsole(cons);

Danke euch allen,
Nobby