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

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

запрос значения параметра (XMLDocument) [D7, WinXP]


Страницы:   1 2

lehich ©   (2005-08-25 16:23:00) 

подскажите как запросить значение параметра (параметры: IDDOC, IDUL, OGRN, INN, KPP) используя XMLDocument? кусок кода XML привожу ниже...

заранее премного благодарен!
______________________

<?xml version="1.0" encoding="windows-1251" standalone="no"?>
<MESS_DATA VER="1.0">
<HEADER IDFILE="######" S_ID="######" S_CODE="###" S_NAME="######" TIMESTAMP="13.10.2004_14.18.12" PRG_VER="1.0.0 от 01.08.2004" CNT_DOK="    16631">
<USER DOLGN="######" FAM_FL="#####" NAME_FL="####" OTCH_FL="#####" TEL="#####" EMAIL="####"/>
</HEADER>
<UL IDDOK="####" IDUL="######" OGRN="######" INN="######" KPP="#######">


lehich   (2005-08-31 11:00:00) [1]

обновлю сабж...


lehich   (2005-08-29 09:14:00) [2]

как вопрос решаешь с необязательными полями? через исключения? я попробовал так, но шибко уж их дофига получается... код становится слишком объемным :-(((


Fay   (2005-08-26 16:45:00) [3]

2 lehich   (26.08.05 15:49) [23]
Я пользовался вот этим.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/html/b4f7414b-4af9-4c04-8a6a-06b58d0e74d0.asp

+

TAnyClass = class(TObject, IVBSAXContentHandler, IVBSAXErrorHandler)
...
public
...
procedure AnyMethod(...)
...
end;

...

procedure TAnyClass.AnyMethod(...);
...
begin
...
FVBSAXXMLReader := IVBSAXXMLReader(CreateComObject(CLASS_SAXXMLReader));
 try
   ...
   FVBSAXXMLReader.contentHandler := IVBSAXContentHandler(Self);
   FVBSAXXMLReader.errorHandler := IVBSAXErrorHandler(Self);
   FVBSAXXMLReader.parseURL(YourFileName);
   ...
 finally
   ...
   FVBSAXXMLReader := nil;
   ...
 end;
...
end;


Какие методы перекрыть и зачем, думаю, догадаешься.


lehich   (2005-08-26 15:49:00) [4]


> Fay ©   (26.08.05 14:53) [21]

я не хочу готовый проект... я тогда подохну от скуки :-))) да и профессиональному росту не шибко поможет %-)))


  (2005-08-26 15:09:00) [5]

Удалено модератором


Fay   (2005-08-26 14:53:00) [6]

2 lehich   (26.08.05 14:25) [19]
Я бы кинул готовым проектом, но
1) имею прямой запрет
2) код не из простых - не зная идеи разбирать долго.


Fay   (2005-08-26 14:50:00) [7]

2 lehich   (26.08.05 14:25) [19]
>> научишь?
Можно попытаться. 8)
Есть готовые вопросы, поддающиеся формулировке?


lehich   (2005-08-26 14:25:00) [8]


> Fay ©   (26.08.05 13:39) [18]

а я нифига в этом не понимаю... :-)))

научишь? %-)))


Fay   (2005-08-26 13:39:00) [9]

2 lehich   (26.08.05 10:58) [14]
А меня разбор на SAX-парсере. Параметры зазбора ваще хранятся в файле 8)


lehich   (2005-08-26 12:06:00) [10]


> REA   (26.08.05 11:26) [16]

респект! щаз попробую...


REA   (2005-08-26 11:26:00) [11]

циклом по ChildNodes до Count-1


REA   (2005-08-26 11:23:00) [12]

ну атрибуты там - см. соотв функцию Delphi как сказали в [1]


lehich   (2005-08-26 10:58:00) [13]


> Fay ©   (25.08.05 18:44) [13]

определенные успехи есть :-))) я теперь знаю куда копать :-)))

еще по ходу всплыл один вопросик... там где перечисление видов деятельности идет (OKVED) как перебирать их все подряд до последнего? циклом через до Count property (IXMLNodeCollection)? видел там перемещение к следующей и предыдущей записи, но аналогию EOF для xml документа не нашел...


Fay   (2005-08-25 18:44:00) [14]

2 lehich   (25.08.05 18:10) [11]
Есть успехи? Я не следил за переговорами...


Fay   (2005-08-25 18:20:00) [15]

2 lehich   (25.08.05 18:10) [11]
Ушло


lehich   (2005-08-25 18:10:00) [16]

если не сложно кинь еще на oapik@bk.ru
а то lehich на валуе... а там мыло никогда не было скоростным и надежным :-(((


Fay   (2005-08-25 18:00:00) [17]

2 lehich   (25.08.05 17:57) [9]

Смотри почту.


lehich   (2005-08-25 17:57:00) [18]


> взаимовыгодное сотрудничество не устроит?

более чем устроит!!!
а в чем оно будет проявляться??? кстати ты с какой стороны с передающей или принимающей это всё? :-)))


Fay   (2005-08-25 17:54:00) [19]

2 lehich   (25.08.05 17:49) [6]

>> но может можно поделиться???
Это мой хлеб, вАщЕ-то. Да и шеф не поймёт. А взаимовыгодное сотрудничество не устроит? 8)

З.Ы.
Прошлый формат - это XML без вложенности и без атрибутов? Гадость редкая : на 50-ти метрах DOM-парсер жрал за гигабайт.


lehich   (2005-08-25 17:52:00) [20]


> Fay ©   (25.08.05 17:45) [5]

знаю что не такой корень... просто исправил чтобы егрюл не мелькал перед глазами :-)))

<EGRUL_UL_DATA VER="1.0">
<HEADER IDFILE="RUM_29055_050204_1"


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо