acceder a Webservice con certificado de cliente

[iMia]

Como la respuesta era de 2017 y ha llovido un poquito desde entonces, CAPICOM debe haber cambiado de versión y hay cosas que no funcionan.......

Concretamente:

- ya no existe el tipo PCCERT_CONTEXT,
- la excepcion EOleSysError no existe
- ni la función InternetSetOption(

[Garada]

Empezado por iMia

Como la respuesta era de 2017 y ha llovido un poquito desde entonces, CAPICOM debe haber cambiado de versión y hay cosas que no funcionan.......

Concretamente, ya no existe el tipo PCCERT_CONTEXT, ni la función InternetSetOption(

InernetSetOpcion está en WinInet

[iMia]

Empezado por Garada

InernetSetOpcion está en WinInet

Me faltaba el uses de System.Win.ComObj para el EOleSysError

y el uses del WinInet para el InternetSetOption como tu bien has apuntado!


Gracias!

[iMia]

Funcionando....
el último problema lo tenia en la estructura CERT_CONTEXT, pero solo la necesitaba para darle una dimensión máxima, por lo que la he fijado a 1024, más que de sobras para el certificado.
Con eso el WS contesta perfectamente...

gracias a tod@s...

P.D.: Después de unos 4 o 5 años sin hacer nada de WS en Delphi (ni de delphi en 2 años...) me he tenido que poner al dia rapidito...

[Garada]

CERT_CONTEXT tiene un tamaño fijo, usa SizeOf(CERT_CONTEXT) me imagino que es para la llamada a InternetSetOption. Fíjate en los ejemplos.

Por cierto, el que dejé no usa Capicom sino WinCrypt y te ahorras estar instalandola.