Данные не парсятся из-за квадратика в тексте

[FleXik]

Лично я не знаю как решить твою проблему быстро без некоего компонента. который будет отрисовывать смайлы.

их и не нужно отрисовывать, достаточно выводить их код... мне главное чтобы декодировало с xml нормально...

[FleXik]

посоветовали грузить в TMemoryStream а уже из него парсить, помогите реализовать пожалуйста... для отправки запросов юзаю функцию синапс а она типа string...

[Vapaamies]

Сообщение от FleXik

можно ли как-то решить эту проблему в Delphi 7?

Если проблема только в раскодировании 4-байтных последовательностей UTF-8, нужно взять более современную реализацию вместо штатной Utf8Decode из модуля System Delphi 7.

[FleXik]

Если проблема только в раскодировании 4-байтных последовательностей UTF-8, нужно взять более современную реализацию вместо штатной Utf8Decode из модуля System Delphi 7.

конкретные примеры пожалуйста.

[Vapaamies]

Рабочую реализацию можно выдрать у меня из CoreStrings:

function FromUTF8(var Info: TStringInfo; Source: PLegacyChar; Count: Integer;
  Dest: PWideChar; DestOptions: TEncodeUTF16; ThresholdBytes: Integer): TNextLegacyChar;

Прозрачно поддерживает как 4-байтные последовательности UTF-8, так и CESU-8.

Можно и из исходников RTL Delphi XE+ взять, но оттуда тоже выдирать придется, т. к. там несколько функций, вызывающих друг друга.

[FleXik]

я конечно извиняюсь за наглость, но я понятия не имею как с этой функцией работать....

[FleXik]

хотел бы получить пример... тем более подобных примеров в интернете нет, авось кому-то и пригодилось бы...

[Vapaamies]

А что если попробовать встроенный декодер Windows?

function DecodeLegacy(Source: AnsiString; CodePage: Word): WideString;
var
  Len: Integer;
begin
  Len := Length(Source);
  SetLength(Result, Len);
  SetLength(Result, MultiByteToWideChar(CodePage, 0, Pointer(Source), Len, Pointer(Result), Len));
end;

procedure TMainForm.Button3Click(Sender: TObject);
const
  Wink = #$F0#$AF#$98#$89;
begin
  MessageBoxW(Handle, Pointer(DecodeLegacy(Wink, CP_UTF8)), Pointer(WideString(Caption)), MB_ICONINFORMATION);
end;

Под XP работает.

[FleXik]

Вот .xml документ, попробуйте декодировать, отпишите пожалуйста о результатах

[Vapaamies]

Сообщение от FleXik

Вот .xml документ, попробуйте декодировать

Самое удивительное, но:

procedure TMainForm.btFileClick(Sender: TObject);
var
  Doc: IXMLDocument;
begin
  Doc := TXMLDocument.Create(nil);
  Doc.LoadFromFile('example.xml');
  Memo1.Text := Doc.DocumentElement.ChildNodes['center'].ChildNodes['b'].NodeValue;
end;

Выводит в Memo1:

Вот пример этого квадратика который надо вывести в виде кода в Memo или записать в переменную типа string -> ??

Так и должно быть, поскольку "квадратик" нельзя представить в кодировке ANSI. То есть, штатный XML-парсер отрабатывает без глюков даже без дополнительных выкрутасов. Проверено под Delphi 6 SP3, Windows XP SP3. В системе стоит также обновление KB927977 (MSXML 6.0 Parser), но не знаю, влияет ли оно.