Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Encoding XML и FoxPro  [new]
Victor L.
Member

Откуда:
Сообщений: 23
Не могу разобраться с декларацией кодировки в заголовке XML сообщения.

Создаю объект:
oXMLDom=CREATEOBJECT("Microsoft.XMLDOM")
oXMLDom.async ="false"
oXMLDom.setProperty("SelectionLanguage", "XPath")


Затем создаю шапку XML с указанием кодировки:

pi=oXMLDom.createProcessingInstruction("xml", ' version="1.0" encoding="Windows-1251"')
oXMLDom.insertBefore(pi, oXMLDom.childNodes.item(0))


После чего произвожу наполнение DOM документа элементами и аттрибутами.

HEAD=oXMLDom.createElement('HEAD')
oXMLDom.appendchild(HEAD)

HEAD_ATTR1=oXMLDom.CreateAttribute('ATTR1')
HEAD_ATTR1.value='VALUE1'
HEAD.setAttributeNode(HEAD_ATTR1)

CHILD1=oXMLDom.createElement('CHILD')
HEAD.appendchild(CHILD1)


Далее, для того чтобы записать DOM-документ в строковую переменную, использую следующие команды:

str=oXMLDOM.getElementsByTagName('*')
lcXML=str.item(0).parentnode.XML
? lcXML


В результате, на выходе получаю XML-строку, но с шапкой без указания кодировки:

<?xml version="1.0"?>
<HEAD ATTR1="VALUE1">
<CHILD/>
</HEAD>


Что делаю не так? Где ошибка?
2 мар 10, 18:25    [8420419]     Ответить | Цитировать Сообщить модератору
 Re: Encoding XML и FoxPro  [new]
Игорь Горбонос
Member

Откуда: Днепропетровск
Сообщений: 4236

> Автор: Victor L.
> Что делаю не так? Где ошибка?

Наверное от того, что пытаешся вствить ПЕРЕД первым узлом, которого нет.
Правда это на VB6, но хмл получается с кодировкой
Dim xml As New DOMDocument30
Dim prin As IXMLDOMProcessingInstruction
Set prin = xml.createProcessingInstruction("xml", "version = '1.0' encoding = 'windows-1251'")
xml.appendChild prin


Posted via ActualForum NNTP Server 1.4

2 мар 10, 18:59    [8420566]     Ответить | Цитировать Сообщить модератору
 Re: Encoding XML и FoxPro  [new]
Victor L.
Member

Откуда:
Сообщений: 23
Игорь Горбонос

Нет, документ формируется правильно.
Если использовать кривое решение:


oXMLDom.save('C:\1.xml')
t=FILETOSTR('C:\1.xml')

? t


То на выходе получаю правильную шапку:

<?xml version="1.0" encoding="Windows-1251"?>
<HEAD ATTR1="VALUE1">
<CHILD/>
</HEAD>


Как вывести весь DOM-документ в строковую переменную без сохранения xml файла на жёсткий диск?
2 мар 10, 19:13    [8420618]     Ответить | Цитировать Сообщить модератору
 Re: Encoding XML и FoxPro  [new]
ВладимирМ
Member

Откуда: г. Москва
Сообщений: 7864
Как мне кажется, с этим ничего не поделаешь. Какая-то фича отображения содержимого XML. Даже при прямой загрузке из файла все-равно не отображается

oXMLDom = CREATEOBJECT("Microsoft.XMLDOM")
oXMLDom.load("C:\1.xml")
?oXMLDom.xml
3 мар 10, 11:09    [8422784]     Ответить | Цитировать Сообщить модератору
 Re: Encoding XML и FoxPro  [new]
Victor L.
Member

Откуда:
Сообщений: 23
ВладимирМ

А какие иные варианты решения могут быть? Необходимо указание кодировки, иначе в сторонней программе вместо русских букв - кракозябры. Сохранение файлов на жёсткий диск каждого запроса для ВебСервиса выглядит малореальным.
3 мар 10, 12:01    [8423182]     Ответить | Цитировать Сообщить модератору
 Re: Encoding XML и FoxPro  [new]
SoftParanoik
Member

Откуда:
Сообщений: 103
Можно попробовать использовать Stream:
       local XML
       XML=""
       wStream = CreateObject("ADODB.Stream")
       wStream.open
       wStream.Charset = "windows-1251"
       oXMLDom.Save wStream
       wStream.Position = 0
       XML = wStream.ReadText
       wStream.Close
       wStream=.Null.
       ? XML
3 мар 10, 15:16    [8424964]     Ответить | Цитировать Сообщить модератору
 Re: Encoding XML и FoxPro  [new]
Victor L.
Member

Откуда:
Сообщений: 23
SoftParanoik

Спасибо за решение. Работоспособно.
4 мар 10, 15:30    [8431644]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить