Foros Club Delphi - Ver Mensaje Individual

TOPX · #2 08-09-2016

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;

-