REST CLIENT con certificado digital

[keys]

Hola a todos, estoy intentando acceder a un servicio web de la AEAT para el envio de declaraciones. Estoy intentando acceder con los componentes de REST CLIENT (TRESTCLIENT, TRESTREQUEST), y el servicio requiere identificarse con un certificado digital.

No encuentro la forma de indicarle a los componentes el certificado que tienen que utilizar.

Si intento hacer la conexión me sale el error "Unspecified certificate from client". Lógicamente ya que no he indicado el certificado.

Alquien me puede dar una pista. Gracias.

[Casimiro Notevi]

¿Has visto este hilo? puede que te sirva.

[Javierus]

Mírate ésto:
https://forums.embarcadero.com/threa...ssageID=937474

A ver si te sirviese

No hay nada en todo ClubDelohi sobre este tema

[Casimiro Notevi]

Poco, pero algo hay
Es un tema poco preguntado, ciertamente.

[keys]

Lo primero Gracias.

No se trata del SII, se trata de un sistema que ha sacado la AEAT para presentar declaraciones informativas como el 347, 349, 190, etc ..... Hasta ahora solo lo podian utilizar las declaraciones de mas de 40000 declarados, pero ahora se puede por todas las empresas para presentarlas directamente. Por si ha alguien le interesa el link es https://www.agenciatributaria.es/AEA...l/General.html

Básicamente Consiste en enviar peticiones POST a un servidor, pero hay que identificarse con un certificado.

Lo estoy intentando hacer con los componentes TRESTCLIENT ya que son los que normalmente utilizo para esta cosas. Mirando los enlaces que habeis indicado, algunos ya los habia seguido, a partir del delphi Tokio se debe poder hacer con un helper.

TRESTClientHelper = class helper for TCustomRESTClient;

Pero no consigo hacerlo, mas o menos estoy por aqui.

Código Delphi [-]
     TRESTClientHelper = class helper for TCustomRESTClient
  private
    function GetNeedClientCertificateEvent: TNeedClientCertificateEvent;
    procedure SetNeedClientCertificateEvent(
      const Value: TNeedClientCertificateEvent);
  public
    property OnNeedClientCertificate: TNeedClientCertificateEvent read GetNeedClientCertificateEvent write SetNeedClientCertificateEvent;
  end;

Pero no consigo que al hacer el execute me pase por esos eventos.

Con otros componentes como los indy, TnetHttpClient parece que se puede hacer, pero me gustaria hacerlos con estos.

Gracias

[dec]

Hola a todos,

Leyendo sobre los "helpers" aquí y aquí, no me queda claro que sea lo más apropiado para tu caso, puesto que además dices que "no consigues que pase por esos eventos". ¿No deberías utilizar los eventos de la clase en cuestión, sin más? O bien extender la clase, pero, no usando "helpers", de modo que puedas sobreescribir los métodos que te interesen. Ojo, que, tal vez esté equivocado y se pueda hacer con "helpers" tal como estás intentándolo... acaso algún compañero pueda aportar algo más de luz al asunto.

[keys]

El problema es que la clase TRESTCLIENT no tiene esos eventos. Según he podido leer se hace con los helpers.

http://docwiki.embarcadero.com/Libra...STClientHelper

http://docwiki.embarcadero.com/Libra...tHelper_Events