41 replies to this topic

[egostar]

Crear la Aplicación Servidor:


Crear un nuevo proyecto
 

File, New, Other, WebServices, SOAP Server Application

 

 

En este caso práctico se ha decidido usar ISAPI/NSAPI Dynamic Link Library
 

 

Aceptamos crear la interfase del módulo SOAP
 

 

Agregamos un nuevo WebService y le asignamos un nombre en este ejemplo utilicé wsDemo y asignamos la generación de código que tiene por omisión.
 

 

Delphi nos creará las unidades correspondientes, veamos como se generó la interfase invocable de nuestro proyecto wsDemoIntf.pas
 

 

El siguiente paso es darle forma a las funciones que deseamos utilizar, usaremos operaciones aritméticas básicas (suma, resta, multiplicación y division) y se deben incluir dentro del cuerpo de nuestra interfáz.

Dichas funciones cuentan con dos parámetros de entrada A y B y un retorno, todos de tipo "double". 
 

delphi

{ Invokable interface IwsDemo }
 
unit wsDemoIntf;
 
interface
 
uses InvokeRegistry, Types, XSBuiltIns;
 
type
 
  { Invokable interfaces must derive from IInvokable }
  IwsDemo = interface(IInvokable)
  ['{4C3D382F-31E7-4B42-B7DA-CB48311D7D71}']
    { Methods of Invokable interface must not use the default }
    { calling convention; stdcall is recommended }
 
    function suma(const A,B: double): double; stdcall;
    function resta(const A,B: double): double; stdcall;
    function multiplicacion(const A,B: double): double; stdcall;
    function division(const A,B: double): double; stdcall;
 
  end;
 
implementation
 
initialization
  { Invokable interfaces must be registered }
  InvRegistry.RegisterInterface(TypeInfo(IwsDemo));
 
end.

 
También se ha creado una unidad wsDemoImpl.pas para la implementación de la clase que será invocada, en la cual copiaremos las funciones creadas en la unidad wsDemoIntf.pas
 

delphi

{ Invokable implementation File for TwsDemo which implements IwsDemo }
 
unit wsDemoImpl;
 
interface
 
uses InvokeRegistry, Types, XSBuiltIns, wsDemoIntf;
 
type
 
  { TwsDemo }
  TwsDemo = class(TInvokableClass, IwsDemo)
  public
    function suma(const A,B: double): double; stdcall;
    function resta(const A,B: double): double; stdcall;
    function multiplicacion(const A,B: double): double; stdcall;
    function division(const A,B: double): double; stdcall;
  end;
 
implementation
 
 
{ TwsDemo }
 
function TwsDemo.suma(const A, B: double): double;
begin
 
end;
 
function TwsDemo.resta(const A, B: double): double;
begin
 
end;
 
function TwsDemo.multiplicacion(const A, B: double): double;
begin
 
end;
 
function TwsDemo.division(const A, B: double): double;
begin
 
end;
 
initialization
{ Invokable classes must be registered }
   InvRegistry.RegisterInvokableClass(TwsDemo);
end.

Ahora, solo nos resta escribir el código de las funciones suma, resta, multiplicación y división.
 

delphi

function TwsDemo.suma(const A, B: double): double;
begin
  result := A + B;
end;

delphi

function TwsDemo.resta(const A, B: double): double;
begin
  result := A - B;
end;

delphi

function TwsDemo.multiplicacion(const A, B: double): double;
begin
  result := A * B;
end;

delphi

function TwsDemo.division(const A, B: double): double;
begin
  result := A / B;
end;

Nota: Si alguien se pregunta, que pasará con las excepciones generadas por el divisior cero, es parte del ejercicio, no es un bug  
 
 
Fin Parte I

[egostar]

Crear el directorio virtual de nuestro WebService:

Para realizar esto, ir al Panel de Control, Herramientas Administrativas y abrir el programa Internet Information Services, y crear un directorio virtual dentro de los Sitios Web, Sitio Web Predeterminado, clic derecho del mouse y seleccionar del menu contextual, Nuevo, Directorio Virtual.

Clic en Siguiente y asignamos un Alias a nuestro WebService:

Clic en Siguiente y seleccionamos el directorio que contiene nuestro WebService:

