NAV 2009 RTC + Add-In problem: utf-8 encoded chars mixed-up

Thank you Peter (ppavuk),

It is good to use xmldom object. But I choose other way, because of: no time to test new solution plus minimize changes on .Net part.
So, I use HTMLdecode/encode technique. It is good that I have nonASCII chars only at one direction from Nav to DLL. Algorithm is:
1. string stored in BigText I encode
2. then in .NET dll I decode received text
3. then general XML processing left the same – that mean in c# code only one additional statement: _xml = System.Web.HttpUtility.HtmlDecode(value);

The biggest problem is on Nav side, because as it was mentioned before by ppavuk: Navision works with ANSI charset - not utf-8. So it is challenge to encode utf-8 text (need to know the structure of that unicode), hereby in attachment is code for those who are interested.

P.S. special HELLO to Peter from Raimond.

UTF8ToHTML(VAR BTextSrc : BigText;VAR BTextDest : BigText) : Integer
ParseStrLen := MAXSTRLEN(ParseStr);
DestStrLen := ParseStrLen;
CLEAR(BTextDest);
BTextSrcLen := BTextSrc.LENGTH;
IF BTextSrcLen > 0 THEN BEGIN
  BTextSrcCurrPos := 1;
  WHILE BTextSrcCurrPos < BTextSrcLen DO BEGIN
    BTextSrc.GETSUBTEXT(ParseStr, BTextSrcCurrPos, ParseStrLen);
    ParseStrCurrLen := STRLEN(ParseStr);
    FOR I := 1 TO ParseStrCurrLen DO BEGIN
      CurrChar := ParseStr[I];
      DestStrPart := '';
      CASE CurrChar OF
        0..127: //ASCII
          BEGIN
            DestStrPart := COPYSTR(ParseStr, I, 1);
            BytesUsedForUnicode := 1;
            BytesUsedForUnicodeCurr := 0;
            CLEAR(ByteArr);
            //UnicodeStr := '';
          END;
        128..191: //LAST BYTE for unicode
          BEGIN
            //UnicodeStr += Char2Hex(CurrChar);
            BytesUsedForUnicodeCurr += 1;
            Char2Byte(CurrChar, ByteArr[BytesUsedForUnicodeCurr]);

            IF BytesUsedForUnicodeCurr >= BytesUsedForUnicode THEN BEGIN
              UnicodeInt := 0;
              FOR j := BytesUsedForUnicode DOWNTO 1 DO BEGIN
                ByteArr[1, 8 - (BytesUsedForUnicode-j)] := FALSE;
                ByteArr[j, 8] := FALSE;
                UnicodeInt += Byte2BigInt(ByteArr[j], ((BytesUsedForUnicode-j)*64));
              END;

              DestStrPart := '&#' + FORMAT(UnicodeInt) + ';';
            END;
            BytesUsedForUnicode := 1;
            BytesUsedForUnicodeCurr := 0;
            CLEAR(ByteArr);
            //DestStrPart := '&#x' + FORMAT(UnicodeStr) + ';';
            //UnicodeStr := '';
          END;
        ELSE
          BEGIN //first byte for unicode
            //UnicodeStr += Hex();
            CLEAR(ByteArr);
            BytesUsedForUnicodeCurr := 1;
            Char2Byte(CurrChar, ByteArr[BytesUsedForUnicodeCurr]);
            CASE CurrChar OF
              192..223:
                BytesUsedForUnicode := 2;
              224..239:
                BytesUsedForUnicode := 3;
              240..247:
                BytesUsedForUnicode := 4;
              248..251:
                BytesUsedForUnicode := 5;
              252..253:
                BytesUsedForUnicode := 6;
              ELSE
                BytesUsedForUnicode := 1;
            END;
          END;
      END;
      DestStrPartCurrLen := STRLEN(DestStrPart);
      IF CurrChar = '9' THEN
        CurrChar := '9';
      IF DestStrPartCurrLen > 0 THEN BEGIN
        IF (DestStrPartCurrLen + DestStrCurrLen) > DestStrLen THEN BEGIN
          BTextDest.ADDTEXT(DestStr);
          DestStr := DestStrPart;
          DestStrCurrLen := DestStrPartCurrLen;
        END ELSE BEGIN
          DestStr += DestStrPart;
          DestStrCurrLen += DestStrPartCurrLen;
        END;
      END;
    END;
    BTextSrcCurrPos += ParseStrLen;
  END;
  BTextDest.ADDTEXT(DestStr);
END ELSE
  EXIT(1);
EXIT(0);

Char2Byte(VAR CharPar : Char;VAR Byte : ARRAY [8] OF Boolean)
//1st bit (index 1) means 1st bit from the right
CharInt := CharPar;
Oper := 128;
FOR i := 8 DOWNTO 1 DO BEGIN
  IF CharInt >= Oper THEN BEGIN
    Byte[i] := TRUE;
    CharInt -= Oper;
  END;
  Oper := Oper DIV 2;
END;

Char2Hex(VAR CharPar : Char) ResultHex : Text[2]
//In Navision Char is coded by one byte so return value should be 2char only
Char2Byte(CharPar, Byte);
CLEAR(ByteHalf);
FOR i := 1 TO 4 DO
  ByteHalf[i] := Byte[i+4];
Int := Byte2Int(ByteHalf);
ResultHex := TinyInt2Hex(Int);
CLEAR(ByteHalf);
FOR i := 1 TO 4 DO
  ByteHalf[i] := Byte[i];
Int := Byte2Int(ByteHalf);
ResultHex += TinyInt2Hex(Int);

EXIT(ResultHex);

Byte2Int(Byte : ARRAY [8] OF Boolean) IntResult : Integer
//1st bit (index 0) means 1st bit from the right
IntResult := 0;
Oper := 1;
FOR i := 1 TO 8 DO BEGIN
  IF Byte[i] THEN
    IntResult += Oper;
  Oper := Oper*2;
END;
EXIT(IntResult);

Byte2BigInt(Byte : ARRAY [8] OF Boolean;Oper : BigInteger) IntResult : BigInteger
//1st bit (index 0) means 1st bit from the right
IntResult := 0;
IF Oper = 0 THEN
  Oper := 1;
FOR i := 1 TO 8 DO BEGIN
  IF Byte[i] THEN
    IntResult += Oper;
  Oper := Oper*2;
END;
EXIT(IntResult);

TinyInt2Hex(Int : Integer) Result : Text[1]
//Int supposed to be 0..15
CASE Int OF
  10:
    Result := 'A';
  11:
    Result := 'B';
  12:
    Result := 'C';
  13:
    Result := 'D';
  14:
    Result := 'E';
  15:
    Result := 'F';
  ELSE
    Result := FORMAT(Int);
END;