Delphi коды символов HTML в русский язык

[mega-X-mozg]

Отправляю c параметрами:

IdHTTP.Post('http://site.ru', param);

Получаю код страницы в memo, а русский язык там в спец. символах html
Безымянный.bmp
Это можно как то исправить?

[mega-X-mozg]

что никак нельзя?!

[raxp]

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

составьте табличку соответствий, пример обратной конвертации...

   'а': tmp:= 'а';
   'б': tmp:= 'б';
   'в': tmp:= 'в';
   'г': tmp:= 'г';
   'д': tmp:= 'д';
   'е': tmp:= 'е';
   'ж': tmp:= 'ж';
   'з': tmp:= 'з';
   'и': tmp:= 'и';
   'й': tmp:= 'й';
   'к': tmp:= 'к';
   'л': tmp:= 'л';
   'м': tmp:= 'м';
   'н': tmp:= 'н';
  ...
   'Ц': tmp:= 'Ц';
   'Ч': tmp:= 'Ч';
   'Ш': tmp:= 'Ш';
   'Щ': tmp:= 'Щ';
   'Ъ': tmp:= 'Ъ';
   'Ы': tmp:= 'Ы';
   'Ь': tmp:= 'Ь';
   'Э': tmp:= 'Э';
   'Ю': tmp:= 'Ю';
   'Я': tmp:= 'Я';

вам нужно парсить текст и сделать прямую... пример

&#десять96; - вот тут браузер подменил на "ш", хотя я писал 1096 :)
ш

обе эти записи соответствуют букве "ш", только первая в десятичном, вторая в hex

[mega-X-mozg]

Я по тому же принципу и собирался сделать, но мне показалось что код получится слишком большой.

[raxp]

ну так используйте ту особенность, что коды русских символов идут от [192-255] -> ord('A..я') и просто вычитайте... к примеру: & # 1072; -> 'a' -> 224... разница 848, значит 1072 - 848 = 224, а char(224) = a... и не будет громоздким, как-то так...

 parser('а');
...

 function parser(s: string): char;
 begin
  result:= char(strtoint(copy(s, 3, length(s)-1)) - 848)
 end;

[mega-X-mozg]

raxp, спасибо!
Получилось так, криво, но зато работает

function parser(ht: string): string;
begin
while Length(ht) > 0 do
begin
Delete(ht, 1, 2);
Delete(ht, 5, 1);
result:=result+chr(strtoint(copy(ht, 1, 4))-848);
Delete(ht, 1, 4);
end;
end;

И код обратно из русского в спец. символы html

function htmlparser(ht: string): string;
var i : Integer;
begin
for i:=1 to length(ht) do
if ht[i] in ['а'..'я','А'..'Я'] then
result:=Result+'&#'+inttostr(Ord(ht[i])+848)+';'
else if ht[i]=' ' then
Result:=Result+' '
else if ht[i]=#13 then
Result:=Result+#13#10
else
Result:=Result+ht[i]
end;