FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Hola Garada, buenos días.
Muchas gracias por tu ayuda. Es maravillosa. Una duda. Has hecho cambios cambios en el código respecto a la primera versión: DataBlob: CRYPT_BIT_BLOB; por DataBlob: CRYPT_DATA_BLOB; PKCS12_INCLUDE_EXTENDED_PROPERTIES = $0010 por 0 Es que entonces habría que cambiar la función: Código:
function PFXImportCertStore(var pPFX: CRYPT_BIT_BLOB; szPassword: LPCWSTR; dwFlags: DWORD): HCERTSTORE; stdcall; external 'Crypt32.dll'; De todas formas si pongo Código:
function PFXImportCertStore( var pPFX: CRYPT_BIT_BLOB; szPassword: LPCWSTR; dwFlags: DWORD): HCERTSTORE; stdcall; external 'Crypt32.dll'; y cambio el tipo del datablob por un CRYPT_BIT_BLOB me sigue dando un error de "types of actual and formal var parameters must be identical" |
#2
|
|||
|
|||
Hola,
He cambiado el sitio donde declaro la función PFXImportCertStore. Lo he cambiado aquí: Código:
function CryptUIDlgSelectCertificateFromStore(hCertStore: HCERTSTORE; hwnd: HWND; pwszTitle: LPCWSTR; pwszDisplayString: LPCWSTR; dwDontUseColumn: DWORD; dwFlags: DWORD; pvReserved: Pointer): PCCERT_CONTEXT; stdcall; forward; {$NODEFINE CryptUIDlgSelectCertificateFromStore} function PFXImportCertStore( var pPFX: CRYPT_BIT_BLOB; szPassword: LPCWSTR; dwFlags: DWORD): HCERTSTORE; stdcall; external 'Crypt32.dll'; Lo que pasa es que me da otros errores: No me reconoce ni Enter ni Exit del tipo Monitor: Código:
TMonitor.Enter(ARequest); Código:
TMonitor.Exit(ARequest); En dicha unidad: System.Net.HttpClient.Win; |
#3
|
|||
|
|||
Al final he dejado el evento así:
Quería comprobar que existía el archivo del certificado antes de leerlo pero si declaro en el uses Vcl.Forms para que reconozca el objeto Application no me compila. |
#4
|
|||
|
|||
No hay que darlas.
Los cambios viene a que en esa unidad (System.Net.HttpClient.Win) ya viene declarado todo lo que necesitas y que antes estaba en Certhelper o declaradas a mano. PKCS12_INCLUDE_EXTENDED_PROPERTIES es opcional, sólo informa que se quiere importar el certificado con las propiedades extendidas. Este flag sí que no estaba declarado en la unidad y como no afecta al funcionamiento, lo descarté. El resto pues lo comentado, ya está en la unidad sin necesidad de añadir nada al USES. De hecho me extraña que no te diera error por declarar dos veces la función PFXImportCertStore Si tienes que añadir alguna unidad al USES, añádela al principio de la lista para que no afecte a los originales (tendrán preferencia sobre las tuyos) Cita:
|
#5
|
|||
|
|||
Entonces es que supongo que no tenemos el mismo código en la unidad System.Net.HttpClient.Win
En el que tengo yo en el que no aparece por ningún lado la función PFXImportCertStore, como te decía la he tenido que declarar yo y si declaro la unidad Vcl.Forms
me salen errores:
Undeclared identifier: 'Enter' |
#6
|
|||
|
|||
Ok, yo lo he probado en Delphi 11 ya que la 10.4 ya me había caducado.
Es correcto entonces añadir la función a mano. Para el error, cambia Tmonitor por System.Tmonitor |
#7
|
|||
|
|||
ok, muchas gracias.
Con el system me funciona bien. Ahora me piden otra cosa al respecto que me he jodido todo el invento. Poder seleccionar un certificado según un parámetro que se le pasaría al componente HTTPRIO. Si condición elegimos el certificado 1 sino el 2 El problema es que al estar el procedimiento en la unidad System.Net.HttpClient.Win y no en el componente HTTPRIO no puedo pasarle ningún parámetro. He pensado en pasar el procedimiento al evento OnNeedClientCertificate pero los parámetros no son los mismos:
El problema estaría aquí:
|
#8
|
|||
|
|||
Si añades al USES la unidad con el HTTPRIO puedes acceder a él.
Si quieres separarlo, podrías usar el parámetro AnIndex que es numérico y ya lees el certificado que te interese según su valor. |
#9
|
|||
|
|||
El problema es que he creado una clase heredada de THTTPRIO
TMi_HTTPRIO = class(THTTPRIO) Y como envío y recibo varios tipos de XML, voy creando distintos HTTPRIOs para cada tipo de XML que se envía, con lo cual no puedo acceder a él desde System.Net.HttpClient.Win, principalmente porque no sé ni cuál es. Otra cosa, he comentado el procedimiento DoClientCertificateAccepted que he modificado en la unidad System.Net.HttpClient.Win y la aplicación elige el primer certificado que encuentra en el almacén y lo utiliza sin preguntar. O sea que realmente no sé si realiza alguna función. ¿Si desinstalo los certificados que tengo instalados cogerá el certificado que le indico del fichero pfx? De todas formas sin poder seleccionarlo desde esta unidad no me sirve para mucho. Por otra parte si utilizo el evento httWebNodeNeedClientCertificate cómo sé qué certificado tengo en según el parámetro AnIndex. Es decir si tengo varios instalados como sé cuál es cuál. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
acceder a Webservice con certificado de cliente | iMia | Internet | 8 | 13-09-2022 11:20:58 |
Conectar Webservice con httpRio+Certificado | gasal | Internet | 2 | 20-07-2018 17:11:08 |
Como leer un TRemotable que proviene de un webservice | apicito | Internet | 17 | 02-09-2011 22:48:41 |
SOAP POST - Webservice con Certificado y SSL | JXJ | Varios | 5 | 09-05-2011 20:11:08 |
|