var
store: IStore;
certificates: ICertificates;
certificate: ICertificate2;
i: integer;
begin
// Inicializamos la variable
store := CoStore.Create;
// Abrimos el almacén (STORE) que queremos leer.
store.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_MY_STORE, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED or CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED or CAPICOM_STORE_OPEN_EXISTING_ONLY);
// Extraemos los certificados obtenidos.
certificates := Store.Certificates as ICertificates2;
for i:= 1 to certificates.Count do
begin
certificate := IInterface(certificates.Item[i]) as ICertificate2;
// AQUI YA PODEIS TRABAJAR CON LOS VALORES DEL CERTIFICADO.
end;
end;
espero que pueda servirle a alguien.
Saludos y gracias
Publicado:
Jue Ago 26, 2010 7:45 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: SOLUCIONADO
Anuncios
¡¡Estupendo!! nosotros también hemos estado investigando en esa línea de usar CAPICOM, es la mejor opción, sólo es necesaria la librería capicom.dll, necesaria de cara a la instalación de la aplicación en los equipos clientes (o bien instalar el propio software CAPICOM).
Estamos realizando un artículo sobre este asunto, que nos parece bastante interesante.
Muchas gracias por tu aportación.
Publicado:
Vie Ago 27, 2010 10:47 am
JordiP Buen usuario
Registrado: Oct 28, 2009 Mensajes: 12
Asunto:
Alonso, ahora estoy en la siguiente etapa que es utilizar los certificados.
Mi cliente tiene un servidor TCP, hecho en FOX y que utiliza SSL con certificaciones y tengo bastantes dudas de como hacer mi programa "CLIENTE", sobre todo el cómo utilizar los certificados en estas conexiones.
Alguien me puede ayudar ? si pueden darme un ejemplo de los parametros para conectar SSL.
Por sierto utilizo Delphi 2010 y componentes Indy 10
Gracias a todos
Publicado:
Vie Ago 27, 2010 11:41 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto:
En el siguiente enlace hemos publicado un artículo sobre cómo obtener datos de los certificados digitales instalados en el equipo mediante CAPICOM y Delphi:
Buenos días, queria saber si alguien puede ayudarme en la conexión SSL, es decir, conexiones TCP seguras y la posibilidad de trabajar con CERTIFICADOS en la conexión.
Estoy probando, pero no avanzo nada.
Trabajo con delphi 2010 y con componentes INDY 10.
Yo utilizo, n la parte servidora un:
TidTCPServer y un TIdServerIOHandlerSSLOpenSSL
y en la parte del cliente:
TIdTCPClient y un TIdSSLIOHandlerSocketOpenSSL
Se recibe información en OnExecute pero no puedo leerlo, lo intento con ReadLn y con ReadBytes y se queda colgado.
Por favor alguien puede ayudarme, si es posible dadme un ejemplo (Source code) para ver como se hace.
Gracias a todos
Publicado:
Mie Sep 15, 2010 9:03 am
adduartes Usuario
Registrado: Nov 21, 2012 Mensajes: 1
Asunto:
alonsojpd escribió:
En el siguiente enlace hemos publicado un artículo sobre cómo obtener datos de los certificados digitales instalados en el equipo mediante CAPICOM y Delphi:
¡¡¡Gracias!!! Acabo de encontrar el programa ya compilado por vosotros y me va a permitir integrar un buen nivel de seguridad al poder leer los certificados de tarjetas con chip y eDNI.
Perdonad mi ignorancia en DELFI pero ¿Habría alguna manera de generar un ejecutable que, en un solo paso, obtuviera los datos para la exportación (botón central) y guardara en un fichero ("certificados.txt") en el mismo directorio del ejecutable. No sé si sería posible añadir un archivo .ini en el que poder definir esas variables de salida.
La idea sería que junto con una operativa en cuatro pasos actual (ejecutar, lectura del certificado, exportación y salida), se pudiera disponer de una automatizada que se pudiera integrar en otras aplicaciones de manera transparente para el usuario.
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A