Services Web - simple dans delphi 6...

Services Web - simple dans delphi 6...

Services Web - simple dans delphi 6... : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment acceder a un service web a partir de Delphi?
Comment pouvons-nous utiliser de SAVON composants de Delphi?

Vous pouvez apprendre les rudiments de la programmation informatique et de logiciels de creation de votre propre, par la verification de la qualite du Logiciels Exigences Dechaîne. Pour savoir comment acceder a des services web avec SOAP, lisez la suite!

Acceder aux services web a l'aide de SAVON...

En Delphi 6, l'acces a des services web a l'aide de SAVON est tres facile avec un ensemble complet de composants dans la palette de Services Web. Dans cet article, je vais vous presenter un exemple simple en Delphi 6 sur la façon d'utiliser les services web.

Un web service est un service destine a accomplir une tache specifique. Il peut, par exemple, la conversion d'une temperature de Celsius a Fahrenheit, etc., Ces services sont bases sur un langage appele Web Services Description Language(WSDL). C'est un langage base sur XML. Vous pouvez trouver ces fichiers WSDL dans http://www.xmethods.net. Il y a beaucoup de ces web services disponibles dans ce site.

Comment ça marche?

Par exemple, si vous voulez convertir une temperature de celsius a fahrenheit, alors vous aurez probablement a l'entree de la centigrade la temperature de service. Maintenant que l'entree est en cours de preparation d'une requete XML et d'etre envoye vers le service web. Ensuite, le service web est d'effectuer la conversion et d'envoyer le resultat vers le client, comme une reponse XML. Toutes ces taches sont effectuees pour le client, par le WSDL. C'est juste une vue d'ensemble sur son funtionality.

Dans cet article, je vais utiliser un service web pour trouver un livre de prix a Barnes & Noble avec le code ISBN. Vous pouvez trouver le service web a http://www.xmethods.net/detail.html?id=7.

Comment peut-on acceder a ce service web a partir de Dephi 6?

1. Telecharger le fichier WSDL sur votre disque local.
2. L'importation du service web en Delphi
C'est l'une des nouvelles fonctionnalites de Delphi 6. Cliquez sur Nouveau dans la boîte de dialogue selectionner les WebServices et selectionnez l'onglet Services Web de l'Importateur. Une autre boîte de dialogue apparaît. En cela, il y aura deux onglets. Dans l'onglet Importer, cliquez sur parcourir et selectionnez le fichier WSDL enregistre a partir de votre disque local. Puis Cliquez sur le bouton Generer Une unite fichier sera cree avec le service de details.

Le contenu de la nouvellement cree/fichier genere sera comme ceci:

Unite BNQuoteService
interface
Types, XSBuiltIns
type
BNQuotePortType = interface(IInvokable)
['{A37458FD-F89D-4BDF-BED9-1592153A51CB}']
fonction getPrice(const isbn: WideString): La seule stdcall
fin
application
InvokeRegistry
initialisation
InvRegistry.RegisterInterface(TypeInfo(BNQuotePortType), ', ')
fin.

Maintenant, nous pouvons utiliser la fonction getprice dans ce fichier unite de trouver le prix du livre.

Il y a un nouveau composant THTTPRIO en vertu de la WebSevices Palette en Delphi 6. Ce composant va nous aider a l'invocation de la methode du service web. Creez une nouvelle application et deposer le composant.

un. Definir la WSDLLocation, Sevice, Port proprietes dans l'Inspecteur d'Objet.

Voici l'exemple d'application qui utilise le service web et trouve le prix du livre. Dans l'exemple d'application ajouter ce fichier unite.

BNQuotePrj.rmr
programme BNQuotePrj

Formes,
BNQuote dans '..\UnitFiles\BNQuote.pas' {Form1},
BNQuoteService dans '..\WebServicesUnitFiles\BNQuoteService.pas'
{$R *.res}
commencer
Application.Initialiser
Application.CreateForm(TForm1, Form1)
Application.Run
fin.
unite BNQuote
interface

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Rio, SoapHTTPClient
type
TForm1 = class(TForm)
HTTPRIO1: THTTPRIO
Button1: TButton
Edit1: TEdit
Label1: TLabel
Edit2: TEdit
Label2: TLabel
Bouton2: TButton
procedure Button1Click(Sender: TObject)
procedure Button2Click(Sender: TObject)
prive
{ Private declarations }
public
{ declarations Publiques }
fin
var
Form1: TForm1
application
BNQuoteService
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject)
var
QuotePrice : Reel
commencer
si la Garniture(Edit1.Texte) < > '
commencer
QuotePrice := 0
QuotePrice :=(HTTPRIO1 comme BNQuotePortType).getPrice(Edit1.Texte)
si QuotePrice <> -1 then
Edit2.Text := FloatToStr(QuotePrice)
else
commencer
MessageDlg('Mauvais ISBN Code' #13 'Enter Valide ISBN code',mtInformation,[bakang],0)
Bouton2.Cliquez sur
Edit1.SetFocus
fin
fin
else
commencer
MessageDlg('Entrez un Valide ISBN code',mtInformation,[bakang],0)
Edit1.SetFocus
fin
fin

procedure TForm1.Button2Click(Sender: TObject)
commencer
Edit1.Clair
Edit2.Clair
Edit1.SetFocus
fin
fin.

Dans l'exemple d'application, j'ai utilise deux zones d'edition, les deux etiquettes et les THTTPRIO composant.

Profitez-en!!!

Merci.
Magesh.