Services Web - simple dans delphi 6...
Comment accéder à un service web à 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 création de votre propre, par la vérification de la qualité du Logiciels Exigences Déchaîné. Pour savoir comment accéder à des services web avec SOAP, lisez la suite!
Accéder aux services web à l'aide de SAVON...
En Delphi 6, l'accès à des services web à l'aide de SAVON est très facile avec un ensemble complet de composants dans la palette de Services Web. Dans cet article, je vais vous présenter un exemple simple en Delphi 6 sur la façon d'utiliser les services web.
Un web service est un service destiné à accomplir une tâche spécifique. Il peut, par exemple, la conversion d'une température de Celsius à Fahrenheit, etc., Ces services sont basés sur un langage appelé Web Services Description Language(WSDL). C'est un langage basé 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 température de celsius à fahrenheit, alors vous aurez probablement à l'entrée de la centigrade la température de service. Maintenant que l'entrée est en cours de préparation d'une requête XML et d'être envoyé vers le service web. Ensuite, le service web est d'effectuer la conversion et d'envoyer le résultat vers le client, comme une réponse XML. Toutes ces tâches sont effectuées 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 à Barnes & Noble avec le code ISBN. Vous pouvez trouver le service web à http://www.xmethods.net/detail.html?id=7.
Comment peut-on accéder à ce service web à partir de Dephi 6?
1. Télécharger le fichier WSDL sur votre disque local.
2. L'importation du service web en Delphi
C'est l'une des nouvelles fonctionnalités de Delphi 6. Cliquez sur Nouveau dans la boîte de dialogue sélectionner les WebServices et sélectionnez 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 sélectionnez le fichier WSDL enregistré à partir de votre disque local. Puis Cliquez sur le bouton Générer Une unité fichier sera créé avec le service de détails.
Le contenu de la nouvellement créé/fichier généré sera comme ceci:
Unité 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 unité 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 à l'invocation de la méthode du service web. Créez une nouvelle application et déposer le composant.
un. Définir la WSDLLocation, Sevice, Port propriétés 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 unité.
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.
unité 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
procédure Button1Click(Sender: TObject)
procédure Button2Click(Sender: TObject)
privé
{ Private declarations }
public
{ déclarations Publiques }
fin
var
Form1: TForm1
application
BNQuoteService
{$R *.dfm}
procédure TForm1.Button1Click(Sender: TObject)
var
QuotePrice : Réel
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
procédure TForm1.Button2Click(Sender: TObject)
commencer
Edit1.Clair
Edit2.Clair
Edit1.SetFocus
fin
fin.
Dans l'exemple d'application, j'ai utilisé deux zones d'édition, les deux étiquettes et les THTTPRIO composant.
Profitez-en!!!
Merci.
Magesh.
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.
Services Web - simple dans delphi 6...
By commentfaire
Services Web - simple dans delphi 6... : Plusieurs milliers de conseils pour vous faciliter la vie.