X
xmmpgg
Unregistered / Unconfirmed
GUEST, unregistred user!
我的源代码如下:<br>其中用到的变量和他要求的都一致<br><br> pCertContext:=CertEnumCertificatesInStore(hSysStore,pCertContext);<br> pNewCertContext := CertCreateCertificateContext(MY_ENCODING_TYPE,<br> pCertContext.pbCertEncoded,pCertContext.cbCertEncoded);<br><br> if boolean(pNewCertContext) then<br> begin<br> cbData := pNewCertContext.pCertInfo.Issuer.cbData<br> pbData := pNewCertContext.pCertInfo.Issuer.pbData;<br><br> //就是这里函数出问题了 <br> if CryptDecodeObject(MY_ENCODING_TYPE,X509_NAME,<br> pbData,cbData,CRYPT_DECODE_NOCOPY_FLAG,nil,cbDedata) then<br> begin<br> pbDedata := Allocmem(cbDeData^);<br> if CryptDecodeObject(MY_ENCODING_TYPE,X509_NAME,<br> pbData,cbData,CRYPT_DECODE_NOCOPY_FLAG,pbDedata,cbDedata) then<br> begin<br> //<br> end;<br> end;<br><br> end;<br>