WebServices avec Delphi 6 Entreprise

Date de publication : 30/08/2001

Date de mise a jour : 25/07/2004

Par Antony ZANETTI (TeamB-FR) (autres contributions)
 

Les WebServices - Une technologie Client/Serveur révolutionnaire pour Internet

• SOAP: Simple Object Access Protocol qui définit la structure des messages XML utilisés par les applications pour dialoguer entre elles ;
• WSDL: un format de description des méthodes et des paramètres des services invocables par le biais des messages aux formats SOAP.

• HTTPSoapDispatcher1 (THTTPSoapDispatcher), permet de dispatcher les messages entrant vers les composants qui vont traiter les messages ;
• HTTPSoapPascalInvoker1 (THTTPSoapPascalInvoker), permet de convertir les messages SOAP entrants et sortants ;
• WSDLHTMLPublish1 (TWSDLHTMLPublish), permet de publier simplement les services gérés par le serveur.

Unité HelloIntf.pas - Définition de l'interface du service :
unit HelloIntf;

interface

uses
  Types, XSBuiltIns;

type
  IHello = interface(IInvokable)
    ['{AEFF18AD-0C30-4609-BE49-B52933DCA8DE}']
  function SayHello: String; stdcall;     // Une méthode de notre service Hello
  end;

implementation

uses
  InvokeRegistry;

initialization
  InvRegistry.RegisterInterface(TypeInfo(IHello), '', '');

end.

Unité HelloImpl.pas - Implémentation des méthodes de IHello :
unit HelloImpl;

interface

uses
  HelloIntf, InvokeRegistry;

type
  THello = class(TInvokableClass, IHello)
  public
    function SayHello: String; stdcall;
  end;

implementation

{ THello }

function THello.SayHello: String;
begin
  result := 'Hello World!';
end;

initialization
  InvRegistry.RegisterInvokableClass(THello);

end.

Unité Unit2.pas - Interface IHello générée par l'assistant :
Unit Unit2;

interface

uses Types, XSBuiltIns;
type

  IHello = interface(IInvokable)
    ['{271C7063-6D09-4497-9A28-FD55F5ACE45E}']
    function SayHello: WideString;  stdcall;
  end;


implementation

uses InvokeRegistry;

initialization
  InvRegistry.RegisterInterface(TypeInfo(IHello), 'urn:HelloIntf-IHello', '');

end.

• Renseignez la propriété WSDLLocation de HTTPRIO1 avec la même URL que précédement.
• Sélectionnez le service IHelloService dans la liste de la propriété Service de HTTPRIO1.
• Sélectionnez le port du service IHelloPort dans la liste de la propriété Port de HTTPRIO1.

Unité Unit1.pas - Source de la form principale :
uses Unit2; // Unité de l'interface

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage((HTTPRIO1 as IHello).SayHello);
end;

Lidste de mes articles :

Tableau comparatif des fonctionnalités de Delphi 3 à Delphi 7

WebServices avec Delphi 6 Entreprise