VPF::Delphi html_special_chars ? - Форум программистов

romahi4

Дата 25.7.2010, 15:13 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте, помогите разобраться с проблемой.
Читаю из xml файла текст
>> TXMLDocument

Код


      xml := TXMLDocument.Create(Application);
      ...
      xml.LoadFromFile('file.xml');
      try
        xml.Active := true;

        EntryNode := xml.DocumentElement.ChildNodes['licence'];
        for i := 0 to EntryNode.ChildNodes.Count-1 do begin
          text := EntryNode.ChildNodes[i].Text;
          name := EntryNode.ChildNodes[i].NodeName;
          user_licence.Add(name+'='+text);
        end;
        ...

Расставляю прочитанные строки как текст компонентов формы (TEdit.Text)

Код


procedure TRegisterForm.FormShow(Sender: TObject);
begin
  if(user_licence.Values['name'] <> '') then
    nameField.Text := user_licence.Values['name'];

  if(user_licence.Values['email'] <> '') then
    emailField.Text := user_licence.Values['email'];

  if(user_licence.Values['sn'] <> '') then
    snField.Text := user_licence.Values['sn'];
end;

Проблема
текст дополняется специальными символами (+, % ...). например,
>> [email protected]
<< user%40email%2Eru

Подскажите пожалуйста как с этим бороться

Это сообщение отредактировал(а) romahi4 - 25.7.2010, 15:19

Keeper89

Дата 25.7.2010, 15:27 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Воспользоваться функцией DecodeURL, например из synapse.

Т.е.:

Код


if(user_licence.Values['name'] <> '') then
    nameField.Text := DecodeURL(user_licence.Values['name']);

Или с помощью Indy

Код


uses
  IdURI;

..
begin
  S := TIdURI.URLDecode(str);
end;

Это сообщение отредактировал(а) Keeper89 - 25.7.2010, 15:37

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

romahi4

Дата 25.7.2010, 15:46 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо большое, Keeper89.
Сделал так

Код


uses
  IdURI;
...
procedure TRegisterForm.FormShow(Sender: TObject);
begin
  if(user_licence.Values['name'] <> '') then
    nameField.Text := TIdURI.URLDecode(user_licence.Values['name']);

  if(user_licence.Values['email'] <> '') then
    emailField.Text := TIdURI.URLDecode(user_licence.Values['email']);

  if(user_licence.Values['sn'] <> '') then
    snField.Text := TIdURI.URLDecode(user_licence.Values['sn']);
end;

Keeper89

Дата 25.7.2010, 19:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Велкам ;)

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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