Servicios Web - made simple en delphi 6...


¿Cómo podemos acceder a un servicio web desde Delphi?
¿Cómo podemos usar JABÓN componentes en Delphi?

Usted puede aprender los fundamentos de la programación de ordenadores y software de creación de su propio por la salida a la excelente Requisitos de Software Desatado. Para saber cómo acceder a los servicios web con SOAP, leyendo!

el Acceso a los servicios web con SOAP...

En Delphi 6, el acceso a los servicios web con SOAP es muy fácil, con un conjunto completo de componentes de los Servicios Web de la paleta. En este artículo, voy a presentar un ejemplo sencillo en Delphi 6 sobre cómo utilizar los servicios web.

Un servicio web es un servicio que pretende realizar una tarea específica. Podría ser por ejemplo, la conversión de una temperatura de grados Centígrados a Farenheit etc., Estos servicios están basados en un lenguaje denominado Lenguaje de Descripción de Servicios Web(WSDL). Es un lenguaje basado en XML. Usted puede encontrar estos archivos WSDL en http://www.xmethods.net. Hay gran cantidad de servicios web disponibles en ese sitio.

¿Cómo funciona?

Por ejemplo, si desea convertir una temperatura de grados centígrados a farenheit, entonces es probable que la entrada de la centígrados temperatura de servicio. Ahora que de entrada está siendo preparado a partir de una solicitud de XML y de ser enviado a los servicios web. A continuación, el servicio web está realizando la conversión y enviar el resultado al cliente como una respuesta XML. Todas estas tareas son realizadas por el cliente por el WSDL. Esto es sólo una visión amplia sobre su funtionality.

En este artículo, voy a utilizar un servicio web para encontrar un precio de un libro en Barnes & Noble con el código ISBN. Usted puede encontrar el servicio web en http://www.xmethods.net/detail.html?id=7.

¿Cómo podemos acceder a este servicio web de Dephi 6?

1. Descargar el archivo WSDL para su unidad de disco local.
2. Importar el servicio web en Delphi
Esta es una de las nuevas características de Delphi 6. Haga clic en Nuevo y, en el cuadro de diálogo seleccione los WebServices y seleccione la pestaña de Servicios Web Importador. Otro cuadro de diálogo aparecerá. En eso, habrá dos pestañas. En la pestaña Importar, haga clic en examinar y seleccione el archivo WSDL salvado de la unidad de disco local. A continuación, haga Clic en el botón Generar Una unidad de archivo será creado con los detalles del servicio.

El contenido de la recién creada/archivo generado será como este:

Unidad BNQuoteService
interfaz
usa Tipos, XSBuiltIns
tipo
BNQuotePortType = interfaz(IInvokable)
['{A37458FD-F89D-4BDF-BED9-1592153A51CB}']
función getPrice(const isbn: WideString): Sola stdcall
final
aplicación
usa InvokeRegistry
inicialización
InvRegistry.RegisterInterface(TypeInfo(BNQuotePortType), ', ')
final.

Ahora podemos utilizar el función getprice en esta unidad de archivo para encontrar el precio de un libro.

Hay un nuevo componente THTTPRIO bajo el WebSevices Paleta en Delphi 6. Este componente nos ayudará a invocar el método del servicio web. Crear una nueva aplicación y soltar el componente.

un. Establecer el WSDLLocation, Sevice, Puerto de propiedades en el Inspector de Objetos.

Aquí es la aplicación de ejemplo que utiliza el servicio web y encuentra el precio de un libro. En la aplicación de ejemplo agregar esta unidad de archivo.

