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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показано 5 промежуточных версий этого же участника)
Строка 2: Строка 2:
  
 
При добавлении в проект delphi этой библиотеки
 
При добавлении в проект delphi этой библиотеки
 
 
  Component - Import Component... - Import a Type Library
 
  Component - Import Component... - Import a Type Library
 +
[[Файл:16-05-2016 15-09-55.png]]
 +
  
 
у нас появляется файл MSXML2_TLB.pas в котором описан класс CoDOMDocument60
 
у нас появляется файл MSXML2_TLB.pas в котором описан класс CoDOMDocument60
Строка 16: Строка 17:
 
   </size>
 
   </size>
 
  </config>
 
  </config>
 +
 +
который имеет странное имя PurchaseOrder.xml
 +
 +
Для чтения этого файла будем использовать следующую программу ( delphi 10 seattle )
 +
 +
unit Unit1;
 +
 +
interface
 +
 +
uses
 +
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 +
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, MSXML2_TLB, Vcl.StdCtrls;
 +
 +
type
 +
  TForm1 = class(TForm)
 +
    Button1: TButton;
 +
    procedure Button1Click(Sender: TObject);
 +
  private
 +
    { Private declarations }
 +
  public
 +
    { Public declarations }
 +
  end;
 +
 +
var
 +
  Form1: TForm1;
 +
 +
implementation
 +
 +
{$R *.dfm}
 +
 +
procedure TForm1.Button1Click(Sender: TObject);
 +
var
 +
  XMLDoc : DOMDocument60;
 +
  Root : IXMLDOMElement;
 +
begin
 +
  XMLDoc := CoDOMDocument60.Create;
 +
  XMLDoc.load( 'PurchaseOrder.xml' );
 +
  Root := XMLDoc.documentElement;
 +
 +
  ShowMessage( Root.selectSingleNode( 'size/width' ).text);
 +
 +
  Root := nil;
 +
  XMLDoc := nil;
 +
end;
 +
 +
end.
 +
 +
При нажатии на кнопку Button1 программа нам выдаст результат
 +
 +
100px
 +
= Смотрите также =
 +
[[Информация для разработчиков системы фабиус]]

Текущая версия на 11:40, 4 августа 2017

MSXML - это библиотека Microsoft msxml6.dll

При добавлении в проект delphi этой библиотеки

Component - Import Component... - Import a Type Library

16-05-2016 15-09-55.png


у нас появляется файл MSXML2_TLB.pas в котором описан класс CoDOMDocument60

Предположим, у нас есть XML файл

<?xml version="1.0" encoding="utf-8"?>
<config>
  <size>
    <height>500px</height>
    <width>100px</width>
  </size>
</config>

который имеет странное имя PurchaseOrder.xml

Для чтения этого файла будем использовать следующую программу ( delphi 10 seattle )

unit Unit1;
interface
uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, MSXML2_TLB, Vcl.StdCtrls;
type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
 XMLDoc : DOMDocument60;
 Root : IXMLDOMElement;
begin
 XMLDoc := CoDOMDocument60.Create;
 XMLDoc.load( 'PurchaseOrder.xml' );
 Root := XMLDoc.documentElement;
 ShowMessage( Root.selectSingleNode( 'size/width' ).text);
 Root := nil;
 XMLDoc := nil;
end;
end.

При нажатии на кнопку Button1 программа нам выдаст результат

100px

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

Информация для разработчиков системы фабиус