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:
Empezado por isnagil
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';
|