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

[FleXik]

я такое же получаю... ну и фиг с ним с этим кодом.

[Vapaamies]

Так а что надо-то?

[FleXik]

Так а что надо-то?

чтобы выводился код смайла, не смайл а именно его код, или это нереально сделать или много геморроя?

[Serge_Bliznykov]

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

чтобы выводился код смайла, не смайл а именно его код, или это нереально сделать или много геморроя?

Вы реально хотите получить код? А зачем?

Это что-то вроде такого?

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc: IXMLDocument;
  s : AnsiString;
  sw : WideString;
  i : integer;
begin
  Doc := TXMLDocument.Create(nil);
  Doc.LoadFromFile('example.xml');
  sw := Doc.DocumentElement.ChildNodes['center'].ChildNodes['b'].NodeValue;
  s := '';
  for i := 1 to Length(sw) do begin
      if ord(sw[i])> $04FF
         then s := s + IntToHex( ord(sw[i]),4)+' '
         else s := s + sw[i]
  end;
  Memo1.Text := s;
end;

вместо IntToHex можно использовать IntToStr - тогда будет десятичное значение кода,а не шестнадцатеричное...

[FleXik]

Serge_Bliznykov, совсем не то =(

[Serge_Bliznykov]

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

Serge_Bliznykov, совсем не то =(

я Вас неправильно понял?..


А что Вы хотели сказать?

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

чтобы выводился код смайла

Точнее, что Вы ожидаете получить в итоге в Memo?!
Как должна выглядеть ваша строка?

[FleXik]

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

&# 123456; - без пробела

123456 - меняются в зависимости от смайла.... у каждого смайла свой код...


смотрите сообщение #37 (в этой теме).

[Vapaamies]

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

123456 - меняются в зависимости от смайла.... у каждого смайла свой код...

Я могу написать такой код, но после флудерастии и взаимных наездов в теме не уверен, что он будет по достоинству оценен. С нестандартными задачами я обычно помогаю лишь тем авторам, для которых, как считаю, моя помощь послужит толчком для развития. В этой же теме я вижу горячее желание получить готовое решение, не вникая в суть. Прояснение ТЗ лишь в 37-м сообщении говорит само за себя.

[FleXik]

Serge_Bliznykov, разобрался в вашем коде, получается что это UTF-16 но нужно это в UTF-8 или ANSI декодировать, в UTF-16 используя Ваш код получается это D83DDE09 (все верно) но нужно из этого получить - &#_128521; (без нижнего подчеркивания) инфы в инете нигде нет под Delphi 7, я уже много инфы перерыл.

[FleXik]

В этой же теме я вижу горячее желание получить готовое решение, не вникая в суть. Прояснение ТЗ лишь в 37-м сообщении говорит само за себя.

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