Ejemplos de Web Services

Cualquier aplicación puede tener componentes de Web Service.

La creación y programación de Web Services no depende del tipo de lenguaje de programación.

Un ejemplo: ASP.NET Web Service

En este ejemplo, utilizaremos ASP.NET para crear un simple Web Service.

<%@ WebService Language="VB" Class="TempConvert" %>
Imports System
Imports System.Web.Services
Public Class TempConvert : Inherits WebService
<WebMethod()> Public Function FahrenheitToCelsius
(ByVal Fahrenheit Como Int16) Como Int16
	Dim celsius Como Int16 
	celsius = (((Fahrenheit) - 32) / 9) * 5 
	Devolver celsius
Finalizar Función
<WebMethod()> Public Function CelsiusToFahrenheit
(ByVal Celsius Como Int16) Como Int16
	Dim fahrenheit Como Int16
	fahrenheit = (((Celsius) * 9) / 5) + 32 
	Devolver fahrenheit
Finalizar Función
Finalizar Clase

Este documento es un archivo .asmx. Es la extensión de archivo ASP.NET utilizada para XML Web Services.

Para ejecutar este ejemplo, necesitamos un servidor .NET

La primera línea de este documento indica que se trata de un Web Service, escrito en VB, con el nombre de clase "TempConvert".

<%@ WebService Language="VB" Class="TempConvert" %>

Las siguientes líneas de código importan el espacio de nombres "System.Web.Services" del framework .NET.

Imports System
Imports System.Web.Services

La siguiente línea define que la clase "TempConvert" es una clase WebSerivce:

Public Class TempConvert : Inherits WebService

Los siguientes pasos son básicos en programación VB. Esta aplicación tiene dos funciones: una que convierte grados Fahrenheit a Celsius y otra que convierte grados Celsius a Fahrenheit.

La única diferencia con las aplicaciones comunes es que esta función se define como "WebMethod".

Por favor, utilice "WebMethod" para marcar la función en la aplicación que desea convertirse en web services.

<WebMethod()> Public Function FahrenheitToCelsius
(ByVal Fahrenheit Como Int16) Como Int16
	Dim celsius Como Int16 
	celsius = (((Fahrenheit) - 32) / 9) * 5 
	Devolver celsius
Finalizar Función
<WebMethod()> Public Function CelsiusToFahrenheit
(ByVal Celsius Como Int16) Como Int16
	Dim fahrenheit Como Int16
	fahrenheit = (((Celsius) * 9) / 5) + 32 
	Devolver fahrenheit
Finalizar Función

La última cosa que debes hacer es finalizar la función y la clase:

Finalizar Función
Finalizar Clase

Si guardas este archivo como archivo .asmx y lo publicas en un servidor que admite .NET, entonces tienes tu primer Web Service funcional.

Manejo automático de ASP.NET

A través de ASP.NET, no necesitas escribir personalmente los documentos WSDL y SOAP.

Si estudias con atención nuestro ejemplo, notarás que ASP.NET crea automáticamente WSDL y solicitudes SOAP.