webservices+delphi+xml help

[jhonny]

Empezado por cirilungol

PD: Si genera una unidad... es una unidad fija con ese xml... pero y si quiero cargar otro en ejecucion?... osease como cargar otro dataset con otros datos....

Si tiene la misma estructura debe funcionar sin problema.

[cirilungol]

Testas ganando el cielo jhonny , de todas formas el data binding no me acaba de convercer, ya que por mi desgracia, son varios los xml que me puedo encontrar.

Que podria hacer, para cargar dichos xml

http://camilovi-heroes.com/xml_datos...32_Request.xml
http://camilovi-heroes.com/xml_datos/Response.xml

Hago 2 Databindings, y en codigo les añado los diferentes xml, segun sean response o request?
Pueden ser 100 de tipo Request y otros tantos de tipo Response, pero tambien pueden haber de tipo msn.

.... esa seria la orientacion correcta y final??

Gracias

[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

[cirilungol]

Me voy a contestar a mi mismo, asi tambien puedo empujar un poco con el tema

Código PHP:

procedure TForm1.Button1Click(Sender: TObject);
var
  ListaFotos: IXMLTiltviewergalleryType;
  INodo: Integer;
begin

  ListaFotos:= Loadtiltviewergallery(Edit1.Text);

  with ListaFotos do begin
    for INodo := 0 to Photos.Count -1 do
      mPhoto.Lines.Add(Photos.Photo[INodo].Title);
    //ShowMessage(intToStr(Photos.Count));

  end;


end; 


Edit1.text es la ubicación donde se halla el xml cuya estrcuctura creada coincide con la del Data Binding.

Sigo haciendo pruebas de momento esto me va