XMLDOCUMENT — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Hisava переименовал страницу XMLDocument в XMLDOCUMENT)
м
Строка 1: Строка 1:
[[XMLDocument]] - это функция ( [[QrAddFn2.pas]] )
+
[[XMLDOCUMENT]] - это функция ( [[QrAddFn2.pas]] )
 
  Чтение XML файла
 
  Чтение XML файла
[[XMLDocument]]( xmlfile )
+
[[XMLDOCUMENT]]( xmlfile )
 
= Пример =
 
= Пример =
  

Версия 07:55, 25 июня 2018

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

Смотрите также

Полезные функции

Функции Delphi

XMLNode

UTM