Consumir un Web Service

[lbidi]

Estimados.

Necesito enviar cierta informacion a un web service de otro sistema desarrollado por otra gente.
Me dieron el archivo wsdl el cual he logrado importar con el wizard y me ha la creado unidad correspondiente.

Aparentemente es muy sencillo, tiene solo una funcion para recibir los datos que yo le debo
enviar. He logrado que compile pero no estoy seguro si el archivo estaba bien o si la unidad
que genero esta bien, porque no he podido acceder a su funcion desde otra unidad de mi sistema.

He leido el post de egostar sobre Web services , pero aun asi no he podido hacer que funcionara.

Les dejo el codigo de la unidad que genero el wizard a ver si alguien puede decirme si lo genero
bien o como debo llamar desde mis otras unidades a la funcion que aqui se hace presente.

Código Delphi [-]

unit u_webService;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

const
  IS_OPTN = $0001;
  IS_UNBD = $0002;
  IS_NLBL = $0004;
  IS_UNQL = $0008;
  IS_ATTR = $0010;
  IS_TEXT = $0020;

type

  resultado = interface(IInvokable)
  ['{E215B04D-08B9-A9EF-456D-7550D58C4D38}']

// esta es la funcion que debo utililzar
    function  altaresult(const ErNumLin: Int64; const ResuNumLin: Integer; const ResuDsc: WideString;    const ResuUni: WideString; const ResuVRef: WideString; const ResuVHallado: WideString;
                         const ResuObs: WideString): Integer; stdcall;

  end;

function Getresult(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): resultado;

implementation
  uses SysUtils;

function Getresult(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): resultado;
const
  defWSDL = 'C:\result.wsdl';
  defURL  = 'http://10.5.1.1:8080/WebServiceEstu/services/result';
  defSvc  = 'resultService';
  defPrt  = 'result';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as resultado);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service      := defSvc;
      RIO.Port         := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;


initialization
  InvRegistry.RegisterInterface(TypeInfo(resultado), 'http://logica', 'UTF-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(resultado), '');
  InvRegistry.RegisterInvokeOptions(TypeInfo(resultado), ioDocument);

end.

Se supone que debo utilizar esa funcion y pasarle parametros que el "bendito" web service esta
esperando. Ademas no lo puedo probar, ya que la ip en la cual escucha, esta en mi cliente,
y no se puede acceder desde el exterior.

Se agradece eternamente cualquier ayuda y/o sugerencia.

Saludos.

[[egostar]]

Hola

Pues lo primero que debes tener es acceso a la IP de tu cliente, de otra forma no se puede hacer nada.

Saludos

[lbidi]

Gracias egostar.

Eso por supuesto que lo tengo claro, pero en realidad no busco "probarlo" en mi pc de desarrollo,
sino tratar de hacer el codigo necesario y luego llevarlo al cliente.

Como mencionaba en el post, no he logrado acceder a la funcion "altaresult" desde otras
unidades de mi sistema.

Alguna idea porque ?

Mil gracias.

[[egostar]]

Empezado por lbidi

Gracias egostar.

Eso por supuesto que lo tengo claro, pero en realidad no busco "probarlo" en mi pc de desarrollo,
sino tratar de hacer el codigo necesario y luego llevarlo al cliente.

Como mencionaba en el post, no he logrado acceder a la funcion "altaresult" desde otras
unidades de mi sistema.

Alguna idea porque ?

Mil gracias.

Entiendo, yo haría algo así.

Código Delphi [-]
uses
   u_webService

procedure TForm1.Button1Click(Sender: TObject);
var
  wsResultado: resultado;
  Retorno: integer;
  
begin  
  wsResultado := Getresult(false,'',nil);
  Retorno := wsResultado.alteresult('***parametros***'); //Agregas todos los parámetros que te pide.
  
  if Retorno <> nil then
     showMessage(format('El resultado del método alteresult es %d',[Retorno]));
end;

Saludos

[lbidi]

Mil gracias, egostar.

Realmente ahora me di cuenta como funciona.

Saludos desde Uruguay