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

[Vapaamies]

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

как должен выглядить код

для (каждого символа UTF-8) делать
  Q = (раскодировать последовательность байт в UTF-32) // искомый U+XXXXX
  вернуть IntToStr(Q)
конец

Аналогично для UTF-16 вместо UTF-8.

[FleXik]

нашел тут небольшую помощь http://www.fileformat.info/info/unic...f609/index.htm но тем не менее проблема не решена, кто поможет решить проблему (нужно получить &#_128521;, причем чтобы другие смайлы тоже хорошо декодило) плачу 200руб (на пиво, для Украины это 65грн, ящик пива) на Webmoney, модерам предоплата 100%, если кто боится - скину деньги на ВМ модерам - дадите мне готовый код - модеры скинут вам деньги, для тех кто разбирается - работы на 5минут, дневная зарплата (для украинцев) за 5 минут, если за деньги - ответ в ЛС, если поможете бесплатно выкладывайте пожалуйста в тему - буду очень благодарен, уверен что те кто позже будут читать эту тему так же будут благодарны.

[FleXik]

Так же попробовал заюзать это http://www.philo.de/xml/downloads.shtml удалось получить 😉 (HTML Entity (hex)) но нужно это дело декоднуть в HTML Entity (decimal), помогите пожалуйста.

[FleXik]

Короче разобрался с 😉 итого получаю &#_128521;, но 😉 я получаю используя не стандартный модуль

var
  int:integer;
begin
Int := StrToInt64('x1f609');
Showmessage(IntToStr(Int));
end;

но может все таки кто предложит код как декоднуть именно D83DDE09 в &#_128521;

P.S бабла уже не даю т.к сам решил.

[FleXik]

Vapaamies подсказал что надо разобрать на байты (как я понял), нагуглил немного, цитирую:
P.S через D83DDE09 проблема еще не решена, хотелось бы добить именно этот вариант, т.к другой вариант с использованием встроенной либы меня немного пугает, но он рабочий...

if you need HTML 4:

A. if the HTML charset is not UTF-16, then use WideCharToMultiByte() (or equivalent) to convert the WideString to that charset, then loop through the resulting values outputting unreserved characters as-is and character references for reserved values, using IntToStr() for decimal notation or IntToHex() for hex notation.

B. if the HTML charset is UTF-16, then simply loop through each WideChar in the WideString, outputting unreserved characters as-is and character references for reserved values, using IntToStr() for decimal notation or IntToHex() for hex notation.

If you need HTML 5:

A. if the WideString does not contain any surrogate pairs, then simply loop through each WideChar in the WideString, outputting unreserved characters as-is and character references for reserved values, using IntToStr() for decimal notation or IntToHex() for hex notation.

B. otherwise, convert the WideString to UTF-32 using WideStringToUCS4String(), then loop through the resulting values outputting unreserved codepoints as-is and character references for reserved codepoints, using IntToStr() for decimal notation or IntToHex() for hex notation.

[Vapaamies]

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

P.S через D83DDE09 проблема еще не решена, хотелось бы добить именно этот вариант,

В Википедии написано как раскодировать UTF-8.

[FleXik]

В Википедии написано как раскодировать UTF-8.

это UTF-16 а не UTF-8, можно пожалуйста ссылку где конкретно в википедии написано как раскодировать в то что мне нужно?

[Аватар]

var dw: DWORD;
...
  dw:=$D83DDE09;
  Label1.Caption:=IntToStr($10000+((dw shr 6) and $FFC00)+(dw and $3FF));

http://en.wikipedia.org/wiki/UTF-16
ищи surrogates

[Vapaamies]

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

это UTF-16 а не UTF-8

Честно говоря, я так и не понял постановку задачи. Исходные данные идут в UTF-8 или UTF-16? Что нужно получить на выходе?

Про суррогаты Аватар прав, даже код вроде похож на правду.

[FleXik]

Про суррогаты Аватар прав, даже код вроде похож на правду.

это не даже похоже, это так и есть, как я и говорил - пару строк кода и 5-10мин работы

Аватар, жду кошелек в ЛС, скину деньги как и обещал
Vapaamies, бабло могло быть вашим.