Использование XML в среде Delphi. Использование XML Document Object Model

У многих программистов Delphi, сохранение настроек ассоциируется с использованием INI файлов в своих программах. Применение данного метода, в более менее серьезных проектах, необходимо избегать, так как это ограничивает в гибкости, что препятствует дальнейшему расширению программы. Стоит сказать, что такой подход достаточно популярен, в силу своей простоты использования и наличия встроенных средств в среду разработки.

Тем не менее, идеальным вариантом для хранения настроек программы являются структурированные XML файлы. Их преимущество заключается в том, что количество параметров может быть не фиксированным. Чтобы лучше это понять, рассмотрим конкретный пример.

В программе USearch , при клике по записи, появляется контекстное меню , в котором отображается список пунктов. Эти пункты являются командами, которые в свою очередь загружаются из файла настроек. В случае, если бы настройки хранились в INI файле, то программа могла бы сохранять и загружать определенное количество команд, например 10 или 50. Как только потребуется большее значение, придется заново переписывать код и соответственно повторно компилировать его.

Применяя подход с использованием XML файлов, у нас появится возможность загружать все параметры секции динамически. Ко всему этому, файл конфигурации станет более изящным, без избыточной нумерации параметров. Однако, стандартные средства для работы с XML в Delphi имеют множество недостатков, поэтому рекомендую использовать стандартную библиотеку MSXML . Обычно она по-умолчанию входит в состав операционных систем семейства Windows.

Для подключения MSXML , нам необходимо сформировать файл интерфейса со списком всех функций, импортировав его из COM-сервера. Как импортировать интерфейс написано не мало подробных статей, я же предлагаю вам скачать файл MSXML2_TLB.PAS уже готовый к использованию. После того, как файл будет скачан, разместите его рядом с вашим проектом, либо закиньте в папку lib среды Delphi. Таким образом, все создаваемые программы смогут использовать модуль MSXML , достаточно лишь дописать в uses строчку MSXML2_TLB .

Для наглядности, рассмотрим следующий пример применения этой библиотеки:

Procedure LoadData; var XMLDoc: DOMDocument; Root: IXMLDOMElement; begin XMLDoc:= CoDOMDocument.Create; XMLDoc.Load("settins.xml"); Root:= XMLDoc.DocumentElement; ShowMessage(Root.SelectSingleNode("size/width").Text); Root:= nil; XMLDoc:= nil; end;

Сначала создается экземпляр класса DOMDocument , после чего в память загружается содержимое файла settings.xml . Так как по стандарту любой XML файл должен содержать корневой тэг (в данном случае config ), то нам необходимо его получить, используя функцию DocumentElement . Затем происходит вывод содержимого между тэгами , которые в свою очередь находятся между тэгами . Таким образом из файла settings.xml , наш метод выведет в MessageBox текст "100px" .

500px 100px

Здесь применен метод SelectSingleNode , который в качестве параметра принимает строку

Несмотря на то, что тема работы с XML в Delphi довольно широко обсуждалась в Интернете, вопросы на эту тему довольно часто возникают на всевозможных форумах.

Я тоже уже писал по этому поводу , но хотел бы вернуться к реальному случаю быстрого разбора XML файла и извлечения данных, который я сегодня проделал на работе. Получение необходимых данных у меня заняло не более 5 минут времени.

Предыстория . Сегодня понадобилось обработать данные об установленных программах на компьютерах пользователей (да, да, пиратов выявляем:)). Технический отдел предоставил мне такую информацию содраную с ничего не подозревающих пользователей по сети с использованием WMI . Программа, которой они пользовались выдает отчеты в формате XML. Соответственно - мне притащили гору XML файлов с довольно сложной структурой из которых мне необходимо было вытащить только название установленных программных продуктов.

Обработка . Просмотрев пару файлов вручную, понял что так и состариться не долго, и решил написать небольшой конвертер. Запустив Delphi - выбрал в репозитарии объект XML DataBinding и скормил ему один из файлов. Все настройки и параметры я оставил по умолчанию и в результате у меня сформировался модуль с большим количеством классов и интерфейсов для доступа к элементам этого XML файла. Я не стал долго разбираться со структурой классов, сразу же перешел к написанию конвертера.

В новом консольном приложении написал довольно простой код:

program XML2TXT;

uses
Forms,
Classes, SysUtils,
SoftwareXML in "SoftwareXML.pas";

procedure CovertXML2Text;
var
softbase: IXMLSTDSoftwareType;
i: integer;
sr: TSearchRec;
CurDir: string;
ExportFile: TStringList;
begin
CurDir:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
if FindFirst(CurDir+"*.xml", faAnyFile, sr) = 0 then
repeat
ExportFile:= TStringList.Create;
softbase:= LoadSTDSoftware(Pchar(CurDir+sr.Name));
for i:= 0 to softbase.InstalledSoftware.source.software.Count - 1 do
ExportFile.Add(softbase.InstalledSoftware.source.software[i].DisplayName);
ExportFile.Sort;
ExportFile.SaveToFile(CurDir + softbase.InstalledSoftware.Source.servername+".txt");
ExportFile.Free;
until FindNext(sr) 0;
end;

begin
Application.Initialize;
CovertXML2Text;
end.

В результате которого у меня образовался по одному текстовичку на каждый компьютер в сетке, содержащий список установленного ПО.

Чувствую что данный код потребует пояснений. Например, зачем я в консольном приложении использовал модуль Forms и вызывал процедуру Application.Initialize;?

На самом деле все просто - это небольшой хак, позволяющий использовать XML Data Binding в консольном приложении. Потому как в нем упорно отказывался инициализироваться класс для работы с XML. В истинных причинах пока не разбирался - сегодня было важно время, я и так 4 из 5 минут потратил на борьбу с этой ошибкой. :) Думаю позже разобраться с этой проблемой и написать в чем истинная причина.

Странный класс softbase был создан на основе XML файла - так назывался корневой элемент, а softbase.InstalledSoftware.source.software[i].DisplayName - просто навигация по вложенным элементам до нужного и получение его значения.

Вот собственно так выглядит один из самых быстрых способов работы с XML в Delphi.

Язык XML все чаще используется для хранения информации, обмена ею между приложениями и Web-узлами. Во многих приложениях этот язык применяется в качестве базового для хранения данных, в других - для экспортирования и импортирования XML-данных. Из этого следует, что разработчикам пора задуматься над тем, как можно использовать XML-данные в собственных приложениях.

В этой статье мы рассмотрим XML Document Object Model (DOM) и ее реализацию фирмой Microsoft - Microsoft XML DOM.

XML DOM - это объектная модель, предоставляющая в распоряжение разработчика объекты для загрузки и обработки XML-файлов. Объектная модель состоит из следующих основных объектов: XMLDOMDocument, XMLDOMNodeList, XMLDOMNode, XMLDOMNamedNodeMap и XMLDOMParseError. Каждый из этих объектов (кроме XMLDOMParseError) содержит свойства и методы, позволяющие получать информацию об объекте, манипулировать значениями и структурой объекта, а также перемещаться по структуре XML-документа.

Рассмотрим основные объекты XML DOM и приведем несколько примеров их использования в Borland Delphi.

Использование XML DOM в Borland Delphi

Для того чтобы использовать Microsoft XML DOM в Delphi-приложениях, необходимо подключить к проекту соответствующую библиотеку типов. Для этого мы выполняем команду Project | Import Type Library и в диалоговой панели Import Type Library выбираем библиотеку Microsoft XML version 2.0 (Version 2.0), которая обычно находится в файле Windows\System\MSXML.DLL

После нажатия кнопки Create Unit будет создан интерфейсный модуль MSXML_TLB, который позволит нам воспользоваться объектами XML DOM: DOMDocument, XMLDocument, XMLHTTPRequest и рядом других, реализованных в библиотеке MSXML.DLL. Ссылка на модуль MSXML_TLB должна быть указана в списке Uses.

Устройство XML DOM

Document Object Model представляет XML-документ в виде древовидной структуры, состоящей из ветвей. Программные интерфейсы XML DOM позволяют приложениям перемещаться по дереву документа и манипулировать его ветвями. Каждая ветвь может иметь специфический тип (DOMNodeType), согласно которому определяются родительская и дочерние ветви. В большинстве XML-документов можно встретить ветви типа element, attribute и text. Атрибуты (attribute) представляют собой особый вид ветви и не являются дочерними ветвями. Для управления атрибутами используются специальные методы, предоставляемые объектами XML DOM.

Помимо реализации рекомендованных World Wide Web Consortium (W3C) интерфейсов, Microsoft XML DOM содержит методы, поддерживающие XSL, XSL Patterns, Namespaces и типы данных. Например, метод SelectNodes позволяет использовать синтаксис шаблонов XSL (XSL Pattern Syntax) для поиска ветвей по определенному контексту, а метод TransformNode поддерживает использование XSL для выполнения трансформаций.

Тестовый XML-документ

В качестве примера XML-документа возьмем каталог музыкальных CD-ROM, который имеет следующую структуру :

Empire Burlesque Bob Dylan USA Columbia 10.90 1985 Hide your heart Bonnie Tylor UK CBS Records 9.90 1988 ... Unchain my heart Joe Cocker USA EMI 8.20 1987

Теперь мы готовы приступить к рассмотрению объектной модели XML DOM, знакомство с которой начнем с объекта XMLDOMDocument.

XML-документ - объект XMLDOMDocument

