Заполнение структуры CERT_INFO

Как заполнить структуру CERT_INFO данными из сертификата?

 

На Delphi у меня сделано так

Code (Text):

1.  
2.  FCert: PCCERT_CONTEXT;
3. ...
4. constructor TCert.Create(cert_stream: TStream);
5.     var encCertLen: DWORD;// - размер закодированного сертификата
6.         encCert: PByte;// - данные сертификата
7.   begin
8.     //--- Открыть файл и считать его содержимое в буфер.
9.     encCertLen := cert_stream.Size-cert_stream.Position;
10.     encCert := AllocMem(encCertLen);
11.     cert_stream.Read(encCert^,encCertLen);
12.     //--- создать контекст сертификата
13.     FCert:= wcrypt2.CertCreateCertificateContext(PKCS_7_ASN_ENCODING or X509_ASN_ENCODING, encCert, encCertLen);
14.     if FCert = nil then
15.       raise TCryptException.Create(ceOtherCryptError);
16.   end;

 

глючит чего-то у меня, то ли форум, то ли мозилла