XMLDOCUMENT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Смотрите также) |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | XMLDocument - это функция ( [[QrAddFn2.pas]] ) | + | [[XMLDocument]] - это функция ( [[QrAddFn2.pas]] ) |
| − | + | Чтение XML файла | |
| − | XMLDocument( xmlfile ) | + | [[XMLDocument]]( xmlfile ) |
| − | + | = Пример = | |
| − | + | ||
| − | + | ||
| − | = Пример | + | |
fld := ' _1,C,200; ' | fld := ' _1,C,200; ' | ||
| Строка 25: | Строка 22: | ||
endif | endif | ||
next | next | ||
| − | |||
= Смотрите также = | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| − | [[ | + | [[Функции Delphi]] |
[[XMLNode]] | [[XMLNode]] | ||
| − | [[ | + | [[UTM]] |
| − | + | ||
| − | + | ||
Версия 10:14, 19 июля 2017
XMLDocument - это функция ( QrAddFn2.pas )
Чтение XML файла
XMLDocument( xmlfile )
Пример
fld := ' _1,C,200; ' aa := IdHttpGet( local_host + ':' + utm_port + '/opt/out' ) // сохраняем входящие сообщения в файле out.xml WriteTxtFile( { aa }, 'out.xml', TempPath, true )
doc := XMLDocument( Nice_Path( TempPath ) + 'out.xml' ) node := xmlNode( doc )
_ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
for i := 0 to XmlNodeProp( node, "ChildNodeCount" ) - 1 aa := XmlNodeProp( XmlNodeProp( node, "ChildNodes", i ), "NODEVALUE" ) aa := Right( aa, Len( aa ) - at( 'http', aa ) - 6 ) if !Empty( aa ) ( _ )->( DbAppend() ) ( _ )->_1 := aa endif next
