CertFindCertificateInStore && CryptApi v.2

← →
savva © (2002-05-20 14:12) [0]

Недавно столкнулся с проблемой, что функция CertFindCertificateInStore из crypt32.dll в Delphi 6 работает мягко говоря не правильно... Этот вывод был мной сделан на основе следующих соображений: код скомпилированный в С++ Builder 6
HANDLE hLib= LoadLibrary ("CRYPT32.dll"); if (hLib){ (void*)proc=GetProcAddress(hLib,"CertFindCertificateInStore"); if (proc) if (pSignerCert=proc(hStoreHandle, MY_TYPE, 0, CERT_FIND_SUBJECT_STR, SIGNER_NAME, NULL )) { printf("Сертификат найден.\n"); } else { HandleError("Сертификат не найден."); } else printf("Error GetProcAddress"); }else printf("Error LoadLibrary");
дает указатель на сертификат pSignerCert!=NULL, в то время как код на паскале
hLib:= LoadLibrary (CRYPT32); if hLib <>0 then begin @proc:=GetProcAddress(hLib,"CertFindCertificateInStore"); if @proc<>nil then pSignerCert:=proc(hStoreHandle, MY_TYPE, 0, CERT_FIND_SUBJECT_STR, PChar(SIGNER_NAME), nil ) else Writeln("Error GetProcAddress"); end else Writeln("Error LoadLibrary"); дает указатель на сертификат равный nil

P.S. Если кого то смущает подобный код - это не от сладкой жизни... Мне надо выяснить причины столь важного различия.. Поэтому все руками приходится делать.. Может я кривой?? :)

← →
savva © (2002-05-20 14:14) [1]

да, забыл вопрос :))
Может кто подскажет пути разрешения? или объяснение этому всему??

CertFindCertificateInStore && CryptApi v.2 Найти похожие ветки