Asignamos los permisos a nuestro directorio virtual, (por omisión no trae seleccionado Ejecutar (ISAPI, CGI), habrá que seleccionarlo para que nuestro directorio funcione correctamente:

Clic en Finalizar y nuestro WebService está listo para ser llamado:

Al llamarlo desde cualquier explorador nos aseguramos que funcione correctamente nuestro WebService:

Fin Parte II

[egostar]

Crear la aplicación cliente que consumirá nuestro WebService:

Creamos un nuevo proyecto (VCL Form Application).

Agregamos el WSDL a nuestro proyecto, File, New, Other, WebServices, WSDL Importer.

Clic en OK y nos mostrará una forma para incluir el URL de nuestro WSDL, para obtener esto podemos abrir nuestro WebServices con el explorador de Internet y clic en WSDL, como se muestra a continuación

La dirección que nos muestra es la que debemos de colocar en la ventana que lo solicita.

Clic en Finish y Delphi nos crea la unidad con la que vamos a poder consumir nuestro WebService.

Ahora solo nos resta generar las llamadas a las funciones, para ello incluimos en nuestro proyecto,

2 Componentes Edit para la captura de datos

1 Componente Label para el Resultado

4 Botones (Suma, Resta, Multiplicación y División)

3 Componentes Label para comentarios.

Nos quedaría algo así:

Ahora, agregamos en nuestro proyecto la unidad IwsDemo1 y generamos el código para cada uno de los botones:

Ejecutamos el proyecto y si todo nos quedo como lo soñamos  nos mostrará los resultados correspondientes a cada operación.

Suma:

Resta:

Multiplicación:

División:

Con eso hemos terminado nuestro ejemplo teórico/práctico, espero que les haya gustado tanto como a mi y sobre todo que sea de utilidad para futuras aplicaciónes donde se requiera de programación multicapa.

Ah, se me olvidaba, la división en cero nos dará una excepción que debemos de manejar, eso se los dejo de tarea .

Salud OS

PD, Disfruten de todo lo que nos proporciona nuestra herramienta, siempre hay algo nuevo que aprender.

[felipe]

Que tal Eliseo, algo que quieras corregir en el mensaje  ... 

Muy buen ejemplo, gracias...

[egostar]

Que tal Eliseo, algo que quieras corregir en el mensaje  ... 

Muy buen ejemplo, gracias...

Gracias amigo, esto es una transcripción del tutorial publicado aquí

Salud OS

PD. Publicado con permiso del autor

Edito: Modifiqué la ruta de este artículo a la nueva bitácora

[felipe]

Claro Eliseo... son derechos de autor 

[Caral]

Hola
Muy bueno amigo, lo voy a probar, se ve sencillo, claro esta muy bien explicado.
Saludos

[egostar]

Hola
Muy bueno amigo, lo voy a probar, se ve sencillo, claro esta muy bien explicado.
Saludos

Asi es amigo, es fácil, solo me falto acotar que esto lo hice en una maquina con Windows XP Profesional, parece que por ahi hay problemas con Vista....

Salud OS

[enecumene]

Excelente Eliseo , pregunta, ¿en vez de usar IIS, puedo trabajar con Apache?.

Saludos.

[egostar]

Excelente Eliseo , pregunta, ¿en vez de usar IIS, puedo trabajar con Apache?.

Saludos.

Pues no sabria decirte, no uso Apache, pero hasta donde entiendo deberia poderse,

¿Alguien en la sala usa Apache que nos pueda ilustar con este asunto? 

Salud OS

[axesys]

No saben como se puede consumir los webservices de un servidor Glassfish desde delphi 2009?

[egostar]

No saben como se puede consumir los webservices de un servidor Glassfish desde delphi 2009?

Vaya, nunca lo habia escuchado, pero buscando vi esto

https://glassfish.de...wsmgmthome.html

Salud OS

[axesys]

Crear los webservices en glassfish si lo puedo hacer. Estos webservices los puedo consumir desde java y .net sin problemas pero en delphi 2009 solo me consume los webservices sin parametros, en cambio cuando mando parametros es como si no mandara nada.

Alguien sabe como consumir los webservices de glassfish usando delphi 2009 con parametros?

[egostar]

No le veo problema, deberia de funcionar con parámetros, ya hiciste un debug en tu aplicación para ver que es lo que envía y que es lo que recupera al y del webservices?

Salud OS

Edito: Puedes mostrarnos que es lo que te deja Delphi en el archivo Intf, me refiero a la interfaz invocable y sus funciones.

Salud OS

[axesys]

Este es el codigo que se genera a partir del wsdl

delphi

unit Hola1;
 
interface
 
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
 
const
  IS_OPTN = $0001;
  IS_UNQL = $0008;
 
 
type
 Hola = interface(IInvokable)
  ['{B73ACEDC-B21B-A805-777D-C86443A1C94A}']
    function  hola(const arg0: string): string; stdcall;
  end;
 
function GetHola(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): Hola;
 
 
implementation
  uses SysUtils;
 
function GetHola(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): Hola;
const
  defWSDL = 'http://localhost:8080/HolaService/Hola?wsdl';
  defURL  = 'http://localhost:8080/HolaService/Hola';
  defSvc  = 'HolaService';
  defPrt  = 'HolaPort';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as Hola);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;
 
 
