Hi, I'm receiving from a Delphi 7 app a unicode Stream (from Synapse library) containing Unicode data and I need to show it in a Lazarus form. How can I convert it to look correctly on screen?.

Example:

The string "Leonardo Ram?" is shown as "Leonardo Ram\u009".

If you're using the fpJSON unit, it's currently not UTF-8 tested. It *should* work - insofar that unicode escape sequences are recognized and converted. I've never tested that, though.

Also, if you're on linux, make sure you're using the cwstrings unit.

Michael.

SuperObject works in both Delphi and fpc. Google superobject json to find the website.

Lee

I'm usin fpJSON on Windows. I'll test it a little more next week.

I had the same problem and use now the following function for decoding:

function DecodeUnicodeEscapes(EscapedString: String): String;
var
  FoundPos: LongInt;
  HexCode: String;
  DecodedChars: String;
begin
  Result := EscapedString;
  FoundPos := Pos('\u', Result);
  while (FoundPos  0) and (FoundPos < Length(Result) - 4) do begin
    HexCode :=  Copy(Result, FoundPos + 2, 4);
    DecodedChars := WideChar(Hex2Dec(HexCode));
    Result := AnsiReplaceStr(Result, '\u' + HexCode,
                             UTF8Encode(DecodedChars));
    FoundPos := Pos('\u', Result);
  end;
end;

hth
Michael

Thanks Michael, I'll try that.

Lee Jenkins wrote

SuperObject works in both Delphi and fpc. Google superobject json to find the website. Lee

Thanks Lee, I used SuperObject in a Delphi project, but this app is is based on fpJSon, and before changing everything to SuperObject I want to know if there's a simplier solution.

If there is anything I can do to help, let me know.

Michael.