VPF::Перекодировка символов HTML-страницы

Alex_bochkov

Дата 12.3.2007, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.9.2006

Репутация: нет
Всего: нет

С помощью idHTTP получаю HTML страницу с сайта через SSL.
Русские буквы заменены кодами типа: "&# 1051;&# 1077;&# 1089;&# 1086;"
Как их преобразовать к нормальному виду?

Это сообщение отредактировал(а) Alex_bochkov - 12.3.2007, 09:42

Snowy

Дата 12.3.2007, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код рисовать времени нет.
Нарисую алгоритм.
1. Выделяешь строку &# 1051;
2. Из неё выделяешь цыферу - 1051
3. C полученным числом выполняешь такое волшебное преобразование:

Код


function DecodeChr(st: string): string;
var
  i:  integer;
  s:  string;
  w:  WideChar;
begin
  i := StrToIntDef(st, 0);
  s := chr(lo(i)) + chr(hi(i));
  Move(s[1], w, 2);
  result := w;
end;

Вобщем основная твоя задача - вытащить эти цыферы.
Механизм декодирования я привёл.
Пример:

Код

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  s := DecodeChr('1051');
  s := s + DecodeChr('1077');
  s := s + DecodeChr('1089');
  s := s + DecodeChr('1086');
  ShowMessage(s);
end;

Alex_bochkov

Дата 12.3.2007, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.9.2006

Репутация: нет
Всего: нет

Спасибо! Работает!
smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »