Скачать: CL | DM;

Отображение XML в Memo   Найти похожие ветки 

← →
Ольга ©   (2007-12-08 14:09) [0]

Как вывести на просмотр пользователю XML-файл в формате XML? Вывожу в Memo, получается нечитабельно - все подряд, без переводов строк.

xml: DomDocument;
...
xml.save(OleVariant(filename));
Memo1.Lines.LoadFromFile(filename);


---

← →
palva ©   (2007-12-08 14:56) [1]

Да еще и символы будет неправильно отображать.
Вместо TMemo используйте TWebBrowser

WebBrowser1.Navigate(filename);

---

← →
Ольга ©   (2007-12-08 15:07) [2]

WebBrowser выдает сообщение:
DNS lookup failed.
This message was created by WinRoute Proxy.

Как эту штуку настроить?

---

← →
homm ©   (2007-12-08 15:18) [3]

> [2] Ольга ©   (08.12.07 15:07)

Это кокретно ваш эксплорер неверно настроен. Скорее всего поставлен прокси сервер даже на локальные адреса.

---

← →
Ольга ©   (2007-12-08 15:25) [4]

Если мой эксплорер неверно настроен, то как же я сейчас с вами общаюсь?
Эксплорер не хочет работать только из-под delphi, или я чего то не понимаю?

---

← →
homm ©   (2007-12-08 15:33) [5]

> [4] Ольга ©   (08.12.07 15:25)
> или я чего то не понимаю?

Естественно.

Сохраните любую странцу на жесткий диск и откройте ее с диска. Будет та-же ошибка, или нет7

---

← →
Ольга ©   (2007-12-08 15:40) [6]

Сохранила, открыла - без проблем.
Может нужно что-нибудь в компоненте WebBrowser прописать (я тупо бросила компоненту на форму и вызываю по кнопке WebBrowser1.Navigate(filename))?

---

← →
homm ©   (2007-12-08 15:41) [7]

Путь наверное относительный?

---

← →
Ольга ©   (2007-12-08 15:44) [8]

XML-файл лежит в директории ехе-шника на локальном диске, путь я не прописываю.

---

← →
homm ©   (2007-12-08 15:47) [9]

> [8] Ольга ©   (08.12.07 15:44)

Как Вы думаете, что откроет браузер, если сказать ему открыть файл «mail» с расшерением «ru», пусть даже такой «файл лежит в директории ехе-шника»?
Думаю вопросов больше не должно быть.

---

← →
Ольга ©   (2007-12-08 15:53) [10]

Да, вопросов больше нет. Получилось.
Спасибо.

---

← →
LamerV ©   (2007-12-10 09:05) [11]

Memo1.Lines.Text:= StringReplace(XMLstring, ">", " + sLineBreak, [rfReplaceAll])

---

← →
Palladin ©   (2007-12-10 10:37) [12]

что бы, интересно, значил этот ответ через три дня... :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.016 c