webservices+delphi+xml help

[cirilungol]

Nada siento seguir dando la matraca, pero por lo menos veais lo que intento hacer, o lo que estoy haciendo con el DataBinding

parto de este xml

http://camilovi-heroes.com/gallery.xml


esto es lo que me genera el data Binding, lo solapo a un proyecto uniendo el pas creado, y busco la manera de asignarle otro gallery.xml que no es el original pero tiene la misma estructura.

encuentro esto en el pas del Data Binding

Código PHP:

{ Forward Decls }

  IXMLTiltviewergalleryType = interface;
  IXMLPhotosType = interface;
  IXMLPhotoType = interface;

{ IXMLTiltviewergalleryType }

  IXMLTiltviewergalleryType = interface(IXMLNode)
    ['{419B47F1-8ED4-4F36-B5B7-27757DA445B7}']
    { Property Accessors }
    function Get_Photos: IXMLPhotosType;
    { Methods & Properties }
    property Photos: IXMLPhotosType read Get_Photos;
  end;

{ IXMLPhotosType }

  IXMLPhotosType = interface(IXMLNodeCollection)
    ['{4915F1B3-F52E-410E-B03C-DC05C24BBA44}']
    { Property Accessors }
    function Get_Photo(Index: Integer): IXMLPhotoType;
    { Methods & Properties }
    function Add: IXMLPhotoType;
    function Insert(const Index: Integer): IXMLPhotoType;
    property Photo[Index: Integer]: IXMLPhotoType read Get_Photo; default;
  end;

{ IXMLPhotoType }

  IXMLPhotoType = interface(IXMLNode)
    ['{3B0E616B-38C0-4704-A2A0-4EB1EE1CF783}']
    { Property Accessors }
    function Get_Imageurl: WideString;
    function Get_Linkurl: WideString;
    function Get_ShowFlipButton: WideString;
    function Get_Title: WideString;
    function Get_Description: WideString;
    procedure Set_Imageurl(Value: WideString);
    procedure Set_Linkurl(Value: WideString);
    procedure Set_ShowFlipButton(Value: WideString);
    procedure Set_Title(Value: WideString);
    procedure Set_Description(Value: WideString);
    { Methods & Properties }
    property Imageurl: WideString read Get_Imageurl write Set_Imageurl;
    property Linkurl: WideString read Get_Linkurl write Set_Linkurl;
    property ShowFlipButton: WideString read Get_ShowFlipButton write Set_ShowFlipButton;
    property Title: WideString read Get_Title write Set_Title;
    property Description: WideString read Get_Description write Set_Description;
  end;

{ Forward Decls }

  TXMLTiltviewergalleryType = class;
  TXMLPhotosType = class;
  TXMLPhotoType = class;

{ TXMLTiltviewergalleryType }

  TXMLTiltviewergalleryType = class(TXMLNode, IXMLTiltviewergalleryType)
  protected
    { IXMLTiltviewergalleryType }
    function Get_Photos: IXMLPhotosType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLPhotosType }

  TXMLPhotosType = class(TXMLNodeCollection, IXMLPhotosType)
  protected
    { IXMLPhotosType }
    function Get_Photo(Index: Integer): IXMLPhotoType;
    function Add: IXMLPhotoType;
    function Insert(const Index: Integer): IXMLPhotoType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLPhotoType }

  TXMLPhotoType = class(TXMLNode, IXMLPhotoType)
  protected
    { IXMLPhotoType }
    function Get_Imageurl: WideString;
    function Get_Linkurl: WideString;
    function Get_ShowFlipButton: WideString;
    function Get_Title: WideString;
    function Get_Description: WideString;
    procedure Set_Imageurl(Value: WideString);
    procedure Set_Linkurl(Value: WideString);
    procedure Set_ShowFlipButton(Value: WideString);
    procedure Set_Title(Value: WideString);
    procedure Set_Description(Value: WideString);
  end;

{ Global Functions }

function Gettiltviewergallery(Doc: IXMLDocument): IXMLTiltviewergalleryType;
function Loadtiltviewergallery(const FileName: WideString): IXMLTiltviewergalleryType;
function Newtiltviewergallery: IXMLTiltviewergalleryType; 


Pero desde la unidad Main no encuentro la funcion para poder decirle de que XMl ha de captar los datos.
Y tambien para variar recorrer ese gallery.xml y sacar todos los datos correctamente.

de veras que estoy mas perdido que un piojo en una calva.

Help please