svn/view/NicoVitanD_timeshift1.pas


{***********************************************************************************************************************************}
{                                                                                                                                   }
{                                                                    XML データバインディング                                       }
{                                                                                                                                   }
{         作成日： 2013/01/20 8:47:32                                                                                               }
{       作成元： D:\Dropbox\Delphi-Source\NicoVitanD\Debug\lv120470266_timeshift1.xml                                               }
{   設定ファイルの保管先： D:\Dropbox\Delphi-Source\NicoVitanD\Debug\lv120470266_timeshift1.xdb                                     }
{                                                                                                                                   }
{***********************************************************************************************************************************}

unit NicoVitanD_timeshift1;

interface

uses xmldom, XMLDoc, XMLIntf;

type

{ 前方宣言 }

  IXMLPacketType = interface;
  IXMLChatType = interface;

{ IXMLPacketType }

  IXMLPacketType = interface(IXMLNodeCollection)
    ['{C1B4D82C-5F18-405D-B8EF-0AF2D6656236}']
    { プロパティ参照関数 }
    function Get_Chat(Index: Integer): IXMLChatType;
    { メソッドとプロパティ }
    function Add: IXMLChatType;
    function Insert(const Index: Integer): IXMLChatType;
    property Chat[Index: Integer]: IXMLChatType read Get_Chat; default;
  end;

{ IXMLChatType }

  IXMLChatType = interface(IXMLNode)
    ['{7DC4C283-3141-4F27-9A6B-CAE2FD9AF69B}']
    { プロパティ参照関数 }
    function Get_Thread: Integer;
    function Get_Vpos: Integer;
    function Get_Date: Integer;
    function Get_Date_usec: Integer;
    function Get_Mail: Integer;
    function Get_User_id: UnicodeString;
    function Get_Premium: Integer;
    function Get_Anonymity: Integer;
    function Get_Locale: UnicodeString;
    procedure Set_Thread(Value: Integer);
    procedure Set_Vpos(Value: Integer);
    procedure Set_Date(Value: Integer);
    procedure Set_Date_usec(Value: Integer);
    procedure Set_Mail(Value: Integer);
    procedure Set_User_id(Value: UnicodeString);
    procedure Set_Premium(Value: Integer);
    procedure Set_Anonymity(Value: Integer);
    procedure Set_Locale(Value: UnicodeString);
    { メソッドとプロパティ }
    property Thread: Integer read Get_Thread write Set_Thread;
    property Vpos: Integer read Get_Vpos write Set_Vpos;
    property Date: Integer read Get_Date write Set_Date;
    property Date_usec: Integer read Get_Date_usec write Set_Date_usec;
    property Mail: Integer read Get_Mail write Set_Mail;
    property User_id: UnicodeString read Get_User_id write Set_User_id;
    property Premium: Integer read Get_Premium write Set_Premium;
    property Anonymity: Integer read Get_Anonymity write Set_Anonymity;
    property Locale: UnicodeString read Get_Locale write Set_Locale;
  end;

{ 前方宣言 }

  TXMLPacketType = class;
  TXMLChatType = class;

{ TXMLPacketType }

  TXMLPacketType = class(TXMLNodeCollection, IXMLPacketType)
  protected
    { IXMLPacketType }
    function Get_Chat(Index: Integer): IXMLChatType;
    function Add: IXMLChatType;
    function Insert(const Index: Integer): IXMLChatType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLChatType }

  TXMLChatType = class(TXMLNode, IXMLChatType)
  protected
    { IXMLChatType }
    function Get_Thread: Integer;
    function Get_Vpos: Integer;
    function Get_Date: Integer;
    function Get_Date_usec: Integer;
    function Get_Mail: Integer;
    function Get_User_id: UnicodeString;
    function Get_Premium: Integer;
    function Get_Anonymity: Integer;
    function Get_Locale: UnicodeString;
    procedure Set_Thread(Value: Integer);
    procedure Set_Vpos(Value: Integer);
    procedure Set_Date(Value: Integer);
    procedure Set_Date_usec(Value: Integer);
    procedure Set_Mail(Value: Integer);
    procedure Set_User_id(Value: UnicodeString);
    procedure Set_Premium(Value: Integer);
    procedure Set_Anonymity(Value: Integer);
    procedure Set_Locale(Value: UnicodeString);
  end;

