| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в XML хранить HTML?

PVasili ©   (2005-11-24 00:23:00) 

Есть xml в котором хранится текст html.
Как правильно вывести в TTextViever (QComCtrl) текст, содержащий < > & ' " или только вручную парсить строки?

---

PVasili   (2005-11-29 17:28:00) [1]

Пасибо, все ОК работает. :-)

Маленький вопрос только...
Как правильно использовать кодировки. В xml я задал в заголовке и забыл.
А при работе в TTextViever (QComCtrl)  какой шрифт и кодировку выставить, если прогу я хочу сделать всеядную и заранее не знаю тип используемого языка.
Может что почитать можно ткните в URL.

---

Reindeer Moss Eater   (2005-11-25 16:31:00) [2]

XMLDocument1 : TXMLDocument;

......

with XMLDocument1do
 begin
  Active := True;
  ChildNodes.Nodes['html'].Text := '<html><body>what''s wrong?</body></html>';
  ShowMessage('Что прочитано из xml тега:'#13#10#13#10 + ChildNodes.Nodes['html'].Text);
  SaveToFile('my.xml');
 end;
with TStringList.Create do
 try
  LoadFromFile('my.xml');
  ShowMessage('Что там реально написано'#13#10#13#10+Text+#13#10#13#10'Угловые скобки видим на что заменены?');
 finally
  Free;
 end;
with XMLDocument1 do
 begin
  LoadFromFile('my.xml');
  ShowMessage('Еще раз спецом для тебя, что прочитано из тега '#13#10#13#10+ChildNodes.Nodes['html'].Text+#13#10#13#10'Это HTML, или куда? ');
 end;

---

PVasili   (2005-11-25 15:55:00) [3]

Что то код не катит... :-(
мне из xml (у атрибута) достать html нужно:

var
 curXML:  IXMLNode;      // XML node
 curText: TTextViever;   // TextHTML
begin
...
 curText.Text := CurXML.Attributes['Description']
....
в атрибуте Description лежит текст < html &qt; ...
и погружается он с < :(
Если curText.Text  = ' heresno wrong';
все ОК :(((

---

Reindeer Moss Eater   (2005-11-25 00:16:00) [4]

У меня нет модема

---

PVasili   (2005-11-24 20:58:00) [5]

Ща попробую, если прокатит пиво прямо через модем залью :)

---

Reindeer Moss Eater   (2005-11-24 00:52:00) [6]

Зачем вручную?

with XMLDocument1 do
 begin
  Active := True;
  ChildNodes.Nodes['html'].Text := '<html><body>what''s wrong?</body></html>';
  ShowMessage(ChildNodes.Nodes['html'].Text);
 end;

---

Наверх