public class Persona {
private String codigo;
private String nombres;
private String edad;
public Persona() {
}
public Persona(String codigo, String nombres, String edad) {
this.codigo = codigo;
this.nombres = nombres;
this.edad = edad;
}
public String escribirXML(){
StringBuilder xml = new StringBuilder();
xml.append("<persona>");
xml.append("<atributos cod='" + this.codigo + "'");
xml.append(" nom='" + this.nombres + "'");
xml.append(" eda='" + this.edad + "'");
xml.append(" />");
xml.append("</persona>");
return xml.toString();
}
}
En el cliente .NET lo leerimos de la siguiente forma. DENTRO DEL EVENTO CLICK DEL BOTON
Dim servicio As New WSOperacionesClient
Dim xmlPersona As String
Dim codigo, nombres, edad As String
xmlPersona = servicio.WMRecuperaPersona
'MsgBox(xmlPersona, MsgBoxStyle.Information, "Mensaje Servidor XML")
Dim docXML As New XmlDataDocument
docXML.LoadXml(xmlPersona)
'------------------------------------------------
'leer Xml para sacar los parametros
'------------------------------------------------
Dim nodoRaiz As XmlElement
nodoRaiz = docXML.DocumentElement
For Each nodoHijo As XmlElement In nodoRaiz.ChildNodes
codigo = nodoHijo.GetAttribute("cod")
nombres = nodoHijo.GetAttribute("nom")
edad = nodoHijo.GetAttribute("eda")
Next
MsgBox(codigo & vbCrLf & nombres & vbCrLf & edad, MsgBoxStyle.Information, "Mensaje Servidor XML")
private String codigo;
private String nombres;
private String edad;
public Persona() {
}
public Persona(String codigo, String nombres, String edad) {
this.codigo = codigo;
this.nombres = nombres;
this.edad = edad;
}
public String escribirXML(){
StringBuilder xml = new StringBuilder();
xml.append("<persona>");
xml.append("<atributos cod='" + this.codigo + "'");
xml.append(" nom='" + this.nombres + "'");
xml.append(" eda='" + this.edad + "'");
xml.append(" />");
xml.append("</persona>");
return xml.toString();
}
}
En el cliente .NET lo leerimos de la siguiente forma. DENTRO DEL EVENTO CLICK DEL BOTON
Dim servicio As New WSOperacionesClient
Dim xmlPersona As String
Dim codigo, nombres, edad As String
xmlPersona = servicio.WMRecuperaPersona
'MsgBox(xmlPersona, MsgBoxStyle.Information, "Mensaje Servidor XML")
Dim docXML As New XmlDataDocument
docXML.LoadXml(xmlPersona)
'------------------------------------------------
'leer Xml para sacar los parametros
'------------------------------------------------
Dim nodoRaiz As XmlElement
nodoRaiz = docXML.DocumentElement
For Each nodoHijo As XmlElement In nodoRaiz.ChildNodes
codigo = nodoHijo.GetAttribute("cod")
nombres = nodoHijo.GetAttribute("nom")
edad = nodoHijo.GetAttribute("eda")
Next
MsgBox(codigo & vbCrLf & nombres & vbCrLf & edad, MsgBoxStyle.Information, "Mensaje Servidor XML")
Comentarios
Publicar un comentario