BNQuotePrj.el dpr
programa BNQuotePrj
usa
Formularios
BNQuote de '../UnitFiles/BNQuote.pas' {Form1},
BNQuoteService de '../WebServicesUnitFiles/BNQuoteService.pas'
{$R *.res}
begin
Aplicación.Inicializar
Aplicación.CreateForm(TForm1, Form1)
Aplicación.Ejecutar
final.
unidad BNQuote
interfaz
usa
Windows, Messages, SysUtils, las Variantes, las Clases, los Gráficos, Controles, Formularios,cuadros de diálogo, StdCtrls, Río, SoapHTTPClient
tipo
TForm1 = clase(TForm)
HTTPRIO1: THTTPRIO
Button1: TButton
Edit1: TEdit
Label1: TLabel
Edit2: TEdit
Label2: TLabel
Button2: TButton
procedimiento Button1Click(Sender: TObject)
procedimiento Button2Click(Sender: TObject)
privada
{ Private declarations }
público
{ Public declarations }
final
var
Form1: TForm1
aplicación
usa BNQuoteService
{$R *.dfm}
procedimiento TForm1.Button1Click(Sender: TObject)
var
QuotePrice : Real
begin
if Trim(Edit1.De texto) <> ' then
begin
QuotePrice := 0
QuotePrice :=(HTTPRIO1 como BNQuotePortType).getPrice(Edit1.De texto)
si QuotePrice <> -1, a continuación,
Edit2.Texto := FloatToStr(QuotePrice)
else
begin
MessageDlg('Mal ISBN Código' #13 'Ingrese una cuenta Válida de código ISBN',mtInformation,[mbOk],0)
Button2.Haga clic en
Edit1.SetFocus
final
final
else
begin
MessageDlg('Ingrese una cuenta Válida de código ISBN',mtInformation,[mbOk],0)
Edit1.SetFocus
final
final

procedimiento TForm1.Button2Click(Sender: TObject)
begin
Edit1.Claro
Edit2.Claro
Edit1.SetFocus
final
final.

En la aplicación de ejemplo he utilizado dos cuadros de edición, dos etiquetas y la THTTPRIO componente.

¡a Disfrutar!!!

Gracias.
Magesh.









Servicios Web - made simple en delphi 6...


Servicios Web - made simple en delphi 6... : Multi-millones de consejos para hacer su vida mas facil.


¿Como podemos acceder a un servicio web desde Delphi?
¿Como podemos usar JABON componentes en Delphi?

Usted puede aprender los fundamentos de la programacion de ordenadores y software de creacion de su propio por la salida a la excelente Requisitos de Software Desatado. Para saber como acceder a los servicios web con SOAP, leyendo!

el Acceso a los servicios web con SOAP...

En Delphi 6, el acceso a los servicios web con SOAP es muy facil, con un conjunto completo de componentes de los Servicios Web de la paleta. En este articulo, voy a presentar un ejemplo sencillo en Delphi 6 sobre como utilizar los servicios web.

Un servicio web es un servicio que pretende realizar una tarea especifica. Podria ser por ejemplo, la conversion de una temperatura de grados Centigrados a Farenheit etc., Estos servicios estan basados en un lenguaje denominado Lenguaje de Descripcion de Servicios Web(WSDL). Es un lenguaje basado en XML. Usted puede encontrar estos archivos WSDL en http://www.xmethods.net. Hay gran cantidad de servicios web disponibles en ese sitio.

¿Como funciona?

Por ejemplo, si desea convertir una temperatura de grados centigrados a farenheit, entonces es probable que la entrada de la centigrados temperatura de servicio. Ahora que de entrada esta siendo preparado a partir de una solicitud de XML y de ser enviado a los servicios web. A continuacion, el servicio web esta realizando la conversion y enviar el resultado al cliente como una respuesta XML. Todas estas tareas son realizadas por el cliente por el WSDL. Esto es solo una vision amplia sobre su funtionality.

En este articulo, voy a utilizar un servicio web para encontrar un precio de un libro en Barnes & Noble con el codigo ISBN. Usted puede encontrar el servicio web en http://www.xmethods.net/detail.html?id=7.

¿Como podemos acceder a este servicio web de Dephi 6?

1. Descargar el archivo WSDL para su unidad de disco local.
2. Importar el servicio web en Delphi
Esta es una de las nuevas caracteristicas de Delphi 6. Haga clic en Nuevo y, en el cuadro de dialogo seleccione los WebServices y seleccione la pestaña de Servicios Web Importador. Otro cuadro de dialogo aparecera. En eso, habra dos pestañas. En la pestaña Importar, haga clic en examinar y seleccione el archivo WSDL salvado de la unidad de disco local. A continuacion, haga Clic en el boton Generar Una unidad de archivo sera creado con los detalles del servicio.

El contenido de la recien creada/archivo generado sera como este:

Unidad BNQuoteService
interfaz
usa Tipos, XSBuiltIns
tipo
BNQuotePortType = interfaz(IInvokable)
['{A37458FD-F89D-4BDF-BED9-1592153A51CB}']
funcion getPrice(const isbn: WideString): Sola stdcall
final
aplicacion
usa InvokeRegistry
inicializacion
InvRegistry.RegisterInterface(TypeInfo(BNQuotePortType), ', ')
final.

Ahora podemos utilizar el funcion getprice en esta unidad de archivo para encontrar el precio de un libro.

Hay un nuevo componente THTTPRIO bajo el WebSevices Paleta en Delphi 6. Este componente nos ayudara a invocar el metodo del servicio web. Crear una nueva aplicacion y soltar el componente.

un. Establecer el WSDLLocation, Sevice, Puerto de propiedades en el Inspector de Objetos.

Aqui es la aplicacion de ejemplo que utiliza el servicio web y encuentra el precio de un libro. En la aplicacion de ejemplo agregar esta unidad de archivo.

BNQuotePrj.el dpr
programa BNQuotePrj
usa
Formularios
BNQuote de '../UnitFiles/BNQuote.pas' {Form1},
BNQuoteService de '../WebServicesUnitFiles/BNQuoteService.pas'
{$R *.res}
begin
Aplicacion.Inicializar
Aplicacion.CreateForm(TForm1, Form1)
Aplicacion.Ejecutar
final.
unidad BNQuote
interfaz
usa
Windows, Messages, SysUtils, las Variantes, las Clases, los Graficos, Controles, Formularios,cuadros de dialogo, StdCtrls, Rio, SoapHTTPClient
tipo
TForm1 = clase(TForm)
HTTPRIO1: THTTPRIO
Button1: TButton
Edit1: TEdit
Label1: TLabel
Edit2: TEdit
Label2: TLabel
Button2: TButton
procedimiento Button1Click(Sender: TObject)
procedimiento Button2Click(Sender: TObject)
privada
{ Private declarations }
publico
{ Public declarations }
final
var
Form1: TForm1
aplicacion
usa BNQuoteService
{$R *.dfm}
procedimiento TForm1.Button1Click(Sender: TObject)
var
QuotePrice : Real
begin
if Trim(Edit1.De texto) <> ' then
begin
QuotePrice := 0
QuotePrice :=(HTTPRIO1 como BNQuotePortType).getPrice(Edit1.De texto)
si QuotePrice <> -1, a continuacion,
Edit2.Texto := FloatToStr(QuotePrice)
else
begin
MessageDlg('Mal ISBN Codigo' #13 'Ingrese una cuenta Valida de codigo ISBN',mtInformation,[mbOk],0)
Button2.Haga clic en
Edit1.SetFocus
final
final
else
begin
MessageDlg('Ingrese una cuenta Valida de codigo ISBN',mtInformation,[mbOk],0)
Edit1.SetFocus
final
final

procedimiento TForm1.Button2Click(Sender: TObject)
begin
Edit1.Claro
Edit2.Claro
Edit1.SetFocus
final
final.

En la aplicacion de ejemplo he utilizado dos cuadros de edicion, dos etiquetas y la THTTPRIO componente.

¡a Disfrutar!!!

Gracias.
Magesh.


Servicios Web - made simple en delphi 6...

Servicios Web - made simple en delphi 6... : Multi-millones de consejos para hacer su vida más fácil.
Recommander aux amis
  • gplus
  • pinterest

Comentario

Dejar un comentario

Clasificación