{*****************************************************************************}
{                                                                             }
{                           Delphi XML Data Binding                           }
{                                                                             }
{         Generated on:  20 . 11 . 2003   16 : 34 : 22                                    }
{       Generated from: E:\Program Files\Borland\Delphi6\Projects\XML\ 1 .xml   }
{                                                                             }
{*****************************************************************************}
unit XMLwork;

interface

uses xmldom, XMLDoc, XMLIntf;

type

{ Forward Decls }

  IXMLTrafficReportType = interface;
  IXMLFilterType = interface;
  IXMLFilterTypeList = interface;

{ IXMLTrafficReportType }

  IXMLTrafficReportType = interface(IXMLNode)
    ['{A3561C6F-CB26-4793-B158-29865F5AECE2}']
    { Property Accessors }
    function Get_Filter: IXMLFilterTypeList;
    function Get_LastModified: WideString;
    procedure Set_LastModified(Value: WideString);
    { Methods & Properties }
    property Filter: IXMLFilterTypeList read Get_Filter;
    property LastModified: WideString read Get_LastModified write Set_LastModified;
  end;

{ IXMLFilterType }

  IXMLFilterType = interface(IXMLNode)
    ['{0B34646C-E6A2-4725-A6DA-B57F722ED16F}']
    { Property Accessors }
    function Get_Id: WideString;
    function Get_Name: WideString;
    function Get_Sent: WideString;
    function Get_Recv: WideString;
    procedure Set_Id(Value: WideString);
    procedure Set_Name(Value: WideString);
    procedure Set_Sent(Value: WideString);
    procedure Set_Recv(Value: WideString);
    { Methods & Properties }
    property Id: WideString read Get_Id write Set_Id;
    property Name: WideString read Get_Name write Set_Name;
    property Sent: WideString read Get_Sent write Set_Sent;
    property Recv: WideString read Get_Recv write Set_Recv;
  end;

{ IXMLFilterTypeList }

  IXMLFilterTypeList = interface(IXMLNodeCollection)
    ['{75CDD80F-49C6-496C-B7DA-82AB8AFCEF75}']
    { Methods & Properties }
    function Add: IXMLFilterType;
    function Insert(const Index: Integer): IXMLFilterType;
    function Get_Item(Index: Integer): IXMLFilterType;
    property Items[Index: Integer]: IXMLFilterType read Get_Item; default;
  end;

{ Forward Decls }

  TXMLTrafficReportType = class;
  TXMLFilterType = class;
  TXMLFilterTypeList = class;

{ TXMLTrafficReportType }

  TXMLTrafficReportType = class(TXMLNode, IXMLTrafficReportType)
  private
    FFilter: IXMLFilterTypeList;
  protected
    { IXMLTrafficReportType }
    function Get_Filter: IXMLFilterTypeList;
    function Get_LastModified: WideString;
    procedure Set_LastModified(Value: WideString);
  public
    procedure AfterConstruction; override;
  end;

{ TXMLFilterType }

  TXMLFilterType = class(TXMLNode, IXMLFilterType)
  protected
    { IXMLFilterType }
    function Get_Id: WideString;
    function Get_Name: WideString;
    function Get_Sent: WideString;
    function Get_Recv: WideString;
    procedure Set_Id(Value: WideString);
    procedure Set_Name(Value: WideString);
    procedure Set_Sent(Value: WideString);
    procedure Set_Recv(Value: WideString);
  end;

{ TXMLFilterTypeList }

  TXMLFilterTypeList = class(TXMLNodeCollection, IXMLFilterTypeList)
  protected
    { IXMLFilterTypeList }
    function Add: IXMLFilterType;
    function Insert(const Index: Integer): IXMLFilterType;
    function Get_Item(Index: Integer): IXMLFilterType;
  end;

{ Global Functions }

function GetTrafficReport(Doc: IXMLDocument): IXMLTrafficReportType;
function LoadTrafficReport(const FileName: WideString): IXMLTrafficReportType;
function NewTrafficReport: IXMLTrafficReportType;

implementation

{ Global Functions }

function GetTrafficReport(Doc: IXMLDocument): IXMLTrafficReportType;
begin
  Result := Doc.GetDocBinding('TrafficReport', TXMLTrafficReportType) as IXMLTrafficReportType;
