Pasar cabezeras a un componente THTTPRIO

[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;

-