Ver Mensaje Individual
  #4  
Antiguo 20-03-2013
JuanPa1 JuanPa1 is offline
Miembro
 
Registrado: may 2006
Posts: 66
Reputación: 18
JuanPa1 Va por buen camino
Efectivamente para poder obtner el XML de respuesta he utilizado el "importador WSDL" de delphi. El enlace al web service es el siguiente:

http://186.3.87.210/SLXWebServicesDe...vice.asmx?WSDL

Ejemplo de requests que le envio desde delphi.

procedure TForm1.Button1Click(Sender: TObject);
var
ServiceToCall : SecureServiceSoap;
Authentication : AuthenticationHeader;

begin

ServiceToCall:=GetSecureServiceSoap(False,'',nil);
Authentication:=AuthenticationHeader.Create;
Authentication.UserName:=Trim('Tecanser.sesa');
Authentication.Password:=Trim('Tecanser.Sesa123');
(HTTPRIO1 as ISOAPHeaders).Send(Authentication);
(HTTPRIO1 as SecureServiceSoap).ConsultarDatosClienteMercadeo(txtidentificacion.Text);

end;

///////////////////////////////////////////////////////////////////////////////////////////////////
En el evento AfterExecute del componente HTTPRIO obtengo el resultado y asigno al componente Memo.

procedure TForm1.HTTPRIO1AfterExecute(const MethodName: String;
SOAPResponse: TStream);

begin
Memo1.Lines.LoadFromStream(SOAPResponse);
end;

Saludos.
Responder Con Cita