CertFindCertificateInStore && CryptApi v.2 [D6, Win2k]
savva © (2002-05-20 14:12:00)
Недавно столкнулся с проблемой, что функция
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:00) [1]
да, забыл вопрос :))
Может кто подскажет пути разрешения? или объяснение этому
всему??
Наверх 
ЧАТ |
Орешник |
|
