Ayuda con un servicio SOAP de impuestos en Bolivia con TOKEN en delphi

[CrazySoft]

Al añadir todo esto al HEAD, también dejo de dar error al usar HTTPRIO y valido el token correctamente



pero aun tengo problemas en consumo del servicio con HTTPRIO y cURL por causa del XML, que estoy aprendiendo



Gracias por toda la ayuda brindada hasta el momento y seguiré en el proceso

Código Delphi [-]
procedure TForm1.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  auth: string;

begin

  auth := 'Accept-Encoding: gzip,deflate';
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);
  auth := 'SOAPAction: ""';
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);
  auth := PAnsiChar('apiKey: TokenApi ' + Token);
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);
  auth := 'Content-Type: text/xml;charset=UTF-8;';
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);
  auth := 'User-Agent: Apache-HttpClient/4.5.5 (Java/12.0.1)';
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);

end;

[[egostar]]

Empezado por CrazySoft

Al añadir todo esto al HEAD, también dejo de dar error al usar HTTPRIO y valido el token correctamente



pero aun tengo problemas en consumo del servicio con HTTPRIO y cURL por causa del XML, que estoy aprendiendo



Gracias por toda la ayuda brindada hasta el momento y seguiré en el proceso

Código Delphi [-]
procedure TForm1.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  auth: string;

begin

  auth := 'Accept-Encoding: gzip,deflate';
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);
  auth := 'SOAPAction: ""';
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);
  auth := PAnsiChar('apiKey: TokenApi ' + Token);
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);
  auth := 'Content-Type: text/xml;charset=UTF-8;';
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);
  auth := 'User-Agent: Apache-HttpClient/4.5.5 (Java/12.0.1)';
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);

end;

Muy bien, ya aprendimos todos algo nuevo.

Saludos