{ グローバル関数 }

function Getpacket(Doc: IXMLDocument): IXMLPacketType;
function Loadpacket(const FileName: string): IXMLPacketType;
function Newpacket: IXMLPacketType;

const
  TargetNamespace = '';

implementation

{ グローバル関数 }

function Getpacket(Doc: IXMLDocument): IXMLPacketType;
begin
  Result := Doc.GetDocBinding('packet', TXMLPacketType, TargetNamespace) as IXMLPacketType;
end;

function Loadpacket(const FileName: string): IXMLPacketType;
begin
  Result := LoadXMLDocument(FileName).GetDocBinding('packet', TXMLPacketType, TargetNamespace) as IXMLPacketType;
end;

function Newpacket: IXMLPacketType;
begin
  Result := NewXMLDocument.GetDocBinding('packet', TXMLPacketType, TargetNamespace) as IXMLPacketType;
end;

{ TXMLPacketType }

procedure TXMLPacketType.AfterConstruction;
begin
  RegisterChildNode('chat', TXMLChatType);
  ItemTag := 'chat';
  ItemInterface := IXMLChatType;
  inherited;
end;

function TXMLPacketType.Get_Chat(Index: Integer): IXMLChatType;
begin
  Result := List[Index] as IXMLChatType;
end;

function TXMLPacketType.Add: IXMLChatType;
begin
  Result := AddItem(-1) as IXMLChatType;
end;

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

{ TXMLChatType }

function TXMLChatType.Get_Thread: Integer;
begin
  Result := AttributeNodes['thread'].NodeValue;
end;

procedure TXMLChatType.Set_Thread(Value: Integer);
begin
  SetAttribute('thread', Value);
end;

function TXMLChatType.Get_Vpos: Integer;
begin
  Result := AttributeNodes['vpos'].NodeValue;
end;

procedure TXMLChatType.Set_Vpos(Value: Integer);
begin
  SetAttribute('vpos', Value);
end;

function TXMLChatType.Get_Date: Integer;
begin
  Result := AttributeNodes['date'].NodeValue;
end;

procedure TXMLChatType.Set_Date(Value: Integer);
begin
  SetAttribute('date', Value);
end;

function TXMLChatType.Get_Date_usec: Integer;
begin
  Result := AttributeNodes['date_usec'].NodeValue;
end;

procedure TXMLChatType.Set_Date_usec(Value: Integer);
begin
  SetAttribute('date_usec', Value);
end;

function TXMLChatType.Get_Mail: Integer;
begin
  Result := AttributeNodes['mail'].NodeValue;
end;

procedure TXMLChatType.Set_Mail(Value: Integer);
begin
  SetAttribute('mail', Value);
end;

function TXMLChatType.Get_User_id: UnicodeString;
begin
  Result := AttributeNodes['user_id'].Text;
end;

procedure TXMLChatType.Set_User_id(Value: UnicodeString);
begin
  SetAttribute('user_id', Value);
end;

function TXMLChatType.Get_Premium: Integer;
begin
  Result := AttributeNodes['premium'].NodeValue;
end;

procedure TXMLChatType.Set_Premium(Value: Integer);
begin
  SetAttribute('premium', Value);
end;

function TXMLChatType.Get_Anonymity: Integer;
begin
  Result := AttributeNodes['anonymity'].NodeValue;
end;

procedure TXMLChatType.Set_Anonymity(Value: Integer);
begin
  SetAttribute('anonymity', Value);
end;

function TXMLChatType.Get_Locale: UnicodeString;
begin
  Result := AttributeNodes['locale'].Text;
end;

procedure TXMLChatType.Set_Locale(Value: UnicodeString);
begin
  SetAttribute('locale', Value);
end;

end.