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

[саша40]

Smitt&Wesson, Ну ты и задал ему вопрос.

[Stilet]

конечно, скоро выложу

Наверное с этого и стоило начать.

клирес от котангенса?

Клиренс может?

[Smitt&Wesson]

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

Наверное с этого и стоило начать.

Клиренс может?

Ну да, на клотике чай пили , а на ватерлинии в футбол играли

[Stilet]

на клотике чай пили , а на ватерлинии в футбол играли

Хе, а на брамсе с чайками гудели )))

[FleXik]

Ниже xml файл, на выходе квадратик должен расшифровать в это -> &# 128521 ; без пробелов...

Я использую онлайн декодеры http://www.yellowpipe.com/yis/tools/encrypter/index.php и http://www.roubaixinteractive.com/Pl...ry_To_Text.asp (не реклама) и они спокойно расшифровывают этот квадратик причем расшифровывают правильно.

[FleXik]

уже ближе к истине, короче

procedure TForm1.Button1Click(Sender: TObject);
begin
  XMLDocument1.LoadFromFile('example.xml');
  Form1.Memo1.Lines.Add(HTMLDecode(UTF8Decode(XMLDocument1.XML.Text)));
end;

если делаю так - все выводится только вместо квадратика я получаю 2 знака вопроса, т.е: "??", а должно быть &# 128521 ; (без пробелов)

[Vapaamies]

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

Ниже xml файл, на выходе квадратик должен расшифровать в это -> &# 128521 ; без пробелов...

Во, теперь стало понятно. Под квадратиком скрывается символ Юникода U+1F609 -- WINKING FACE (подмигивание). В последниях версиях Юникода окончательно стандартизировали коды для смайликов, изначально придуманные японцами, так что теперь даже смайлики идут по стандарту. По нему уже выдает смайлики вконтактик, например.

Поскольку коды смайликов оказались за BMP (Basic Multilingual Pane), для их кодирования нужно больше двух байт. В UTF-16 они идут в виде суррогатной пары, а в UTF-8 -- в виде четырехбайтовой последовательности, которую понимают не все раскодировщики UTF-8. В частности, функция Utf8Decode из Delphi 7 четырехбайтовые UTF-8 еще не понимает, а в Delphi XE2 уже понимает.

На нормальный вопрос -- нормальный ответ.

[FleXik]

Под квадратиком скрывается символ Юникода U+1F609 -- WINKING FACE (подмигивание)

да, это смайлы

Vapaamies, спасибо больше за ответ, но можно ли как-то решить эту проблему в Delphi 7? Не хочется перекачивать Delphi и переделывать заново проэкт... да и насколько я знаю в Delphi XE код немного отличается от кода Delphi 7....

[FleXik]

up, проблема все еще актуальна.

[Stilet]

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