trabajando xmladapter

Hola como estas, revisa
http://www.panoramabox.com/GoPub.aspx?IdObj81

Saludos


________________________
José G. Samper C.
MCAD/MCSD .Net
http://www.FoxyNet.Net


"Angel" escribió en el mensaje
news:

hola, que tal? Os escribo para ver si me podeis ayudar. Mi problema es que
estoy realizando un servicio web xml y necesito saber como a partir de un
archivo con extension .xml enviarlo a otro programa que lo intreprete. Lo
que yo he hecho es:

cRedist=FILETOSTR("myxmlfile.xml")
XMLTOCURSOR(STRconv(cRedist,11),"curCustomer",4)

loxmladapter=createobject("XMLAdapter")
loxmladapter.AddTableSchema("curCustomer")
loxmlAdapter.PreserveWhiteSpace= .T.
loxmladapter.UTF8Encoded=.t.
loxmlAdapter.FormattedOutput=.F.
loxmladapter.ToXML("envio")
loxmlAdapter.ReleaseXML(.f.)

loxmladapter2=createobject("XMLAdapter")
loxmladapter2.LoadXML(envio)
lcAlias=loxmladapter2.tables.Item(1).alias
SELECT (lcAlias)
BROWSE
y me sale el siguiente error:

XML Parse error:node "seller"
xml=<seller><gln>23</gln><postcode>7</postcode>
pude ser por la codificacion del archivo??, o por...?

muchas gracias.un saludo.Angel


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Muchas gracias José, me has ayudado mucho, pero tengo una duda:

Yo tengo un archivo de extension .xml en mi disco duro para realizar
pruebas contra un servicio web instalado en area local, sobre el cual
solo tengo el .dll, .asmx y .config, ademas conozco .xsl y xsd. Este
servicio contiene un metodo: OpConfirma(ConfPedido AS ConfPedido) AS
Respuesta. ¿Que tendria que hacer intercambiar el informacion con él? yo
he pensado hacer:

*Convierte un archivo .xml en una cadena
cRedist=FILETOSTR("EjemploConfPedido.xml")
*se asocia el texto xml con un cursor de Visual Fox
XMLTOCURSOR(STRconv(cRedist,11),"curCustomer",4)
oxmladapter=createobject("XMLAdapter")
WITH oXMLAdapter
.RELEASEXML(.T.) &&& limpiamos el XML por si este objeto fue usado para
interpretar otro xml
.UTF8ENCODED = .F. &&& Colocamos UTF8Encoded en Falso para no tener
problemas con los acentos al momento de interpretar el XML
.ISDIFFGRAM = .F.
llIncludeBefore = .F.
llChangesOnly = .F.
llIsFile = .F.
lcSchemaLocation = ""
*Se añade el cursor al objeto loxmlAdapter
.AddTableSchema("curCustomer")
.TOXML("lcXml",lcSchemaLocation,llIsFile,llIncludeBefore,llChangesOnly)
ENDWITH

Este lcXml enviarselo al metodo ConfPedido.

Espero que me puedas ayudar.Muchas Gracias.Un saludo.Angel.



-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Hola como estas, realmente no entendi muy bien lo que quieres hacer, por lo
que puede enteder tienes un metodo en el Servicio Web que te actualiza
datos. Si es asi, y el Servicio Web recibe un Dataset y te envia un boleano
como respuesta de si o nop, debes enviarle el dataset como string.
Puedes ver estos ejemplos que hacen eso
http://www.panoramabox.com/GoPub.aspx?IdObj26

http://www.panoramabox.com/GoPub.aspx?IdObj89
Para probar el ejemplo del primer en vivo desde internet, puedes usar el Web
Services publicado en internet que se utiliza como ejemplo en el segundo
link

Saludos,


________________________
José G. Samper C.
MCAD/MCSD .Net
http://www.FoxyNet.Net


"Angel" escribió en el mensaje
news:%

Muchas gracias José, me has ayudado mucho, pero tengo una duda:

Yo tengo un archivo de extension .xml en mi disco duro para realizar
pruebas contra un servicio web instalado en area local, sobre el cual
solo tengo el .dll, .asmx y .config, ademas conozco .xsl y xsd. Este
servicio contiene un metodo: OpConfirma(ConfPedido AS ConfPedido) AS
Respuesta. ¿Que tendria que hacer intercambiar el informacion con él? yo
he pensado hacer:

*Convierte un archivo .xml en una cadena
cRedist=FILETOSTR("EjemploConfPedido.xml")
*se asocia el texto xml con un cursor de Visual Fox
XMLTOCURSOR(STRconv(cRedist,11),"curCustomer",4)
oxmladapter=createobject("XMLAdapter")
WITH oXMLAdapter
.RELEASEXML(.T.) &&& limpiamos el XML por si este objeto fue usado para
interpretar otro xml
.UTF8ENCODED = .F. &&& Colocamos UTF8Encoded en Falso para no tener
problemas con los acentos al momento de interpretar el XML
.ISDIFFGRAM = .F.
llIncludeBefore = .F.
llChangesOnly = .F.
llIsFile = .F.
lcSchemaLocation = ""
*Se añade el cursor al objeto loxmlAdapter
.AddTableSchema("curCustomer")
TOXML("lcXml",lcSchemaLocation,llIsFile,llIncludeBefore,llChangesOnly)
ENDWITH

Este lcXml enviarselo al metodo ConfPedido.

Espero que me puedas ayudar.Muchas Gracias.Un saludo.Angel.




PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Muchas gracias José , ya me ha salidooooooo.



PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Hola José como estas, he estado realizando un web service que envia un
objeto XMLDOM como me indicaste la otra vez, pero tengo una duda y es que
si añado al objeto el cursor "curCustomers":

OPEN DATABASE "C:\Archivos de programa\Microsoft Visual FoxPro
8\Samples\Northwindorthwind.dbc"
USE customers
SELECT * ;
FROM customers ;
WHERE country LIKE "Germany%" ;
INTO CURSOR curCustomers

al recibirlo el cliente que operaciones tiene que hacer para visualizar
los datos que se envia en XMLDOM.

muchas gracias,un saludo,Angel

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa