Форум: "WinAPI";
Текущий архив: 2002.07.25;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.07.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c