Просмотр

17.06.2004 15:49:14

Где ошибки? Совсем запутался

Ответов: 2

jet

вот код (Delphi). хочу просмотреть все сертификаты из хранилиша MY
var
hProv : HCRYPTPROV;
hStoreHandle : HCERTSTORE;
CERT_STORE_NAME : array[0..15] of char;
pSignerCert : PCCERT_CONTEXT;
begin
strLCopy(CERT_STORE_NAME,’MY’,3);
hStoreHandle := CertOpenStore(
CERT_STORE_PROV_SYSTEM,
0,
0,
CERT_SYSTEM_STORE_LOCAL_MACHINE,
@CERT_STORE_NAME);

if hStoreHandle<>nil then
pSignerCert:= CertEnumCertificatesInStore(hStoreHandle,,nil);
......
end;
В итоге получаю pSignerCert = nil
где я не прав?

Ответы:

17.06.2004 16:35:24

chip

А не так вот разве надо?

hStoreHandle:=CertOpenSystemStore(nil,"MY");
pCertContext:=CertEnumCertificatesInStore(hStoreHandle,pCertContext);
while pCertContext<>nil do
pCertContext:=CertEnumCertificatesInStore(hStoreHandle,pCertContext);
CertCloseStore(hStoreHandle,0);

17.06.2004 17:17:26

jet

спасибо,стало легче, сертификат нашел