21 respuestas en este tema

[FELIX]

Saludos.
Tengo problemas nuevamente, me pueden explicar como asociar los datos que vienen de un servicio web a un datasource o algun otro componente de delphi, nunca habia hecho esto y no tengo idea de como hacerlo  .
                                                               

[felipe]

Hola, ¿podrías ser un poco más específico en tu inquietud?, por ejemplo, ¿cómo hiciste el servicio web?


Saludos!

[FELIX]

anteriormente llamba los datos con un query y a su vez estos estaban asociados a un datasource y a un dbgrid, pero ahora deben conectarse a un servicio web que contiene los datos.

debo crear la aplicacion cliente que consulira el servicio web   

[egostar]

Hola FELIX,

Te deben dar la url del wsdl para que puedas extraer las clases y métodos, después con el WSDL Importer de Delphi, creas la unidad que te permitirá consumir el servicio web.

Puedes tomar como base el tutorial de webservice que tenemos y puedes buscar la palabra CURL donde también vas a poder encontrar otra alternativa excelente para consumir webservices.

Saludos

[FELIX]

Gracias Egostar por tu respuesta, hice la conexion como decia en los tutoriales pero al consumir el servicio me sale un error.

empty soap body with no child element not supported for rpc

[egostar]

Hola

Pues ese error es porque el cuerpo del SOAP no contiene elementos, puede ser que no estés llenando los campos en tu REQUEST o que el retorno del Servicio Web no regresa datos asunto que no me "cuadra".

Si puedes mostrarnos el código de como estás "llenando" la petición podriamos ayudarte mejro.

Saludos

[FELIX]

este es mi codigo donde estoy consumiendo el servicio.

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,DatosWSImpl, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    servicio_web : DatosWS;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var strXml: datosVOArray;
begin
  servicio_web:=GetDatosWS(True);
  strXml:=servicio_web.buscarDatos;//aqui se produce el error
end;
 
end.

[egostar]

Hola

¿ Que tipo de dato es datosVOArray ?

Salud OS

[FELIX]

Cuando se implemento el proceso con el WSDL Importer el autoamticamente lo creo de esta forma.

datosVOArray = array of datosVO;

y datosVO esta implementado asi:

datosVO = class(TRemotable)

[egostar]

Cuando se implemento el proceso con el WSDL Importer el autoamticamente lo creo de esta forma.

datosVOArray = array of datosVO;

y datosVO esta implementado asi:

datosVO = class(TRemotable)

Muy bien, ya veo el problema, no puedes acceder al Arreglo de datos de forma lineal, mira éste hilo que te va a decir como recibir los datos de un Array of TRemotable

Salud OS

[FELIX]

Gracias por todo Egostar ya estoy comprendiendo este tema un poco mas, revisare el hilo que me recomendaste y estare comentando como me fue 

[egostar]

Gracias por todo Egostar ya estoy comprendiendo este tema un poco mas, revisare el hilo que me recomendaste y estare comentando como me fue 

Perfecto, cualquier duda publícala y con gusto aprendemos juntos

Salud OS

[FELIX]

Hola

Trate de seguir los pasos que me mostro Egostar en un hilo anterior pero no me resulto, no se que estoy haciendo mal al tartar de mostrar los datosme pueden dar otra ayuda.

Saludos.

[FELIX]

Se me olvidaba que estoy con delphi 7, no se si tenga algo que ver

[egostar]

Hola

Trate de seguir los pasos que me mostro Egostar en un hilo anterior pero no me resulto, no se que estoy haciendo mal al tartar de mostrar los datosme pueden dar otra ayuda.

Saludos.

Hola

Es un poco dificil ayudarte si no contamos acceso al webservice, y entiendo que no es algo que puedas publicar libremente, pero, seria bueno que nos mostraras la estructura de la clase datosVO y el código que utilizaste y que no te resultó.

Saludos

[FELIX]

te envio el codigo que hasta ahora tengo

delphi

datosWS = interface(IInvokable)
  ['{87B6C67B-F1BC-6D05-4154-454653E76C62}']
 
  function  buscarDatosActivos: DatosVOArray; stdcall; 
 
[color=red]/*estructura del ws[/color]
DatosVO = class(TRemotable)
private
    FdesDepartamento: WideString;
    FdesMunicipio: WideString;
    Fid: Int64;
public
    constructor Create; override;
    destructor Destroy; override;
published
    property desDepartamento: WideString read FdesDepartamento write FdesDepartamento;
    property desMunicipio: WideString read FdesMunicipio write FdesMunicipio;
    property id: Int64 read Fid write Fid;
 
 
[color=red]/*Procedimiento donde se llama*[/color]
procedure TForm1.Button1Click(Sender: TObject);
var
 Servicio_web:DatosWS;
 strXml: DatosVOArray; 
 i: Integer;
 objCont: DatosVO;
begin
  Servicio_web := GetDatosWS(True);
  strXml := Servicio_web.buscarDatosActivos; [color=red]// Aqui sale el error[/color]
  ClientDataSet1.Open;
  ClientDataSet1.DisableControls;
  for i := 0 to High(strXml)-1 do
  begin
   objCont := strXml[i] As contratoSeguroVO;
   ClientDataSet1.Append;
   ClientDataSet1.FieldByName('idContrato').AsInteger :=  objCont.id;
   ClientDataSet1.FieldByName('municipio').AsString :=  objCont.desMunicipio;
   ClientDataSet1.FieldByName('departamento').AsString :=  objCont.desDepartamento;
   ClientDataSet1.Post;
  end;
  ClientDataSet1.EnableControls;
end;

[enecumene]

Amigo Felix, por favor utiliza las etiquetas que para eso estan

[egostar]

Que error te manda, eso es muy importante para determinar las posibles soluciones.

Saludos

[FELIX]

siempre sale error

delphi

empty soap body with no child element not supported for rpc

.

Consultando en internet dice que puede ser que falte una actualizacion de delphi o algun complemento.

[FELIX]

Ya encontre el problema la solucion la encontre en http://www.delphigro.../5/344488.html] http://www.delphigro...2/5/344488.html.

En datosws reemplaze la linea
  //InvRegistry.RegisterInvokeOptions(TypeInfo(ContratacionWS), ioLiteral);

Por 
  InvRegistry.RegisterInvokeOptions(TypeInfo(ContratacionWS), ioDocument);

Funciono Bien, gracias por todo Egostar con tu ayuda pude comprender muchas cosas