initialization
  InvRegistry.RegisterInterface(TypeInfo(Hola), 'http://hola/', 'UTF-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(Hola), '');
  InvRegistry.RegisterInvokeOptions(TypeInfo(Hola), ioDocument);
 
end.

Y estos son los xml que se envian y reciben por el webservice

xml

Request
 
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><SOAP-ENV:Header/><SOAP-ENV:Body><hola xmlns="http://hola/"><arg0>Daniel</arg0></hola></SOAP-ENV:Body></SOAP-ENV:Envelope>
 
Response
 
<S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/"><S:Body><ns2:holaResponse xmlns:ns2="http://hola/"><return>Hola: null</return></ns2:holaResponse></S:Body></S:Envelope>

El código del webservice es

delphi

package hola;
 
import javax.ejb.Stateless;
import javax.jws.WebMethod;
import javax.jws.WebService;
 
@WebService
@Stateless(name = "Hola")
public class Hola {
 
	@WebMethod
	public String hola(String param) {
		return "Hola: " + param;
	}
 
}

Me debería regresar "Hola: Daniel" pero regresa "Hola: null"

[Héctor Randolph]

Con respecto a utilizar Apache para los servicios web puedo comentar lo siguiente.

En las versiones 6 y 7 de Delphi, se daba soporte para crear servicios web como módulos de Apache, esto ocurría porque en aquel momento se trabajaba en paralelo con las versiones de Kylix, esto obligaba a dejar abierta una opción para generar los servicios en ambientes multiplataforma. Sin embargo, como sabemos este proyecto quedó suspendido y en las nuevas versiones de Delphi se tiene únicamente la opción de crear servicios web para Windows con la tecnología ISAPI/NSAPI (para Microsoft para IIS), o bien, como un ejecutable CGI.

Si tienes instalado Apache en Windows con soporte para CGI, Puedes crear desde Delphi un servicio web con la opción "CGI-Stand-alone executable". Este ejecutable lo debes colocar en la carpeta que Apache destina para los scripts CGI, le cambias la extensión de EXE a CGI y listo lo puedes utilizar desde el servidor web.

CGI no es la tecnología más recomendada para los servicios web, por cuestiones de rendimiento y seguridad. En este caso sería mejor utilizar ISAPI.

Por otra parte puedes instalar un módulo para ISAP en apache http://httpd.apache..../mod_isapi.html, pero esto es un poquito más complicado.

Saludos

[enecumene]

Muchas gracias Héctor, me ha sido claro y útil tus comentarios. .

Saludos.

[axesys]

Hice la prueba con un webservice de NetWeaver 7.1 y tambien pasa lo mismo que no reconoce el parametro

En cambio si llamo el webservice con Web Service Navigator de NetWeaver los xml enviados y recibidos son diferentes que los de delphi

Parámetros de entrada

delphi

<?xml version="1.0" encoding="utf-8"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <SOAP-ENV:Body>
    <yq1:hola xmlns:yq1="http://demo/">
      <arg0>Daniel</arg0>
    </yq1:hola>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>

Resultado

delphi

<?xml version="1.0" encoding="utf-8"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <SOAP-ENV:Body>
    <ns2:holaResponse xmlns:ns2="http://demo/">
      <return>Hola: Daniel</return>
    </ns2:holaResponse>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>

Alguien tiene idea de como solucionar esto para que funcione desde delphi tambien?

[axesys]

Con el tester de GlassFish estos son los xml enviados y recibidos

SOAP Request

delphi

<?xml version="1.0" encoding="UTF-8"?>
<S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/">
<S:Header/>
<S:Body>
<ns2:hola xmlns:ns2="http://hola/">
<arg0>Daniel</arg0>
</ns2:hola>
</S:Body>
</S:Envelope>

SOAP Response

delphi

<?xml version="1.0" encoding="UTF-8"?>
<S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/">
<S:Body>
<ns2:holaResponse xmlns:ns2="http://hola/">
<return>Hola: Daniel</return>
</ns2:holaResponse>
</S:Body>
</S:Envelope>

[axesys]

Ya me funciono solo habia que cambiar esta linea InvRegistry.RegisterInvokeOptions(TypeInfo(Hola), ioDocument); por esta InvRegistry.RegisterInvokeOptions(TypeInfo(Hola), ioDefault); y ya me regresa correctamente "Hola: Daniel"