Текущий архив: 2002.07.25;
Скачать: CL | DM;

Вниз

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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.07.25;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.005 c