end;
function LoadTrafficReport(const FileName: WideString): IXMLTrafficReportType;
begin
  Result := LoadXMLDocument(FileName).GetDocBinding('TrafficReport', TXMLTrafficReportType) as IXMLTrafficReportType;
end;

function NewTrafficReport: IXMLTrafficReportType;
begin
  Result := NewXMLDocument.GetDocBinding('TrafficReport', TXMLTrafficReportType) as IXMLTrafficReportType;
end;

{ TXMLTrafficReportType }

procedure TXMLTrafficReportType.AfterConstruction;
begin
  RegisterChildNode('Filter', TXMLFilterType);
  FFilter := CreateCollection(TXMLFilterTypeList, IXMLFilterType, 'Filter') as IXMLFilterTypeList;
  inherited;
end;

function TXMLTrafficReportType.Get_Filter: IXMLFilterTypeList;
begin
  Result := FFilter;
end;

function TXMLTrafficReportType.Get_LastModified: WideString;
begin
  Result := ChildNodes['LastModified'].Text;
end;

procedure TXMLTrafficReportType.Set_LastModified(Value: WideString);
begin
  ChildNodes['LastModified'].NodeValue := Value;
end;

{ TXMLFilterType }

function TXMLFilterType.Get_Id: WideString;
begin
  Result := AttributeNodes['Id'].Text;
end;

procedure TXMLFilterType.Set_Id(Value: WideString);
begin
  SetAttribute('Id', Value);
end;

function TXMLFilterType.Get_Name: WideString;
begin
  Result := ChildNodes['Name'].Text;
end;

procedure TXMLFilterType.Set_Name(Value: WideString);
begin
  ChildNodes['Name'].NodeValue := Value;
end;

function TXMLFilterType.Get_Sent: WideString;
begin
  Result := ChildNodes['Sent'].Text;
end;

procedure TXMLFilterType.Set_Sent(Value: WideString);
begin
  ChildNodes['Sent'].NodeValue := Value;
end;

function TXMLFilterType.Get_Recv: WideString;
begin
  Result := ChildNodes['Recv'].Text;
end;

procedure TXMLFilterType.Set_Recv(Value: WideString);
begin
  ChildNodes['Recv'].NodeValue := Value;
end;

{ TXMLFilterTypeList }

function TXMLFilterTypeList.Add: IXMLFilterType;
begin
  Result := AddItem(- 1 ) as IXMLFilterType;
end;

function TXMLFilterTypeList.Insert(const Index: Integer): IXMLFilterType;
begin
  Result := AddItem(Index) as IXMLFilterType;
end;

function TXMLFilterTypeList.Get_Item(Index: Integer): IXMLFilterType;
begin
  Result := List[Index] as IXMLFilterType;
end;

end.

unit XML;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ValEdit, StdCtrls, XMLWork;

type
  TfmMain = class(TForm)
    btnParse: TButton;
    sgResult: TStringGrid;
    procedure btnParseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

uses XMLIntf;

{$R *.dfm}

procedure TfmMain.btnParseClick(Sender: TObject);
var
  Rep: IXMLTrafficReportType;
  i: Integer;
begin
  Rep := LoadTrafficReport('1.xml');
  // отрисовка заголовка грида
  sgResult.Cells[ 0 ,  0 ] := 'Id';
  sgResult.Cells[ 1 ,  0 ] := 'Name';
  sgResult.Cells[ 2 ,  0 ] := 'Sent';
  sgResult.Cells[ 3 ,  0 ] := 'Recv';
  // парсинг XML-документа
  for i:=  0  to Rep.Filter.Count -  1  do
    begin
      sgResult.Cells[ 0 , i+ 1 ] := Rep.Filter.Items[i].Id;
      sgResult.Cells[ 1 , i+ 1 ] := Rep.Filter.Items[i].Name;
      sgResult.Cells[ 2 , i+ 1 ] := Rep.Filter.Items[i].Sent;
      sgResult.Cells[ 3 , i+ 1 ] := Rep.Filter.Items[i].Recv;
    end;
  sgResult.Cells[ 0 , i+ 1 ] := Rep.LastModified;
end;
end.