Автор | Сообщение |
|
| постоянный участник
|
Пост N: 134
Зарегистрирован: 27.07.08
|
|
Отправлено: 25.03.11 13:34. Заголовок: Экспорт данных в XML
Предыдущая прога уже готова и отлично работает. Но шефу надо выводить данные в универсальный формат обмена данными XML, причём с несколькими уровнями иерархии. Как заставить Harbour работать с форматом XML? Моя среда: BCC55+harbour+MiniGUI Extended
|
|
|
Ответов - 10
[только новые]
|
|
|
| Администратор
|
Пост N: 1860
Зарегистрирован: 23.05.05
|
|
Отправлено: 25.03.11 13:53. Заголовок: Я использую класс из..
Я использую класс из hwgui Этот же класс есть в поставке minigui: source\hbxml В harbour есть библиотечка contrib\hbmxml В xHarbour есть класс TXmlDocument, он же есть и в Harbour Выбирай - не хочу
|
|
|
|
| постоянный участник
|
Пост N: 135
Зарегистрирован: 27.07.08
|
|
Отправлено: 25.03.11 14:08. Заголовок: Спасибо большое! Но..
Спасибо большое! Но где бы документацию взять?
|
|
|
|
| Администратор
|
Пост N: 1861
Зарегистрирован: 23.05.05
|
|
Отправлено: 25.03.11 14:23. Заголовок: Документации как так..
Документации как таковой по этим классам нет Но классы несложные, примеры их использования имеются, и этого вполне достаточно для их освоения
|
|
|
|
| |
Пост N: 144
Зарегистрирован: 17.10.05
|
|
Отправлено: 27.03.11 11:46. Заголовок: Я использую уже давн..
Я использую уже давно - посмотрите фрагмент моего кода, может поможет "... oXmlDoc := TXmlDocument():New('<?xml version="1.0" encoding="windows-1251" ?>') oXmlRoot := TXmlNode():new(0,"DECLAR",{ "xmlns:xsi" => "http://www.w3.org/2001/XMLSchema-instance", ; "xsi:noNamespaceSchemaLocation" => aTBL[nT]+".xsd" } oXmlDoc:oRoot:addBelow( oXmlRoot ) oXmlHead := TXmlNode():new(0, "DECLARHEAD" ) oXmlRoot:addBelow( oXmlHead ) oXmlHead:addBelow( TXmlNode():new(0, "VER",,"1.1") ) ..."
|
|
|
|
| постоянный участник
|
Пост N: 1722
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.03.11 16:56. Заголовок: krutoff пишет: посм..
krutoff пишет: цитата: | посмотрите фрагмент моего кода, может поможет |
| Ничего не понятно. Дайте хоть первоначальную информацию.... Зачем как и почему. А лучше тестовый пример маленький, выгрузка базы например. Заранее спасибо !
|
|
|
|
| |
Пост N: 9
Зарегистрирован: 08.02.11
|
|
Отправлено: 29.03.11 01:52. Заголовок: я в былые времена на..
я в былые времена начала XML делал файлы для налоговой как обычный текстовый файл с последовательным созданием тэгов
|
|
|
|
| |
Пост N: 2063
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.03.11 06:43. Заголовок: Andrey пишет: Дайте..
|
|
|
|
| постоянный участник
|
Пост N: 1723
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.03.11 21:22. Заголовок: Dima пишет: http://..
Dima пишет: цитата: | http://www.rsdn.ru/article/xml/xml-1.xml |
| Спасибо ! А дальше ? По примеру ?
|
|
|
|
| |
Пост N: 12
Зарегистрирован: 03.09.09
|
|
Отправлено: 31.03.11 16:16. Заголовок: Не знаю или актуальн..
Не знаю или актуально, но еще как вариант через DOMDocument. Типа так (заполнение данными шаблона XML) : xmlDoc := CreateObject( "Msxml2.DOMDocument.6.0" ) xmlDoc:async := FALSE xmlDoc:load("Test.xml" ) xmlErr := xmlDoc:parseError IF xmlErr:errorCode <> 0 MsgExclamation( "Ошибка, код: " + AllTrim( Str( xmlErr:errorCode ) ) ) RETURN .f. ENDIF objNodeList := xmlDoc:getElementsByTagName("Tag1" ) objNodeList:item( 0 ):text = "Значение для Tag1" .... .... // создать элемент newElem := xmlDoc:createElement( "SECPARAM" ) objNodeList1:appendChild( newElem ) objNodeList1:lastChild:text = "Значение" .... xmlDoc:async := FALSE xmlDoc:validateOnParse := TRUE xmlDoc:save( "fileOut" )
|
|
|
|
| |
Пост N: 67
Зарегистрирован: 05.11.05
|
|
Отправлено: 27.05.11 14:09. Заголовок: А загрузить базу так..
А загрузить базу так можно? Могу я с помощью xHarbour взять из интернета файл и прочитать из него данные в программу?
|
|
|
|