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

[CrazySoft]

Gracias pude concecta con el cURL, pero estoy en problemas con el XML para enviar estoy revisando como hacer, use muy poco XML, ahora estoy aprendiendo

Empezado por egostar

Te recomiendo que ya tengas un XML formado lo pases a la función DoSendRequest, y claro, las dll que se requieren de cURL en el directorio de la aplicación

Si abres la unidad uSOAP verás la parte donde se agregan los Headers; yo haría algo así

Código Delphi [-] ApiKey := 'ePyJ0eXwiOiJKV1QiLwthbGciOiJIUzUx...........elTokenEsUnaCadenaLarga'; Header := nil; Header := curl_slist_append(Header, 'Accept-Encoding: gzip,deflate'); Header := curl_slist_append(Header, 'SOAPAction: ""'); Header := curl_slist_append(Header, PAnsiChar('apiKey: TokenApi ' + ApiKey)); Header := curl_slist_append(Header, 'Content-Type: text/xml;charset=UTF-8;'); Header := curl_slist_append(Header, 'User-Agent: Apache-HttpClient/4.5.5 (Java/12.0.1)');


Saludos

[[egostar]]

Empezado por CrazySoft

Gracias pude concecta con el cURL,

Excelente

Empezado por CrazySoft

pero estoy en problemas con el XML para enviar estoy revisando como hacer, use muy poco XML, ahora estoy aprendiendo

Para hacer el XML hay varias formas, te recomiendo mires el XML Data Binding.

Saludos

[CrazySoft]

Empezado por egostar

Excelente



Para hacer el XML hay varias formas, te recomiendo mires el XML Data Binding.

Saludos

Gracias, saludos

[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