Pasar cabezeras a un componente THTTPRIO

[bucanero]

Hola buenas tardes,

Tengo importado un WSDL que accede a algunos de los servicios declarados en un servidor externo (es un servidor de terceros).

Para poder usar dichos servicios es necesario declara ciertas cabeceras en la consulta a nivel de protocolo, necesarias para la validación de usuario.
Aunque estos datos no van incrustados en el propio XML-SOAP que se debe de enviar.

Para que se entienda, con el componente TIdHTTP de las INDY y este código consigo ejecutar el servicio sin ningún "problema",

Código Delphi [-]
  with IdHTTP1 do begin
    with Request.CustomHeaders do begin
      AddValue('X-SOA-SECURITY-APPNAME', SecurityAppName);
      AddValue('X-SOA-GLOBAL-ID', GlobalIDValue);
      AddValue('X-SOA-OPERATION-NAME', OperationName);
    end;
    result := Post(AURLService, XMLStream);
  end;

Pongo lo de problema entre comillas, porque aunque funciona, el propio XML que se le envía con los parámetros tengo que generarlo a mano y luego con los datos que se reciben hay que hacer una operación de conversión de SOAP a OBJECT para asi poder utilizar los datos importados en el WSDL.

La pregunta es, ¿como se puede pasar estos mismos parámetros a un componente de tipo THTTPRIO? y así poder usar directamente los datos importados desde el WSDL

Gracias de antemano y
Un saludo

[TOPX]

Hola buenas tardes,

Se pueden pasar encabezados en el OnBeforePost del HttpRio, eso se acostumbra hacer cuando se pide autenticación por headers.
El siguiente código le puede servir para que se guíe:

Código Delphi [-]
procedure TForm1.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  Encabezado: String;
begin
  Encabezado := 'X-SOA-SECURITY-APPNAME: ' + SecurityAppName);
  HttpAddRequestHeaders(Data, PChar(Encabezado), Length(Encabezado), HTTP_ADDREQ_FLAG_ADD);

  Encabezado := 'X-SOA-GLOBAL-ID: ' + GlobalIDValue);
  HttpAddRequestHeaders(Data, PChar(Encabezado), Length(Encabezado), HTTP_ADDREQ_FLAG_ADD);

  Encabezado := 'X-SOA-OPERATION-NAME: ' + OperationName);
  HttpAddRequestHeaders(Data, PChar(Encabezado), Length(Encabezado), HTTP_ADDREQ_FLAG_ADD);
end;

-

[bucanero]

Hola TOPX, gracias por responder.

Hice algunas pruebas con tu código y ha funcionado estupendamente,
muchas gracias!! :-)