Работа с XML-документом начинается с его загрузки. Для этого мы используем метод Load, который имеет всего один параметр, указывающий URL загружаемого документа. При загрузке файлов с локального диска указывается только полное имя файла (протокол file:/// в данном случае можно опустить). Если XML-документ хранится в виде строки, для загрузки такого документа следует использовать метод LoadXML.

Для управления способом загрузки документа (синхронный или асинхронный) используется свойство Async. По умолчанию это свойство имеет значение True, указывающее на то, что документ загружается асинхронно и управление возвращается приложению еще до полной загрузки документа. В противном случае документ загружается синхронно, и тогда приходится проверять значение свойства ReadyState, чтобы узнать, загрузился документ или нет. Также можно создать обработчик события OnReadyStateChange, который получит управление при изменении значения свойства ReadyState.

Ниже показано, как загрузить XML-документ, используя метод Load:

Uses ... MSXML_TLB ... procedure TForm1.Button1Click(Sender: TObject); var XMLDoc: IXMLDOMDocument; begin XMLDoc:= CoDOMDocument.Create; XMLDoc.Async:= False; XMLDoc.Load(‘C:\DATA\DATA.xml’); // // Здесь располагается код, манипулирующий // XML-документом и его ветвями // XMLDoc:= Nil; end;

После того как документ загружен, мы можем обратиться к его свойствам. Так, свойство NodeName будет содержать значение #document, свойство NodeTypeString - значение document, свойство URL - значение file:///C:/DATA/DATA.xml.

Обработка ошибoк

Особый интерес представляют свойства, связанные с обработкой документа при его загрузке. Так, свойство ParseError возвращает объект XMLDOMParseError, содержащий информацию об ошибке, возникшей в процессе обработки документа.

Чтобы написать обработчик ошибки, можно добавить следующий код:

Var XMLError: IXMLDOMParseError; ... XMLDoc.Load(‘C:\DATA\DATA.xml’); XMLError:= XMLDoc.ParseError; If XMLError.ErrorCode <> 0 Then // // Здесь мы обрабатываем ошибку // Else Memo1.Lines.Add(XMLDoc.XML); ... XMLDoc:= Nil;

Чтобы узнать, какая информация возвращается в случае ошибки, изменим следующий элемент каталога:

Empire Burlesque Bob Dylan USA Columbia 10.90 1985

убрав закрывающий элемент во второй строке:</p><p> <CD> <TITLE>Empire Burlesque <ARTIST>Bob Dylan</ARTIST> <COUNTRY>USA</COUNTRY> <COMPANY>Columbia</COMPANY> <PRICE>10.90</PRICE> <YEAR>1985</YEAR> </CD> </p><p>Теперь напишем код, возвращающий значения свойств объекта XMLDOMParseError:</p><p>XMLError:= XMLDoc.ParseError; If XMLError.ErrorCode <> 0 Then With XMLError, Memo1.Lines do begin Add(‘Файл: ‘ + URL); Add(‘Код: ‘ + IntToStr(ErrorCode)); Add(‘Ошибка: ‘ + Reason); Add(‘Текст: ‘ + SrcText); Add(‘Строка: ‘ + IntToStr(Line)); Add(‘Позиция: ‘ + IntToStr(LinePos)); end Else Memo1.Lines.Add(XMLDoc.XML); End; </p><p>и выполним наше приложение. В результате получаем следующую информацию об ошибке .</p> <p>Как видно из приведенного примера, возвращаемой объектом XMLDOMParseError информации вполне достаточно для того, чтобы локализовать ошибку и понять причину ее возникновения.</p> <p>Теперь восстановим закрывающий элемент <TITLE> в нашем документе и продолжим обсуждение XML DOM.</p> <table border="0" width="100%"><tr><td width="50%"> </td> <td width="50%"> </td> </tr></table><h2> Доступ к дереву документа</h2> <p>Для доступа к дереву документа можно либо получить корневой элемент и затем перебрать его дочерние ветви, либо найти какую-то специфическую ветвь. В первом случае мы получаем корневой элемент через свойство DocumentElement, которое возвращает объект типа XMLDOMNode. Ниже показано, как воспользоваться свойством DocumentElement для того, чтобы получить содержимое каждого дочернего элемента:</p><p>Var Node: IXMLDOMNode; Root: IXMLDOMElement; I: Integer; ... Root:= XMLDoc.DocumentElement; For I:= 0 to Root.ChildNodes.Length-1 do Begin Node:= Root.ChildNodes.Item[I]; Memo1.Lines.Add(Node.Text); End; </p><p>Для нашего XML-документа мы получим следующий текст .</p> <p>Если нас интересует какая-то специфическая ветвь или ветвь уровнем ниже первой дочерней ветви, мы можем воспользоваться либо методом NodeFromID, либо методом GetElementByTagName объекта XMLDOMDocument.</p> <p>Метод NodeFromID требует указания уникального идентификатора, определенного в XML Schema или Document Type Definition (DTD), и возвращает ветвь с этим идентификатором.</p> <p>Метод GetElementByTagName требует указания строки со специфическим элементом (тэгом) и возвращает все ветви с данным элементом. Ниже показано, как использовать данный метод для нахождения всех исполнителей в нашем каталоге CD-ROM:</p><p>Nodes: IXMLDOMNodeList; Node: IXMLDOMNode; ... Nodes:= XMLDoc.GetElementsByTagName(‘ARTIST’); For I:= 0 to Nodes.Length-1 do Begin Node:= Nodes.Item[I]; Memo1.Lines.Add(Node.Text); End; </p><p>Для нашего XML-документа мы получим следующий текст </p> <p>Отметим, что метод SelectNodes объекта XMLDOMNode обеспечивает более гибкий способ для доступа к ветвям документа. Но об этом чуть ниже.</p> <table border="0" width="100%"><tr><td width="50%"> </td> <td width="50%"> </td> </tr></table><h2> Ветвь документа - объект XMLDOMNode</h2> <p>Объект XMLDOMNode представляет собой ветвь документа. Мы уже сталкивались с этим объектом, когда получали корневой элемент документа:</p><p>Root:= XMLDoc.DocumentElement; </p><p>Для получения информации о ветви XML-документа можно использовать свойства объекта XMLDOMNode (табл. 1).</p> <p>Для доступа к данным, хранимым в ветви, обычно используют либо свойство NodeValue (доступно для атрибутов, текстовых ветвей, комментариев, инструкций по обработке и секций CDATA), либо свойство Text, возвращающее текстовое содержимое ветви, либо свойство NodeTypedValue. Последнее, однако, может использоваться только для ветвей с типизованными элементами.</p> <table border="0" width="100%"><tr><td width="50%"> </td> <td width="50%"> </td> </tr></table><h3> Перемещение по дереву документа</h3> <p>Объект XMLDOMNode предоставляет множество способов для перемещения по дереву документа. Например, для доступа к родительской ветви используется свойство ParentNode (тип XMLDOMNode), доступ к дочерним ветвям осуществляется через свойства ChildNodes (тип XMLDOMNodeList), FirstChild и LastChild (тип XMLDOMNode) и т.д. Свойство OwnerDocument возвращает объект типа XMLDOMDocument, идентифицирующий сам XML-документ. Перечисленные выше свойства позволяют легко перемещаться по дереву документа.</p> <p>Теперь переберем все ветви XML-документа:</p><p>Root:= XMLDoc.DocumentElement; For I:= 0 to Root.ChildNodes.Length-1 do Begin Node:= Root.ChildNodes.Item[I]; If Node.HasChildNodes Then GetChilds(Node,0); End; </p><p>Как уже отмечалось выше, SelectNodes объекта XMLDOMNode обеспечивает более гибкий способ доступа к ветвям документа. Кроме того, существует метод SelectSingleNode, возвращающий только первую ветвь документа. Оба эти метода позволяют задавать XSL-шаблоны для поиска ветвей.</p> <p>Рассмотрим процесс использования метода SelectNodes для извлечения всех ветвей, у которых есть ветвь CD и подветвь PRICE:</p><p>Root:= XMLDoc.DocumentElement; Nodes:= Root.SelectNodes(‘CD/PRICE’); </p><p>В коллекцию Nodes будут помещены все подветви PRICE ветви CD. К обсуждению XSL-шаблонов вернемся чуть позже.</p> <table border="0" width="100%"><tr><td width="50%"> </td> <td width="50%"> </td> </tr></table><h3> Манипуляция дочерними ветвями</h3> <p>Для манипуляции дочерними ветвями мы можем воспользоваться методами объекта XMLDOMNode (табл. 2).</p> <p>Для того чтобы полностью удалить запись о первом диске, необходимо выполнить следующий код :</p><p>Var XMLDoc: IXMLDOMDocument; Root: IXMLDOMNode; Node: IXMLDOMNode; XMLDoc:= CoDOMDocument.Create; XMLDoc.Async:= False; XMLDoc.Load(‘C:\DATA\DATA.xml’); // Получить корневой элемент Root:= XMLDoc.DocumentElement; Node:= Root; // Удалить первую дочернюю ветвь Node.RemoveChild(Node.FirstChild); </p><p>Обратите внимание на то, что в данном примере мы удаляем первую дочернюю ветвь. Как удалить первый элемент первой дочерней ветви, показано ниже :</p><p>Var XMLDoc: IXMLDOMDocument; Root: IXMLDOMNode; Node: IXMLDOMNode; XMLDoc:= CoDOMDocument.Create; XMLDoc.Async:= False; XMLDoc.Load(‘C:\DATA\DATA.xml’); // Получить корневой элемент Root:= XMLDoc.DocumentElement; // и первую дочернюю ветвь Node:= Root.FirstChild; // Удалить первую дочернюю ветвь Node.RemoveChild(Node.FirstChild); </p><p>В приведенном выше примере мы удалили не первую ветвь <CD>…</CD>, а первый элемент ветви - <TITLE>….

Теперь добавим новую ветвь. Ниже приведен код, показывающий, как добавить новую запись о музыкальном CD-ROM :

Var NewNode: IXMLDOMNode; Child: IXMLDOMNode; ... // Создадим новую ветвь - NewNode:= XMLDoc.CreateNode(1, ‘CD’, ‘’); // Добавим элемент Child:= XMLDoc.CreateNode(1,‘TITLE’,‘’); // Добавим элемент NewNode.AppendChild(Child); // И установим его значение Child.Text:= ‘Pink Floyd’; // Добавим элемент <ARTIST> Child:= XMLDoc.CreateNode(1, ‘ARTIST’, ‘’); // Добавим элемент NewNode.AppendChild(Child); // И установим его значение Child.Text:= ‘Division Bell’; // Добавим элемент <COUNTRY> Child:= XMLDoc.CreateNode(1, ‘COUNTRY’, ‘’); // Добавим элемент NewNode.AppendChild(Child); // И установим его значение Child.Text:= ‘UK’; // Добавим элемент <COMPANY> Child:= XMLDoc.CreateNode(1, ‘COMPANY’, ‘’); // Добавим элемент NewNode.AppendChild(Child); // И установим его значение Child.Text:= ‘EMI Records Ltd.’; // Добавим элемент <PRICE>Child:= XMLDoc.CreateNode(1, ‘PRICE’, ‘’); // Добавим элемент NewNode.AppendChild(Child); // И установим его значение Child.Text:= ’11.99"; // Добавим элемент <YEAR> Child:= XMLDoc.CreateNode(1, ‘YEAR’, ‘’); // Добавим элемент NewNode.AppendChild(Child); // И установим его значение Child.Text:= ‘1994’; // И добавим ветвь Root.AppendChild(NewNode); ... </p><p>Приведенный выше код показывает следующую последовательность действий по добавлению новой ветви:</p> <ul><li>Создание новой ветви методом CreateNode: <ul><li>создание элемента методом CreateNode;</li> <li>добавление элемента к ветви методом AppendChild;</li> <li>установка значения элемента через свойство Text;</li> <li>… повторить для всех элементов.</li> </ul></li> <li>Добавление новой ветви к документу методом AppendChild.</li> </ul><p>Напомним, что метод AppendChild добавляет ветвь в конец дерева. Для того чтобы добавить ветвь в конкретное место дерева, необходимо использовать метод InsertBefore.</p> <h2> Набор ветвей - объект XMLDOMNodeList</h2> <p>Объект XMLNodeList содержит список ветвей, который может быть построен с помощью методов SelectNodes или GetElementsByTagName, а также получен из свойства ChildNodes.</p> <p>Мы уже рассматривали использование этого объекта в примере, приведенном в разделе «Перемещение по дереву документа». Здесь же мы приведем некоторые теоретические замечания.</p> <p>Число ветвей в списке может быть получено как значение свойства Length. Ветви имеют индексы от 0 до Length-1, и каждая отдельная ветвь доступна через элемент массива Item с соответствующим индексом.</p> <p>Перемещение по списку ветвей также может осуществляться с помощью метода NextNode, возвращающего следующую ветвь в списке, или Nil, если текущая ветвь - последняя. Чтобы вернуться к началу списка, следует вызвать метод Reset.</p> <table border="0" width="100%"><tr><td width="50%"> </td> <td width="50%"> </td> </tr></table><h2> Создание и сохранение документов</h2> <p>Итак, мы рассмотрели, как можно добавлять ветви и элементы в существующие XML-документы. Теперь создадим XML-документ «на лету». Прежде всего напомним, что документ может быть загружен не только из URL, но и из обычной строки. Ниже показано, как создать корневой элемент, который затем может использоваться для динамического построения остальных элементов (что мы уже рассмотрели в разделе «Манипуляция дочерними ветвями»):</p><p>Var XMLDoc: IXMLDOMDocument; Root: IXMLDOMNode; Node: IXMLDOMNode; S: WideString; ... S:= ‘<CATALOG></CATALOG>’; XMLDoc:= CoDOMDocument.Create; XMLDoc.Async:= False; XMLDoc.LoadXML(S); Root:= XMLDoc.DocumentElement; Node:= XMLDoc.CreateNode(1, ‘CD’, ‘’); Root.AppendChild(Node); Memo1.Lines.Add(XMLDoc.XML); ... XMLDoc:= Nil; </p><p>После построения XML-документа сохраним его в файле с помощью метода Save. Например:</p> <p>XMLDoc.Save(‘C:\DATA\NEWCD.XML’);</p> <p>Помимо сохранения в файле метод Save позволяет сохранять XML-документ в новом объекте XMLDOMDocument. В этом случае происходит полная обработка документа и, как следствие, проверка его структуры и синтаксиса. Ниже показано, как сохранить документ в другом объекте:</p><p>Procedure TForm1.Button2Click(Sender: TObject); var XMLDoc2: IXMLDOMDocument; begin XMLDoc2:= CoDOMDocument.Create; XMLDoc.Save(XMLDoc2); Memo2.Lines.Add(XMLDoc2.XML); ... XMLDoc2:= Nil; end; </p><p>В заключение отметим, что метод Save также позволяет сохранять XML-документ в другие COM-объекты, поддерживающие интерфейсы IStream, IPersistStream или IPersistStreamInit.</p> <table border="0" width="100%"><tr><td width="50%"> </td> <td width="50%"> </td> </tr></table><h2> Использование XSL-шаблонов</h2> <p>Обсуждая метод SelectNodes объекта XMLDOMNode, мы упомянули о том, что он обеспечивает более гибкий способ доступа к ветвям документа. Гибкость заключается в том, что в качестве критерия для выбора ветвей можно указать XSL-шаблон. Такие шаблоны предоставляют мощный механизм для поиска информации в XML-документах. Например, для того, чтобы получить список всех названий музыкальных CD-ROM в нашем каталоге, можно выполнить следующий запрос:</p><p>Чтобы узнать, диски каких исполнителей выпущены в США, запрос формируется следующим образом:</p><p>Nodes:= Root.SelectNodes(‘CD/ARTIST’); </p><p>Ниже показано, как найти первый диск в каталоге:</p><p>Nodes:= Root.SelectNodes(‘CD/TITLE’); </p><p>и последний:</p><p>Nodes:= Root.SelectNodes(‘CD/TITLE’); </p><p>Чтобы найти диски Боба Дилана, можно выполнить следующий запрос:</p><p>Nodes:= Root.SelectNodes(‘CD[$any$ ARTIST= ”Bob Dylan”]/TITLE’); </p><p>а чтобы получить список дисков, выпущенных после 1985 года, мы выполняем следующий запрос:</p><p>Nodes:= Root.SelectNodes(‘CD/TITLE’); </p><p>Более подробное обсуждение синтаксиса XSL требует отдельной публикации. Чтобы заинтриговать читателей и подтолкнуть к дальнейшим исследованиям, приведу всего один небольшой пример возможного использования XSL. Допустим, нам необходимо преобразовать наш каталог в обычную HTML-таблицу. Пользуясь традиционными способами, мы должны перебрать все ветви дерева и для каждого полученного элемента сформировать соответствующие тэги <TD>…</TD>.</p> <p>Используя XSL, мы просто создаем шаблон (или таблицу стилей), в котором указываем, что и как надо преобразовать. Затем накладываем этот шаблон на наш каталог - и готово: перед нами текст XSL-шаблона, преобразующего каталог в таблицу (листинг 2).</p> <p>Код для наложения XSL-шаблона на наш каталог выглядит так:</p><p>Procedure TForm1.Button2Click(Sender: TObject); var XSLDoc: IXMLDOMDocument; begin XSLDoc:= CoDOMDocument.Create; XSLDoc.Load(‘C:\DATA\DATA.xsl’); Memo2.Text:= XMLDoc.TransformNode(XSLDoc); XSLDoc:= Nil; end; </p><p>Завершая наше обсуждение XSL, следует сказать, что в настоящее время этот язык активно используется для трансформации между различными XML-документами, а также для форматирования документов.</p> <table border="0" width="100%"><tr><td width="50%"> </td> <td width="50%"> </td> </tr></table><h2> Заключение</h2> <p>По вполне понятным причинам в одной статье невозможно рассмотреть все объекты Microsoft XML DOM и привести примеры их использования. Здесь мы лишь коснулись основных вопросов использования XML DOM в приложениях. В табл. 3 показаны все объекты, реализованные в Microsoft XML DOM.</p> <p>КомпьютерПресс 12"2000</p> <p>Несмотря на то, что тема работы с XML в Delphi довольно широко обсуждалась в Интернете, вопросы на эту тему довольно часто возникают на всевозможных форумах. <br></p><p>Я тоже уже писал , но хотел бы вернуться к реальному случаю быстрого разбора XML файла и извлечения данных, который я сегодня проделал на работе. Получение необходимых данных у меня заняло не более 5 минут времени.<br></p><p>Предыстория . Сегодня понадобилось обработать данные об установленных программах на компьютерах пользователей (да, да, пиратов выявляем:)). Технический отдел предоставил мне такую информацию содраную с ничего не подозревающих пользователей по сети с использованием WMI . Программа, которой они пользовались выдает отчеты в формате XML. Соответственно - мне притащили гору XML файлов с довольно сложной структурой из которых мне необходимо было вытащить только название установленных программных продуктов.<br><span><br><p>Обработка . Просмотрев пару файлов вручную, понял что так и состариться не долго, и решил написать небольшой конвертер. Запустив Delphi - выбрал в репозитарии объект XML DataBinding и скормил ему один из файлов. Все настройки и параметры я оставил по умолчанию и в результате у меня сформировался модуль с большим количеством классов и интерфейсов для доступа к элементам этого XML файла. Я не стал долго разбираться со структурой классов, сразу же перешел к написанию конвертера.<br></p><p>В новом консольном приложении написал довольно простой код:<br></p> <br>program XML2TXT;</p><p>uses<br> Forms,<br> Classes, SysUtils,<br> SoftwareXML in "SoftwareXML.pas";</p><p>procedure CovertXML2Text;<br>var<br> softbase: IXMLSTDSoftwareType;<br> i: integer;<br> sr: TSearchRec;<br> CurDir: string;<br> ExportFile: TStringList;<br>begin<br> CurDir:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));<br> if FindFirst(CurDir+"*.xml", faAnyFile, sr) = 0 then<br> repeat<br> ExportFile:= TStringList.Create;<br> softbase:= LoadSTDSoftware(Pchar(CurDir+sr.Name));<br> for i:= 0 to softbase.InstalledSoftware.source.software.Count - 1 do<br> ExportFile.Add(softbase.InstalledSoftware.source.software[i].DisplayName);<br> ExportFile.Sort;<br> ExportFile.SaveToFile(CurDir + softbase.InstalledSoftware.Source.servername+".txt");<br> ExportFile.Free;<br> until FindNext(sr) 0;<br>end;</p><p>begin<br> Application.Initialize;<br> CovertXML2Text;<br>end. <br></p><p>В результате которого у меня образовался по одному текстовичку на каждый компьютер в сетке, содержащий список установленного ПО.<br></p><p>Чувствую что данный код потребует пояснений. Например, зачем я в консольном приложении использовал модуль Forms и вызывал процедуру Application.Initialize;?<br></p><p>На самом деле все просто - это небольшой хак, позволяющий использовать XML Data Binding в консольном приложении. Потому как в нем упорно отказывался инициализироваться класс для работы с XML. В истинных причинах пока не разбирался - сегодня было важно время, я и так 4 из 5 минут потратил на борьбу с этой ошибкой. :) Думаю позже разобраться с этой проблемой и написать в чем истинная причина.<br></p><p>Странный класс softbase был создан на основе XML файла - так назывался корневой элемент, а softbase.InstalledSoftware.source.software[i].DisplayName - просто навигация по вложенным элементам до нужного и получение его значения. <br></p><p>Вот собственно так выглядит один из самых быстрых способов работы с XML в Delphi.<br></p> <p>Последнее время много внимания уделяется построение систем электронного бизнеса, или как их еще называют - B2B (business to business). Учитывая рекомендации по построению обменных потоковых систем координирующего интернет-технологий органа - WWW Consortium: акцент сделан в сторону XML-технологий и построение систем обмена XML-документами.</p> <p>Преимущество использования XML в электронном бизнесе - высокая эффективность B2B систем при низких затратах на ее создание за счет четкого и наглядного представления структурированной информации, возможность использования современных сетевых протоколов и создания бизнес-систем реального времени.</p> <p>Независимость представления информации в виде XML документов позволяет разным, участвующим в электронном бизнесе, фирмам производить независимое друг от друга ПО.</p> <p>Во всех системах обмен, как правило, строится по одинаковой схеме, с использованием HTTP запросов. В качестве протокола защиты информации применяется протокол SSL (но это отдельная тема).</p> <p>Один из возможных вариантов обработки XML сообщения является построение BIN/CGI (ISAPI)-приложений или COM (серверных) компонент, формирующих или обрабатывающих XML-документы.</p> <p>С одной стороны, приложение выступает в качестве клиента, которое в режиме POST выдает HTTP запрос, с другой стороны, находится WEB сервер на стороне которого осуществляется обработка запроса и выдача ответа. В информационном обмене используются XML-документы.</p> <p>Один из наиболее эффективных вариантов реализации - использование существующего XML-парсера, поддерживающего DOM модель. Такой парсер является дистрибутивной поставкой Win`98 или составной частью IE 4,7 и выше (для Win`95) и представляет COM сервер, находящийся в библиотеке msxml.dll.</p> <p>Модель компонентных объектов (COM) - представляет инкапсулированные данные и методы в единую сущность и способ доступа к ним через систему интерфейсов. Средствами Delphi достаточно просто осуществить доступ к классам COM-объекта (в одном COM-сервере может быть включено несколько классов). Доступ к объектам осуществляется путем инициализации экземпляра класса через систему интерфейсов. Описание интерфейсов осуществляется языком определения интерфейсов (IDL), которое возможно осуществить средствами среды автоматически.</p> <p>Средствами Delphi осуществляется импорт из COM-сервера <i>msxml.dll </i>, строится файлы описания интерфейса IDL и файл бинарного описания типов библиотеки - TLB. Данная операция осуществляется через системное меню: <b>Project | Type Library Import: </b>(рисунок 1). Далее появляется диалоговое окно (рисунок 2), в котором необходимо выбрать COM-объект (в нашем случае объект зарегистрирован под именем "Microsoft.XMLDom (Version 2.0)") и создать TLB-файл (кнопка <b>Create Unit </b>). Используя TLB-файл, среда генерирует "паскалевский" файл описания COM-сервера - MSXML_TLB.pas</p> <p>В файле MSXML_TLB.pas описаны все интерфейсы, константы и соклассы COM-сервера.</p> <p>Для доступа к объектам COM-элемента, необходимо в директиве <b>USES </b>добавить имя файла описания библиотеки (MSXML_TLB.pas). Ниже представлена простейшая программа, использующая DOM стандартный анализатор msxml.dll, которая загружает XML-документ и отображает его в элементе текстового поля Memo1.</p> <b>uses </b> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OleServer, MSXML_TLB, StdCtrls; <b>type </b> TForm1 = <b>class </b>(TForm) Button1: TButton; Memo1: TMemo; <b>procedure </b> Button1Click(Sender: TObject); <b> end; </b> <b>var </b> Form1: TForm1; <b>implementation </b> {$R *.DFM} <b>Procedure </b>TForm1.Button1Click(Sender: Tobject); <span> // объявление сокласса объекта DOMDocument; </span> <b>var </b>coDoc: CoDOMDocument; <span> // класс, согласованный с интерфейсом IDOMDocument; </span> <b>var </b>Doc: IXMLDOMDocument; <b>begin </b> <span> // создание экземпляра объекта DOMDocument; </span> Doc:= coDoc.Create; <span> // вызов метода Load экземпляра объекта DOMDocument; </span> Doc.load("data.xml"); <span> // доступ к свойстве xml экземпляра объекта DOMDocument; </span> Memo1.Text:=Doc.xml; <b>end; </b> <b>end. </b> <h2>Концепция DOM - объектная модель документа</h2> <p>Каждый XML документ представляется в виде набора множества объектов (классов), с помощью которых возможен доступ к отдельным элементам (полям объекта). DOM - интерфейс описывает доступ как к простым объектам типа DOMString или CharacterData, так и к частям или отдельным элементам XML документа: DOMFragmentElement, DOMNode, DOMElement.</p> <p>Ниже приведены самые важные свойства и методы объектов XMLDOMDocument, XMLDOMNode, XMLDOMNodeList. Необходимо отметить, что представленные ниже методы и функции объектов DOM модели (Document Object Model) используются Microsoft XML-анализатором msxml.dll и несколько шире, чем утвержденная W3C Консорциумом DOM модель.</p> <p>Более полное описание интерфейса DOM объектов можно найти на </p> <table cellspacing="0" cellpadding="4" width="500" border="1"><tbody><tr><td valign="top" colspan="2"> Объект XMLDOMDocument </td> </tr><tr><td valign="top" colspan="2">Представляет верхний уровень объектной иерархии и содержит методы для работы с документом: его загрузки, анализа, создания в нем элементов, атрибутов, комментариев и т.д. . </td> </tr><tr><td valign="top" colspan="2"><b>Свойства </b> </td> </tr><tr><td valign="top" width="39%"><b>Async </b> </td> <td valign="top" width="61%">Свойство идентифицирующее текущий режим обработки </td> </tr><tr><td valign="top" width="39%" height="19"><b>ParseError </b> </td> <td valign="top" width="61%" height="19">Возвращает ссылку на объект обработки ошибки XMLDOMParseError </td> </tr><tr><td valign="top" width="39%"><b>Включение - выключение верификации документа. </b> </td> <td> </td> </tr><tr><td valign="top" width="39%"><b>url </b> </td> <td valign="top" width="61%">Возвращает URL документа </td> </tr><tr><td valign="top" width="39%"><b>documentElement </b> </td> <td valign="top" width="61%">Содержит ссылку на корневой элемент документа в виде объекта XMLDOMElement. </td> </tr><tr><td valign="top" colspan="2"><b>Методы </b> </td> </tr><tr><td valign="top" width="39%"><b>load(url) <br>loadXML(xmlString) </b> </td> <td valign="top" width="61%">Загружает XML документ, </td> </tr><tr><td valign="top" width="39%"><b>save(objTarget) </b> </td> <td valign="top" width="61%">Сохраняет XML документ в файле </td> </tr><tr><td valign="top" width="39%"><b>abort </b> </td> <td valign="top" width="61%">Прерывание процесса загрузки и обработки документа. </td> </tr><tr><td valign="top" width="39%"><b>createAttribute (name) </b> </td> <td valign="top" width="61%">Создает для текущего элемента новый атрибут с указанным именем. </td> </tr><tr><td valign="top" width="39%"><b>createNode(Type, name, nameSpaceURI) </b> </td> <td valign="top" width="61%">Создает узел указанного типа и названия </td> </tr><tr><td valign="top" width="39%"><b>createElement(tagName) </b> </td> <td valign="top" width="61%">Создает элемент документа с указанным названием. </td> </tr><tr><td valign="top" width="39%"><b>createTextNode(data) </b> </td> <td valign="top" width="61%">Создает текст внутри документа </td> </tr><tr><td valign="top" width="39%"><b>getElementsByTagName(tagname) </b> </td> <td valign="top" width="61%">Возвращает ссылку на коллекцию элементов документа с заданным именем </td> </tr><tr><td valign="top" width="39%"><b>nodeFromID(idString) </b> </td> <td valign="top" width="61%">Поиск элемента по идентификатору </td> </tr></tbody></table><br><table cellspacing="0" cellpadding="4" width="500" border="1"><tbody><tr><td valign="top" colspan="2"> <b>Объект XMLDOMNode </b> </td> </tr><tr><td valign="top" colspan="2">Объект XMLDOMNode, реализующий базовый DOM интерфейс <b>Node </b>, предназначен для манипулирования с отдельным узлом дерева документа. Его свойства и методы позволяют получать и изменять полную информацию о текущем узле - его тип, название, полное название, его содержимое, список дочерних элементов и т.д. </td> </tr><tr><td valign="top" colspan="2"><b>Свойства </b> </td> </tr><tr><td valign="top" width=" "><b>nodeName, baseName </b> </td> <td valign="top" width="65%">Возвращает название текущего узла. </td> </tr><tr><td valign="top" width="35%"><b>prefix </b> </td> <td valign="top" width="65%">Возвращает Namespace префикс. </td> </tr><tr><td valign="top" width="35%"><b>dataType </b> </td> <td valign="top" width="65%">Определяет тип содержимого текущего узла </td> </tr><tr><td valign="top" width="35%"><b>nodeType, nodeTypeString </b> </td> <td valign="top" width="65%">Возвращает тип текущего узла: </td> </tr><tr><td valign="top" width="35%"><b>attributes </b> </td> <td valign="top" width="65%">Возвращает список атрибутов текущего узла в виде коллекции XMLDOMNamedNodeMap. </td> </tr><tr><td valign="top" width="35%"><b>text </b> </td> <td valign="top" width="65%">Возвращает содержимое текущего поддерева в виде текста </td> </tr><tr><td valign="top" width="35%"><b>xml </b> </td> <td valign="top" width="65%">Возвращает XML-представление текущего поддерева. </td> </tr><tr><td valign="top" width="35%"><b>nodeValue </b> </td> <td valign="top" width="65%">Возвращает содержимое текущего узла. </td> </tr><tr><td valign="top" width="35%"><b>childNodes </b> </td> <td valign="top" width="65%">Возвращает список дочерних элементов в виде XMLDOMNodeList. </td> </tr><tr><td valign="top" width="35%"><b>firstChild, lastChild </b> </td> <td valign="top" width="65%">Возвращает первый/последний дочерний элемент </td> </tr><tr><td valign="top" width="35%"><b>previousSibling ,nextSibling </b> </td> <td valign="top" width="65%">Возвращает предыдущий /следующий сестринский элемент. </td> </tr><tr><td valign="top" width="35%"><b>parentNode </b> </td> <td valign="top" width="65%">Содержит ссылку на родительский элемент. </td> </tr><tr><td valign="top" width="35%"><b>ownerDocument </b> </td> <td valign="top" width="65%">Возвращает указатель на документ, в котором находится текущий узел. </td> </tr><tr><td valign="top" colspan="2"><b>Методы </b> </td> </tr><tr><td valign="top" width="35%"><b>appendChild(newChild) </b> </td> <td valign="top" width="65%">Добавляет текущему узлу новый дочерний элемент. </td> </tr><tr><td valign="top" width="35%"><b>insertBefore(newChild, refChild) </b> </td> <td valign="top" width="65%">Вставляет дочерний узел, располагая его в текущем поддереве "левее" узла, указанного параметром refChild. </td> </tr><tr><td valign="top" width="35%"><b>cloneNode (deep) </b> </td> <td valign="top" width="65%">Создание копии текущего элемента. </td> </tr><tr><td valign="top" width="35%"><b>getAttribute </b><b>(name)<br> </b><b>getAttributeNode </b><b><span> (name)<br>setAttribute(name, value)<br>setAttributeNode(XMLDOMAttribute) </span> </b> </td> <td valign="top" width="65%">Доступ к атрибутам (создание, чтение, запись) объекта. Name - имя атрибута, value - его значение. Возращает значение объект XMLDOMAttribute. </td> </tr><tr><td valign="top" width="35%"><b>replaceChild(newChild, oldChild) removeChild(oldChild) </b> </td> <td valign="top" width="65%">Замена объекта oldChild текущего списка дочерних объектов на newChild. Удаление объекта oldChild </td> </tr><tr><td valign="top" width="35%"><b>selectNodes(patternString) selectSingleNode(patternString) </b> </td> <td valign="top" width="65%">Возвращает объект XMLDOMNodeList, выбранное по шаблону поиска или первый узел </td> </tr><tr><td valign="top" width="35%"><b>transformNode(stylesheet)<br>transformNodeToObject(stylesheet, outputObject) </b> </td> <td valign="top" width="65%">Назначает стилевую таблицу для поддерева текущего узла и возвращает строку - результат обработки. В качестве параметра передается ссылка на объект DOMDocument, в котором находятся XSL инструкции. </td> </tr></tbody></table><br><h2>Использование XML в бизнесе.</h2> <p>Для более ясной картины необходимо пояснение, а зачем все это нужно с тем, что бы понять, как это работает:</p> <p>При построении B2B или корпоративной ERP системы, при организации информационного обмена XML-документами между предприятиями или филиалами пр-я, используются эффективно себя зарекомендовавшая система передачи информации на основе имеющихся WEB серверов по HTTP протоколам.</p> <p>С одной стороны, приложение выступает в качестве клиента, которое в режиме POST выдает HTTP запрос, с другой стороны, находится WEB сервер, на стороне которого осуществляется обработка запроса и выдача ответа. В качестве обмена используются XML-документы.</p> <p>Например, в простой корпоративной ERP системе бухгалтерской программе (АСУ Бухучет) необходимо сформировать некий запрос на выписку накладной и передать его в филиал, который имеет склад (АСУ Склад). АРМ Аналогичная постановка задачи при создании В2В системы, когда Предприятие А запрашивает наличие продукции (делает заказ на приобретение) у Поставщика В.</p> <p>Предприятие А и его программа выступает в качестве клиента. Склад обслуживает Поставщик В, у которого находится складской комплекс БД на SQL сервере. Обмен осуществляется через корпоративный WEB сервер Поставщика В.</p> <p>Ниже представлен следующий типовой алгоритм обмена:</p> <br>Рисунок 3. <ol><li><b>Предприятие А </b>инициирует <b>процесс А </b>(заказ продукции), который выступает в качестве WEB-клиента.</li><li><b>Процесс А </b>формирует XML документ (например запрос- накладная) и передает его как POST запрос http на WEB сервер Поставщика В. В качестве URI - используется идентификатор ресурса обрабатывающего приложения. URI может быть одинаковым как для всех типов документов, либо индивидуальным для каждого типа. Все зависит от структуры B2B (WEB) сервера.</li><li>WEB сервер анализирует запрос и порождает серверный <b>Процесс В </b>, передавая в качестве параметра тело XML документа. <br>Процессе В запускается WEB-сервером и обрабатывается либо как ASP страница,CGI (ISAPI) - приложение или JAVA севрлет (серверное приложение)</li><li><b>Процесс В </b>- формирует запрос на SQL-сервер базы данных.</li><li>SQL-сервер производит необходимые операции в БД, формирует ответ и возвращает его <b>Процессу В </b>.</li><li>По ответу от SQL-сервера <b>Процесс В </b> формирует XML документ (ответ) и возращает его как на ответ на http запрос клиентскому приложению.</li><li>Далее, в зависимости от ситуации на стороне клиента формируется либо новый http запрос, либо заканчивается сеанс.</li> </ol><h2>Несколько слов об организации документооборота.</h2> <p>Общим правилом разработки системы обмена XML документами является:</p><ul><li><b>во-первых </b>- разработка схемы потоков электронных документов и их структуры;</li><li><b>во-вторых </b>- разработка таблиц функций процессов (подпроцессов) т.е. какую функцию по отношению к какому XML-документу будет реализовывать каждый процесс.</li> </ul><p>Каждый XML документ, подобно HTML документу, должен состоять из заголовка сообщения (информация заключенная тагами) и тела сообщения (для запроса эта информация обрамленная тагами для ответа на запрос). Для того, чтобы XML документ был правильно сформирован, необходимо его две составные части "Заголовок" и "Запрос" обрамить тегами, например. Вид типового документа представлен ниже:</p> <p>Заголовок (Рисунок 4), в отличие HTML документа, должен содержать разного рода служебную информацию, в том числе информацию о типе передаваемого документа и процессе его обработки. В информационную обработку поступает тело документа, т.е. содержательная часть обрамленная тагами. Следует отметить, что структуру заголовков должна быть единой для всех типов документов.</p> <p>Для запущенного сервером Процесса, алгоритм обработки предпочтительно (но не обязательно) строить следующим образом:</p> <img src='https://i0.wp.com/codenet.ru/np-includes/upload/2005/01/05/128666.jpg' height="500" width="408" loading=lazy><br>Рисунок 6. <h2>Некоторые принципиальные моменты при создании клиентской части</h2> <p>Как уже пояснялось, при создание XML-документа используется его представление в виде DOM модели. Ниже приведен пример части текста Delphi программы создания заголовка xml сообщения.</p> <b>procedure </b>TThread1.HeaderCreate(Sender: Tobject); <b>var </b> <span> // объявление сокласса, необходим для создания </span> coDoc: CoDomDocument ; <span> // объекта XMLDomDocument </span> Doc: DomDocument ; r: IXMLDOMElement; Node: IXMLDOMElement; // DOMText txt: IXMLDOMText; // DOMAttribute attr: IXMLDOMAttribute; <b>begin </b> <span> // создание документа DOM </span> Doc:=coDoc.Create; Doc.Set_async(false); <span> // начальная инициация DOM документа </span> Doc.LoadXML("<Header/>"); <span> // создание DOMElement (таг <<b>Sender </b>>) </span> Node:= Doc.createElement ("Sender"); <span> // создание текстового узла "<b>ООО "Тайфун" </b>" </span> txt:= Doc.createTextNode("ООО "Тайфун""); <span> // присвоение узлу <<b>Sender </b>> значение </span> <span> // текстового узла "<b>ООО "Тайфун" </b>" </span> Node.appendChild(txt); <span> // добавление элемента <<b>Sender </b>> в корень документа как дочернего </span> r.appendChild(Node); <span> <<b>From </b>> </span> Node:= Doc.createElement ("From"); txt:= Doc.createTextNode("http://tayfun.ru/xml/default.asp"); Node.appendChild(txt); r.appendChild(Node); <span> // аналогичные операции для тага <<b>To </b>> </span> Node:= Doc.createElement ("To"); txt:= Doc.createTextNode("http://irbis.ru"); Node.appendChild(txt); r.appendChild(Node); <span> // создание DOMElement () </span> Node:= Doc.createElement ("TypeDocument"); <span> // создание узла XMLDOMAttribute </span> Att:= Doc.createAttribute ("Id ", " Order"); <span> // <TypeDocument Id="Order"/> </span> Node.appendChild(Att); r.appendChild(Node); <b>end; </b> <p>Следует отметить, что объявление переменной coDoc: CoDomDocument и Doc: DomDocument , а также ее создание методом Create (Doc:=coDoc.Create;) осуществляется один раз. Объявление переменной находится в секции описания глобальных переменных, а не в локальной процедуре, как было продемонстрировано для наглядности в данном примере (т.е. одна глобальная переменная типа DomDocument на один программный модуль).</p> <p>Результатом работы вышеприведенной программы будет созданный заголовок, применительно к нашему примеру xml-документа: изображен на рисунке 5.</p> <img src='https://i2.wp.com/codenet.ru/np-includes/upload/2005/01/05/128662.gif' height="116" width="298" loading=lazy><br>Рисунок 5.<p><img src='https://i1.wp.com/codenet.ru/np-includes/upload/2005/01/05/128664.gif' height="179" width="385" loading=lazy><br>Рисунок 6. </p><p>Основное преимущество передачи информации в виде XML-документов в том, что существует возможно формировать сообщение, используя независимые структуры таблиц в СУБД как на принимаемой, так и на передаваемой стороне. Используя наш пример, пусть требуется передать информацию об инвойсах Предприятия А, из СУБД имеющий структуру, изображенную на рисунке 6</p> <p>Для формирования xml-документа, содержащего инвойс первоначально строится SQL-запрос (запрос А) с информацией о самом инвойсе:</p> <b>SELECT </b> * FROM Invoice_General <b>WHERE </b> InvoiceNum = :num <b>SELECT </b>Goods,Qulity,Price, HZ_cod <b>FROM </b>Goods <b>WHERE </b> InvoiceNum = :num <span> // :num - параметр, который задает номер инвойса. </span> <p>Ниже представлена часть программы, формирующей тело xml-документа:</p> <b>procedure </b> TThread1.DataBodyCreate(Sender: Tobject); <b>var </b> <span> // объявление сокласса и объекта XMLDomDocument </span> //coDoc: CoDomDocument ; <span> // должно быть глобальным, для всего модуля. </span> //Doc: DomDocument ; <span> // объявление объектов DOMElement </span> r: IXMLDOMElement; // DOMElement; Node, Node2: IXMLDOMElement; Node3, Node4: IXMLDOMElement; // DOMText txt: IXMLDOMText; str: String; <span> // InvoiceNumber: <b>integer; </b> - глобальная переменная - // имеет значение 987654 // queryA, queryB: <b>String; </b> - глобальная переменная, // имеет значение,соответствующее запросу // queryA - запрос А генеральная информацией об инвойсе // queryB - запрос B информация о товарах, описываемых в // инвойсе (см. текст) </span> <b>begin </b> Query.Close; <span> // см. по тексту "запрос А" </span> Query.Text:= queryA; <span> // выполнение запроса </span> Query.ExecSQL; Query.Open; <span> // получение адреса корневого элемента </span> r:=Doc.Get_documentElement; Node2:= Doc.createElement (" Request "); <span> // создание DOMElement (таг) </span> Node:= Doc.createElement ("Invoice"); <span> // добавление элемента в корень </span> r.appendChild(Node2); <span> // добавление элемента в </span> Node2. appendChild(Node); <span> // создание DOMElement (таг) </span> Node3:= Doc.createElement ("Depurture") ; <span> // добавление элемента в </span> Node. appendChild(Node3); <span> // обращение к полю "Depurture" запроса </span> str:= Query.FieldByName("Depurture").AsString; <span> // создание текстового узла = значению поля </span><span> // присвоение узлу значение </span> <span> // текстового узла, переменной str </span> Node.appendChild(txt); <span> // аналогичные операции для тага <Destination>, <DataSend>, // <DataDepurture>, <Currency> // <DestinationCompany> (поле DB "Consignee") </span> Node:= Doc.createElement ("Destination"); <span> // имя поля БД может и не совпадать с именем </span> str:= Query.FieldByName("Consignee ").AsString; <span> // тага, в этом преимущество использования </span> txt:= Doc.createTextNode(str); <span> // DOM интерфейса перед СУБД, имеющим поддержку XML-интерфейса, // типа ORACLE 8i или Ms SQL 2000 </span> Node.appendChild(txt); ... <span> // формирование запроса на спецификацию по товарам </span> <span> // закрывает запрос для доступа </span> Query.Close; <span> // см. по тексту "запрос В", информац. О товарах </span> Query.Text:= queryВ; <span> // присваивание значения параметров </span> Query.Params.AsInteger:= InvoiceNumber; <span> // выполнение запроса </span> Query2.ExecSQL; <span> // открытие доступа к данным запроса </span> Query.Open; <span> // создание DOMElement (таг) </span> Node3:= Doc.createElement (" Imems") ; <span> // добавление элемента в </span> Node. appendChild(Node3); <span> // цикл по всем строкам запроса </span> <b>while </b> <b>not </b> Eof.Query <b>do </b> begin Node4:= Doc.createElement ("Imem"); <span> // добавление элемента в </span> Node3.appendChild(Node4); <span> // формирование данных для тага </span> str:= Query.FieldByName("Price").AsString; txt:= Doc.createTextNode(str); Node.appendChild(txt); ... <span>// аналогичные операции для тагов <HZ_Cod>, <Quality>, <GoodName> </span> <b>end; </b> <b>end; </b> <p>В результате выполнения данной процедуры формируется следующий текст XML-документа:</p> <table width="100%"><tbody><tr><td align="middle"><br><img src='https://i1.wp.com/codenet.ru/np-includes/upload/2005/01/05/128661.gif' width="100%" loading=lazy></td> </tr></tbody></table><p>Для формирования запроса используется метод Open объекта <b>IXMLHttpRequest </b>:</p> <b>procedure </b> Open(const bstrMethod, - тип метода ="POST" bstrUrl, - Url адрес сервера varAsync, - режим связи асинхронный/синхронный = true bstrUser, - имя пользователя для аутентификации bstrPassword) - пароль <h2>Создании серверной части обработки документа</h2> <p>Как было отмечено ранее, обработка HTTP запроса может осуществляться либо CGI-приложениями, либо Java-сервлетами. Возможен и вариант написания ASP-страниц. Но в этом случае передача данных возможна только методом "GET" через строку запроса. Хотя, обработка HTTP запроса ASP-страниц работает более эффективнее, чем CGI-приложением. Однако, на мой взгляд, без разницы, как обрабатывать, а важнее решить вопрос - как построить программу обработки, а не какими средствами.</p> <p>Если из предыдущей главы мы рассмотрели варианты формирования XML-документ, то задача серверного приложения обратная - разбор XML-документов. Ниже представлена часть программы, осуществляющей разбор xml-документа:</p> <b>procedure </b>Tthread1.DataParser(Sender: Tobject); <b>var </b> <span>// объявление объектов DOMElement </span> r,FNode: IXMLDOMElement; Str,Filename: String; parm: String; <span>// объявление сокласса и </span> CoDocXML, CoDocXSL, CoDocResult: CoDomDocument ; <span>// объекта XMLDomDocument </span> XMLDoc, XSLDoc, ResultDoc: DomDocument ; <span>// HttpStr: String; - глобальная переменная, содержащая строку HTTP запроса </span> <b>Begin </b> XMLDoc:=coDocXML.Create; XMLDoc.LoadXML(HttpStr); <span> // получение адреса корневого элемента </span> r:=Doc.Get_documentElement; <span> // получение значения элемента </span> FNode:= r.SelectSingleNode("//TypeDocument"); <span> // получение значения атрибута id="Order" </span> FileName:= FNode.GetAttibute("id"); <span> // и формирование имени файла Order.xsl </span> FileName:= FileName+".xsl"; <span> // создание документа XSLDoc </span> XSLDoc:=coDocXSL.Create; XSLDoc.LoadXML(FileName); <span> // создание документа XMLDoc </span> ResultDoc:=coDocResult.Create; <span> // установка синхронного режима обработки </span> ResultDoc.Set_async(false); <span> // установка проверки разбора </span> ResultDoc.validateOnParse:= true; <span> // разбор XMLDoc по XSL-шаблону </span> XMLDoc.transformNodeToObject(XSLDoc, ResultDoc); <span> // переменной Str присваивается текстовое значение </span> <span> // результирующего документа. </span> Str:= ResultDoc.text; <span> // поиск элемента </span> FNode:= r.SelectSingleNode("//InvoiceNumber"); <span> // и получение значения элемента </span> parm:= FNode.text; <span> // закрывает запрос для доступа </span> Query.Close; Query.Text:= Str; <span> // присваивание значения параметра </span> Query.Params.AsString:= parm; <span> // выполнение запроса </span> Query.ExecSQL; <b>end; </b> <p>Вся изюминка разбора заключается в применении XSL-шаблона, который сформирован для каждого типа документа индивидуально. Результатом разбора является строка SQL-запроса. В последствие выполнение сформированной строки SQL-запроса осуществит необходимые изменения данных в СУБД.</p> <p>Преимущество использования разбора через шаблон еще и в том, что получается некая гибкость данных, и получается полная независимость работы алгоритма от программного кода. Ниже приведен используемый для обработки документа типа ORDER текст XSL-шаблона:</p><p>  <xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl"> <xsl:template match="/"> <xsl:for-each select="//header"> INSERT into TABREG (FROM, TO, TYPEDOC,body) VALUES(" <xsl:value-of select="from" />", "<xsl:value-of select="to" />", "<xsl:value-of select="TypeDocument/@id" />") </xsl:for-each> <xsl:for-each select="//item"> INSERT into GOODS (invoiceNumber, name, price, quality) VALUES(" :num", "<xsl:value-of select="name" />", "<xsl:value-of select="price" />", "<xsl:value-of select="quality" /> ") </xsl:for-each> </xsl:template> </xsl:stylesheet> </p><p>Поясняя вышеприведенный пример, надо отметить, что использование пары тагов и носит формальный характер, т.к. после разбора в результирующем XML-документе формально должен присутствовать хотя бы один узел. Метод ResultDoc.text присваивает текстовое значение полученного в ходе разбора XML-документа ResultDoc. В этом случае значением является все то, что обрамлено пары тегов и, т.е. сформированный нами SQL-запрос.</p> <p>Другой особенностью написания программы надо отметить возможность использования SQL-параметра <b>:num. </b> Использование параметра позволяет упростить текст xsl-шаблона. Определение значение соответствующих элементов узлов XML-документа определяется первоначально выбора по имени соответствующего узла, например:</p><h2>Коротко об XSL</h2> <p>Аббревиатура XSL происходит от eXtensible Stylesheet Language - язык форматирования таблиц стилей (XML данных). Как понятно из заголовка eXtensible Stylesheet Language (XSL) используется для форматирования XML данных. По определению W3C XSL состоит из двух частей:</p> <ul><li>XSLT - XSL Transformation. Язык, используемый для преобразования или форматирования (трансформирования) XML документов. Таким образом, при помощи XSLT мы можем получить разные разрезы множества данных и формы представления данных.</li><li>Элементы форматирования. К этим элементам относятся все элементы типографического оформления данных, после их обработки их при помощи XSL. Используется только для формирования HTML страниц.</li> </ul><p>При помощи XSLT мы можем отобрать нужные нам данные из XML файла, и оформить их в виде для предоставления пользователю. Например, в нашем случае мы преобразовали XML данные в виде SQL запроса. Классическое применение XSL - это, как правило форматирование данных в виде HTML страниц или более редкое представление в виде RTF файлов.</p> <p>XSL файл описывает шаблон (template), согласно которому будет совершаться преобразование XML данных. Возвращаясь к xsl-шаблонам, в XSLT можно выделить следующие элементы (директивы):</p> <table cellspacing="0" cellpadding="4" width="500" border="1"><tbody><tr><td valign="top" width="31%"> <b>XSL-директивы </b> </td><th align="middle" width="69%"> <b>описание </b> </th> </tr><tr><td>xsl:apply-templates </td> <td>Директива, указывающая на применение соответствующих шаблонов атрибуту select="имя шаблона" </td> </tr><tr><td>xsl:attribute </td> <td>создает дерево атрибутов и добавляет его в выходной элемент, параметр name="имя атрибута", namespace - URI на пространство имен (префикс пространства имен) </td> </tr><tr><td>xsl:call-template </td> <td>вызывает шаблон, атрибуту name=" URI на шаблон" </td> </tr><tr><td>xsl:choose<br>xsl:when<br>xsl:otherwise </td> <td>осуществление выбора по условию xsl:when expr="вычисление выражения на script ", <br>language="language-name" <br>test= "вычисляемое выражение" </td> </tr><tr><td>xsl:comment </td> <td>генерирует комментарий в выходной документ </td> </tr><tr><td>xsl:copy<br>xsl:copy-of </td> <td>копирует текущей узел в выходной источник или вставляет фрагмент документа в узел, где атрибут select="имя узла источника" </td> </tr><tr><td>xsl:element </td> <td>создает выходной элемент по имени, атрибут name="имя элемента", namespace="uri ссылка на пространство имен" </td> </tr><tr><td>xsl:for-each </td> <td>повторно применяет шаблон ко всем узлам списка узлов, атрибут select задает список узлов </td> </tr><tr><td>xsl:if </td> <td>проверка условия, задается атрибутом test в виде выражения </td> </tr><tr><td>xsl:include </td> <td>включает внешний шаблон, атрибут href = "URI reference" </td> </tr><tr><td>xsl:output </td> <td>специфицирует выходной результат, атрибут method может иметь значения "xml", "html" или "text" </td> </tr><tr><td>xsl:param </td> <td>специфицирует значение параметров, атрибут name="имя параметра", select = "значение" </td> </tr><tr><td>xsl:processing-instruction </td> <td>создает инструкцию обработки, атрибут name="имя процесс инструкции" </td> </tr><tr><td>xsl:sort </td> <td>сортирует множество узлов, атрибуты select = "имя узла", data-type = тип данных {"text" | "number" | Qname}, order = направление сортировки {"ascending" | "descending"} </td> </tr><tr><td>xsl:stylesheet </td> <td>определяет документ xsl-шаблонов, является корневым элементом для XSLT </td> </tr><tr><td>xsl:template </td> <td>определяет xsl-шаблон, атрибут name= " URI префикс на имя шаблона", match= "указание на узел, к которому применяется шаблон" </td> </tr><tr><td>xsl:text </td> <td>генерирует текст в выходной поток, атрибут disable-output-escaping = "yes" или "no", указывает на возможность генерации символов ESC </td> </tr><tr><td>xsl:value-of </td> <td>вставляет значение выбранного узла как текст, атрибут select= "указатель на узел" из которого берут значение </td> </tr><tr><td>xsl:variable </td> <td>специфицирует значение границ переменных, атрибут name = "имя переменной", select = "вычисление значения переменной" </td> </tr><tr><td>xsl:with-param </td> <td>применяет параметр к шаблону, атрибут name ="имя параметра", select = выражение для вычисления текущего контекста, значение по умолчанию "." </td> </tr></tbody></table><h2>Заключение</h2> <p>В заключение, необходимо отметить, что использование стандартного XML-парсера <i>msxml.dll </i>является не единственным средством разбора и создания XML-документов. Например, для создание XML документов эффективно использовать компоненты <b>TPageProduser </b>и <b>TТableProduser </b>. Но, данная статья лишь подчеркивает широту и возможность применения на практике DOM модели.</p> <p>Автор будет очень благодарен за отзывы об актуальности темы, общем содержании, стиле изложения, а также всем остальным комментариям, которые помогут в дальнейшем улучшить качество написания сборника статей и выпуску книги, освещающую тему практической стороны использования XML-документов в электронной коммерции. Более подробную информацию о практической стороне применения электронных документов можно почерпнуть на авторском сайте www.eDocs.al.ru Также на авторском сайте планируется разместить исходные тексты и примеры.</p> <script>document.write("<img style='display:none;' src='//counter.yadro.ru/hit;artfast_after?t44.1;r"+ escape(document.referrer)+((typeof(screen)=="undefined")?"": ";s"+screen.width+"*"+screen.height+"*"+(screen.colorDepth? screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+";h"+escape(document.title.substring(0,150))+ ";"+Math.random()+ "border='0' width='1' height='1' loading=lazy>");</script> <div class="evc-social-likes" data-url="https://ymol.ru/how-to-work/ispolzovanie-xml-v-srede-delphi-ispolzovanie-xml-document-object-model/" data-title="Использование XML в среде Delphi. Использование XML Document Object Model" data-media="https://i1.wp.com/zoo-mania.ru/wp-content/uploads/2011/08/settings.ini_.jpg"> <div class="social-likes "> <div class="facebook" title="Поделиться ссылкой на Фейсбуке">Facebook</div> <div class="twitter" title="Поделиться ссылкой в Твиттере">Twitter</div> <div class="vkontakte" title="Поделиться ссылкой во Вконтакте">Вконтакте</div> <div class="plusone" title="Поделиться ссылкой в Гугл-плюсе">Google+</div> </div> </div> <span class="thecategory"><i class="icon-globe"></i> <a href="/category/how-to-work/" rel="category tag">Как работать</a></span> </div> </article> <div class="post-tags"></div> <div class="related-posts"> <h4>Вам также может понравиться</h4> <article id="post-35140" class="latestpost post-35140 post type-post status-publish format-standard hentry category-poleznye-sovety"> <a href="/instructions/telefon-htc-opisanie-i-harakteristiki-htc-one-m7---tehnicheskie-harakteristiki/" title="HTC One M7 - Технические характеристики" id="featured-thumbnail"> <div class="featured-thumbnail"> <img src="/uploads/4bc314f15c1f091524b50952db37e7d3.jpg" alt="HTC One M7 - Технические характеристики" / loading=lazy> </div> </a> <header class="entry-header"> <h1 class="entry-title"><a href="/instructions/telefon-htc-opisanie-i-harakteristiki-htc-one-m7---tehnicheskie-harakteristiki/" rel="bookmark">HTC One M7 - Технические характеристики</a></h1> </header> </article> <article id="post-35138" class="latestpost post-35138 post type-post status-publish format-standard hentry category-poleznye-sovety"> <a href="/choice/regulyarnye-vyrazheniya-poisk-ne-vklyuchaya-stroku-javascript-regulyarnoe/" title="Javascript, регулярное выражение: примеры, проверка регулярных выражений" id="featured-thumbnail"> <div class="featured-thumbnail"> <img src="/uploads/94aca27994d6e891ddf4a846ad2a9f01.jpg" alt="Javascript, регулярное выражение: примеры, проверка регулярных выражений" / loading=lazy> </div> </a> <header class="entry-header"> <h1 class="entry-title"><a href="/choice/regulyarnye-vyrazheniya-poisk-ne-vklyuchaya-stroku-javascript-regulyarnoe/" rel="bookmark">Javascript, регулярное выражение: примеры, проверка регулярных выражений</a></h1> </header> </article> <article id="post-35137" class="latestpost post-35137 post type-post status-publish format-standard hentry category-poleznye-sovety"> <a href="/overview/m1-b-3-kompyuternye-tehnologii-v-nauke-i-proizvodstve-kompyuternye/" title="М1.Б.3 Компьютерные технологии в науке и производстве. Компьютерные технологии в науке и образовании Компьютерные технологии в науке и производстве" id="featured-thumbnail"> <div class="featured-thumbnail"> <img src="/uploads/b623d93a993f69f5cf1d87689d96a904.jpg" alt="М1.Б.3 Компьютерные технологии в науке и производстве. Компьютерные технологии в науке и образовании Компьютерные технологии в науке и производстве" / loading=lazy> </div> </a> <header class="entry-header"> <h1 class="entry-title"><a href="/overview/m1-b-3-kompyuternye-tehnologii-v-nauke-i-proizvodstve-kompyuternye/" rel="bookmark">М1.Б.3 Компьютерные технологии в науке и производстве. Компьютерные технологии в науке и образовании Компьютерные технологии в науке и производстве</a></h1> </header> </article> </div> </main> <div id="sidebar" class="sidebar c-4-12" role="complementary" itemscope itemtype="http://schema.org/WPSideBar"> <aside id="recent-posts-3" class="widget widget_recent_entries"> <h3 class="widget-title">Самое популярное</h3> <ul> <li class='li1'><a href='/instructions/progress-dispetchera-zagruzok-ne-otobrazhaetsya-v-oblasti/' title='Почему на флешке не видно файлов, и как это исправить Почему загруженные файлы не отображаются в загрузках'>Почему на флешке не видно файлов, и как это исправить Почему загруженные файлы не отображаются в загрузках</a></li> <li class='li1'><a href='/setting/nl-interneshnl-lichnyi-kabinet-vhod-nl-international-otzyvy-interesuyut/' title='NL International – отзывы интересуют?'>NL International – отзывы интересуют?</a></li> <li class='li1'><a href='/setting/svetyashchiesya-linii-dlya-fotoshopa-kak-sozdat-svetyashchiesya-linii-v/' title='Как создать светящиеся линии в фотошопе - быстро и красиво'>Как создать светящиеся линии в фотошопе - быстро и красиво</a></li> <li class='li1'><a href='/reviews/critical-service-failed-windows-8-na-noutbuke-oshibka-critical-process-died-chto-ona/' title='Ошибка critical process died что она обозначает и как исправить'>Ошибка critical process died что она обозначает и как исправить</a></li> <li class='li1'><a href='/connection/panel-upravleniya-bystryi-dostup-k-appletam-paneli-upravleniya-windows/' title='Быстрый доступ к апплетам Панели управления Windows Windows где размещается панель управления'>Быстрый доступ к апплетам Панели управления Windows Windows где размещается панель управления</a></li> <li class='li1'><a href='/instructions/zhivye-ramki-s-23-fevralya/' title='Живые рамки с 23 февраля'>Живые рамки с 23 февраля</a></li> <li class='li1'><a href='/reviews/kak-otpravit-besplatnoe-sms-na-laif-kak-otpravit/' title='Как отправить текстовое сообщение на Лайф'>Как отправить текстовое сообщение на Лайф</a></li> <li class='li1'><a href='/how-to-work/kak-udalit-s-aifona-rington-ili-muzyku-podrobnye-instrukcii-kak/' title='Как удалить музыку с Айфона?'>Как удалить музыку с Айфона?</a></li> <li class='li1'><a href='/bluetooth/chto-takoe-svetodiodnyi-piksel-led-pixel-raschet-neobhodimogo-kolichestva/' title='Расчет необходимого количества пикселей для использования в проекте'>Расчет необходимого количества пикселей для использования в проекте</a></li> <li class='li1'><a href='/instructions/gruppa-ili-pablik-vkontakte-chto-takoe-publichnaya-stranica/' title='Что такое публичная страница вконтакте'>Что такое публичная страница вконтакте</a></li> </ul> </aside> <aside id="wpforo_widget_recent_topics-2" class="widget widget_wpforo_widget_recent_topics"><div id="wpf-widget-recent-replies" class="wpforo-widget-wrap"><h3 class="widget-title">Новые сообщения</h3><div class="wpforo-widget-content"><ul> <li> <div class="wpforo-list-item"> <div class="wpforo-list-item-left"> <img class="avatar" src="/uploads/24525dd2ee77ea651e3e4479891e0b33.jpg" height="96" width="96" / loading=lazy> </div> <div class="wpforo-list-item-right"> <p class="posttitle"><a href="/instructions/pochta-gonkonga-otslezhivanie-pochtovyh-otpravlenii-pochta-gonkonga-hongkong-post-i/">Почта гонконга отслеживание почтовых отправлений</a></p> <p class="postuser">2024-04-18 03:16:29</p> </div> <div class="wpf-clear"></div> </div> </li> <li> <div class="wpforo-list-item"> <div class="wpforo-list-item-left"> <img class="avatar" src="/uploads/570e758d31a76dc7cc5faa2df81af69a.jpg" height="96" width="96" / loading=lazy> </div> <div class="wpforo-list-item-right"> <p class="posttitle"><a href="/setting/kak-sdelat-rabochii-stol-na-v-8/">Как сделать рабочий стол на в 8</a></p> <p class="postuser">2024-04-14 03:25:12</p> </div> <div class="wpf-clear"></div> </div> </li> <li> <div class="wpforo-list-item"> <div class="wpforo-list-item-left"> <img class="avatar" src="/uploads/994b03a4974aff57ce3a28ca67738283.jpg" height="96" width="96" / loading=lazy> </div> <div class="wpforo-list-item-right"> <p class="posttitle"><a href="/problems/obzor-meizu-m5-note-ocharovatelnyi-serednyak-obzor-smartfona-meizu-m5-note/">Обзор смартфона Meizu M5 Note: незначительный апгрейд Слабая производительность в играх</a></p> <p class="postuser">2024-04-13 03:39:23</p> </div> <div class="wpf-clear"></div> </div> </li> <li> <div class="wpforo-list-item"> <div class="wpforo-list-item-left"> <img class="avatar" src="/uploads/f19244080995b15682e1ce9c2c88cfec.jpg" height="96" width="96" / loading=lazy> </div> <div class="wpforo-list-item-right"> <p class="posttitle"><a href="/reviews/udalennyi-dostup-k-kompyuteru-na-russkom-kak-podklyuchit-udal-nnyi-dostup-k/">Как подключить удалённый доступ к компьютеру через интернет: Руководство</a></p> <p class="postuser">2024-04-12 03:24:12</p> </div> <div class="wpf-clear"></div> </div> </li> <li> <div class="wpforo-list-item"> <div class="wpforo-list-item-left"> <img class="avatar" src="/uploads/41fa0f408db00a488d2f36007967f84c.jpg" height="96" width="96" / loading=lazy> </div> <div class="wpforo-list-item-right"> <p class="posttitle"><a href="/wi-fi/zadachi-na-funkcii-raboty-so-strokami-v-javascript-javascript-rabota/">Javascript: работа со строками, функции Jquery функции работы со строкой</a></p> <p class="postuser">2024-04-11 03:25:40</p> </div> <div class="wpf-clear"></div> </div> </li> </ul></div></div></aside><aside id="categories-2" class="widget widget_categories"><h3 class="widget-title">Рубрики</h3> <ul> <li class="cat-item cat-item-84"><a href="/category/bluetooth/">Bluetooth</a> </li> <li class="cat-item cat-item-84"><a href="/category/wi-fi/">Wi-Fi</a> </li> <li class="cat-item cat-item-84"><a href="/category/choice/">Выбор </a> </li> <li class="cat-item cat-item-84"><a href="/category/instructions/">Инструкции</a> </li> <li class="cat-item cat-item-84"><a href="/category/how-to-work/">Как работать</a> </li> <li class="cat-item cat-item-84"><a href="/category/setting/">Настройка </a> </li> <li class="cat-item cat-item-84"><a href="/category/beginning/">Начало</a> </li> <li class="cat-item cat-item-84"><a href="/category/overview/">Обзор</a> </li> <li class="cat-item cat-item-84"><a href="/category/overview/">Обзор </a> </li> <li class="cat-item cat-item-84"><a href="/category/reviews/">Обзоры</a> </li> </ul> </aside><aside id="dwqa-latest-question-2" class="widget widget_categories"><h3 class="widget-title">Новые статьи</h3><ul> <li class="cat-item"><a href="/setting/testirovanie-monitora-na-bitye-pikseli-pri-pokupke-kak-proverit/">Как проверить монитор на битые пиксели перед покупкой</a></li> <li class="cat-item"><a href="/wi-fi/vindovs-10-stavitsya-brauzer-po-umolchaniyu/">Виндовс 10 ставится браузер по умолчанию</a></li> <li class="cat-item"><a href="/instructions/telefon-htc-opisanie-i-harakteristiki-htc-one-m7---tehnicheskie-harakteristiki/">HTC One M7 - Технические характеристики</a></li> <li class="cat-item"><a href="/choice/regulyarnye-vyrazheniya-poisk-ne-vklyuchaya-stroku-javascript-regulyarnoe/">Javascript, регулярное выражение: примеры, проверка регулярных выражений</a></li> <li class="cat-item"><a href="/overview/m1-b-3-kompyuternye-tehnologii-v-nauke-i-proizvodstve-kompyuternye/">М1.Б.3 Компьютерные технологии в науке и производстве. Компьютерные технологии в науке и образовании Компьютерные технологии в науке и производстве</a></li> <li class="cat-item"><a href="/instructions/progress-dispetchera-zagruzok-ne-otobrazhaetsya-v-oblasti/">Почему на флешке не видно файлов, и как это исправить Почему загруженные файлы не отображаются в загрузках</a></li> <li class="cat-item"><a href="/setting/nl-interneshnl-lichnyi-kabinet-vhod-nl-international-otzyvy-interesuyut/">NL International – отзывы интересуют?</a></li> <li class="cat-item"><a href="/setting/svetyashchiesya-linii-dlya-fotoshopa-kak-sozdat-svetyashchiesya-linii-v/">Как создать светящиеся линии в фотошопе - быстро и красиво</a></li> <li class="cat-item"><a href="/reviews/critical-service-failed-windows-8-na-noutbuke-oshibka-critical-process-died-chto-ona/">Ошибка critical process died что она обозначает и как исправить</a></li> <li class="cat-item"><a href="/connection/panel-upravleniya-bystryi-dostup-k-appletam-paneli-upravleniya-windows/">Быстрый доступ к апплетам Панели управления Windows Windows где размещается панель управления</a></li> </ul></aside></div> </div> </div> </div> <footer id="colophon" class="site-footer" role="contentinfo"> <div class="site-info container"> <div class="copyrights"> <span class="sep"> </span> ymol.ru - Все о планшетах - Информационный портал </div> <a href="#blog" class="toplink" ><i class="icon-angle-up"></i></a> <nav id="navigation" class="footer-navigation" role="navigation"> <div class="menu-footer-menu-container"><ul id="menu-footer-menu" class="menu"> <li class="menu-item type-post_type object-page "><a href="/sitemap.xml">Карта сайта</a></li> <li class="menu-item type-post_type object-page "><a href="/feedback/">Контакты</a></li> </ul></div> </nav> </div> </footer> </div> <div id="vk_api_transport"></div> <script type="text/javascript"> jQuery(document).ready(function ($) { if ($('.social-likes')) { $('.social-likes').each(function () { var p = $(this).parent(); if (p.data('url')) { $(this).data({ 'url': p.data('url'), 'title': p.data('title') } ); } if ($(this).find('.pinterest').length) { if (p.data('media')) { $($(this).find('.pinterest')[0]).data({ 'media': p.data('media') } ); } else $($(this).find('.pinterest')[0]).remove(); } } ); $('.social-likes').socialLikes({ zeroes: 0 } ); } } ); </script> <script type='text/javascript' src='https://ymol.ru/wp-content/plugins/akismet/_inc/form.js?ver=3.2'></script> <script type='text/javascript' src='https://ymol.ru/wp-content/plugins/easy-vkontakte-connect/js/evc-share.js'></script> <script type='text/javascript' src='https://ymol.ru/wp-content/plugins/easy-vkontakte-connect/js/social-likes.min.js?ver=3.0.4'></script> <script type='text/javascript' src='https://ymol.ru/wp-content/plugins/contact-form-7/includes/js/jquery.form.min.js?ver=3.51.0-2014.06.20'></script> <script type='text/javascript' src='https://ymol.ru/wp-content/plugins/contact-form-7/includes/js/scripts.js?ver=4.5.1'></script> <script type='text/javascript' src='https://ymol.ru/wp-content/plugins/wp-review/assets/js/main.js?ver=4.0.6'></script> <script type='text/javascript' src='https://ymol.ru/wp-content/themes/sociallyviral/js/customscripts.js?ver=20120212'></script> <script type='text/javascript' src='/wp-includes/js/comment-reply.min.js?ver=4.6.9'></script> <script type='text/javascript' src='/wp-includes/js/wp-embed.min.js?ver=4.6.9'></script> <script>setTimeout( function(){ jQuery.post('/wp-content/plugins/kama-postviews/ajax-request.php',{ meta_id:'1438', view_type:'post_view', relpath:'' } ,function(result){ jQuery('.ajax_views').html(result); } );} , 2000);</script> <script>function lc_get_cookie(name) { var c = document.cookie;if (c.indexOf(name) != -1) { var x = c.indexOf(name)+name.length+1;var y = c.indexOf(";",x);if (y < 0) y = c.length;return decodeURIComponent(c.substring(x,y));} else return "";} if ((d = document.getElementById("commentform")) != null) { e = d.elements;var z = lc_get_cookie("comment_author_email_27b5a291828a105bf783f92a6d070718");if (z != "") e["email"].value = z;z = lc_get_cookie("comment_author_27b5a291828a105bf783f92a6d070718");if (z != "") e["author"].value = z.replace(/\+/g, " ");z = lc_get_cookie("comment_author_url_27b5a291828a105bf783f92a6d070718");if (z != "") e["url"].value = z;} </script></body></html>