Работа с библиотекой PKCS 11

var
  DLLHandle: HModule;
  Init: TInitialize;
  GetInfo: TGetCertificateInfo;
  FuncResult: CK_RV;
  MyApi: TPKCS11API;
  Finalize: TC_Finalize;
 
  GetSlotList: C_GetSlotList;
  slotsArray: TPKCS11SlotArray;
  slotObj: TPKCS11Slot;
  OpenSession: C_OpenSession;
  pulCount: CK_ULONG;    // receives number of slots
 
  slotID: CK_SLOT_ID;
  MySlotList:array of CK_SLOT_ID;
  i: integer;
 
//  info: CK_SLOT_INFO;
  flags: cardinal;
  phSession: CK_SESSION_HANDLE;
  pApplication: CK_VOID_PTR;
  Notify: CK_NOTIFY;
 
  // Дескриптор Сессии
  certificate: CK_OBJECT_HANDLE;
  certificateInfo: AnsiString;
  certificateInfoLength: CK_ULONG;
 
  //Поиск объектов
  FindObjectsInit: C_FindObjectsInit;
  pTemplate: CK_ATTRIBUTE_PTR;  // attribute values to match
  ulCount: CK_ULONG;
  FindObjects: C_FindObjects;
  phObject: array[0..99] of CK_OBJECT_HANDLE;
 
  ulObjectCount: CK_ULONG;
  FindObjectsFin: C_FindObjectsFinal;
  rezult: string;
  J: CK_ULONG;
  GetAttributeValue: C_GetAttributeValue;
  attrStruct: CK_ATTRIBUTE;
  bufferStr: string;
  getCertificateAttribute: TgetCertificateAttribute;
 
  dataType: CK_BYTE;
  MyAttribute: TPKCS11Attribute;
  MyString: WideString;
 
  GetTokenInfo:C_GetTokenInfo;
  tokenInfo:CK_TOKEN_INFO;
try
    // загружаем dll JaCarta динамически
    DLLHandle := loadLibrary('jcPKCS11-2.dll');
    if DLLHandle <> 0 then
    begin
     // получаем адрес функции
     //Инициализация библиотеки
      @Init := getProcAddress(DLLHandle, 'C_Initialize');
      // Лист подключеных токенов
      @GetSlotList := getProcAddress(DLLHandle, 'C_GetSlotList');
      //Открытия сессии с токенном
      @OpenSession := GetProcAddress(DLLHandle, 'C_OpenSession');
      //Отключаемся от библиотеки
      @Finalize := getProcAddress(DLLHandle, 'C_Finalize');
 
      //Получаем информацию о токене
      @GetTokenInfo := GetProcAddress(DLLHandle, 'C_GetTokenInfo');
      //Поиск объектов
      @FindObjectsInit := GetProcAddress(DLLHandle, 'C_FindObjectsInit');
      @FindObjects := GetProcAddress(DLLHandle, 'C_FindObjects');
      @FindObjectsFin := GetProcAddress(DLLHandle, 'C_FindObjectsFinal');
      //Получаем информацию  о сертификате
      @GetAttributeValue := getProcAddress(DLLHandle, 'C_GetAttributeValue');
      //Получаем информацию  о сертификате
      @GetInfo := getProcAddress(DLLHandle, 'getCertificateInfo');
      @getCertificateAttribute := GetProcAddress(DLLHandle, 'getCertificateAttribute');
      // если адрес функции найден
      if addr(@Init) <> nil then
      begin
        FuncResult := Init(nil);  //Инициализируем библиотеку
 
        rezult := MyApi.RVToString(FuncResult);
         //ShowMessage(rezult);
        if FuncResult = CKR_OK then
        try
          if Addr(@GetSlotList) <> nil then
          begin
            FuncResult := GetSlotList(CK_TRUE, nil, @pulCount);
            if (FuncResult = CKR_OK) and (pulCount <> 0) then
            begin
              SetLength(MySlotList,pulCount);
              try
                FuncResult := GetSlotList(CK_TRUE, @MySlotList[0], @pulCount);
                if FuncResult = CKR_OK then
                  SetLength(slotsArray, pulCount);
          
                if Addr(@OpenSession) <> nil then
                begin
                  flags := CKF_SERIAL_SESSION;
                  FuncResult := OpenSession(1, flags, pApplication, Notify, @phSession);
                end;
 
                if Addr(@FindObjectsInit) <> nil then
                  FuncResult := FindObjectsInit(phSession, NULL_PTR, 0);
                if (FuncResult = CKR_OK) and (Addr(@FindObjects) <> nil) then
                  FuncResult := FindObjects(phSession, @phObject, 1, @ulObjectCount);
                if (FuncResult = CKR_OK) and (Addr(@FindObjectsFin) <> nil) then
                  FuncResult := FindObjectsFin(phSession);
 
                if Addr(@GetAttributeValue) <> nil then
                begin
                  for J := 0 to ulObjectCount-1 do
                  begin
                    attrStruct.attrType := CKA_ID;
                    //attrStruct.attrType := CKA_OTP_USER_IDENTIFIER;
                    attrStruct.pValue := nil;
                    attrStruct.ulValueLen := 0;
                    FuncResult := GetAttributeValue(phSession, phObject[J], @attrStruct, 1);
                    bufferStr := StringOfChar(#0, attrStruct.ulValueLen);
                    attrStruct.pValue := PChar(bufferStr);
                    FuncResult := GetAttributeValue(phSession, phObject[J], @attrStruct, 1);
                    MyAttribute := TPKCS11Attribute.Create();
                    MyAttribute.AttrStruct := attrStruct;
                    Result := MyAttribute.ValueAsString;
                  end;
                end;
              finally
              end;
            end;
          end;
        finally
          if addr(@Finalize) <> nil then
            FuncResult := Finalize(NULL_PTR);
        end;
      end
      else
        showMessage('Function not exists...');
    end;