David Acuña Guzman Blog

A continuación mostraré como crear y consumir un webservice.

Los datos devueltos por el webservice del ejemplo, son una cadena, un XML de un dataset y, como ejemplo final, un dataset formado por dos tablas, relacionadas entre sí.

Os recomiendo el siguiente link tutorial en portalfox.

Creación de un programa que genera una clase para utilizar como webservice:

* Demostración de creación de webservice

Define Class DemoWebService As Session OlePublic
Procedure XMLHolaTxt(lcMensaje As Character) As Character
* La rutina devuelve un texto plano con el literal Hola Mundo + lo que se le pase como parámetro
lcResultado = “Hola Mundo: “+lcMensaje
Return lcResultado
Endproc
Procedure XMLHolaXML(lcMensaje As Character) As Character
* La rutina devuelve un dataset
Create Cursor tmpRespuesta (campo1 c(10), campo2 N(10))
Insert Into tmpRespuesta (campo1, campo2) Values (lcMensaje, 8)
* Generamos el XML convirtiendo un cursor en XML, ver help de vfp.
Cursortoxml(“tmpRespuesta”, “lcResultado”,1,8,0,”1″)
Return lcResultado
Endproc

Ver la entrada original 269 palabras más

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: