Поддерживаю! Всецело! Пишу на Delphi XE 5
Код:
procedure TForm1.login_btnClick(Sender: TObject);
var res:WideString;
begin
IolaCOM.SetPIN(pin_edt.Text);
try
IolaCOM.ProvDoc(selectkey_combo.Items[selectkey_combo.ItemIndex]);
//
redt_data.Lines.Clear;
redt_data.Lines.Add ('Идентификатор открытого ключа PROP_UNIQUE_NAME = '+IolaCOM.PropDoc(selectkey_combo.Items[selectkey_combo.ItemIndex], PROP_UNIQUE_NAME)) ;
redt_data.Lines.Add('Общепринятое имя (CN) субъекта PROP_SUBJECT_STR = ' +IolaCOM.PropDoc(selectkey_combo.Items[selectkey_combo.ItemIndex], PROP_SUBJECT_STR));
redt_data.Lines.Add ('Общепринятое имя (CN) издателя PROP_ISSUER_STR = ' +IolaCOM.PropDoc(selectkey_combo.Items[selectkey_combo.ItemIndex], PROP_ISSUER_STR));
redt_data.Lines.Add ('Срок (после) годности PROP_VALID_BEFORE = ' +IolaCOM.PropDoc(selectkey_combo.Items[selectkey_combo.ItemIndex], PROP_VALID_BEFORE));
redt_data.Lines.Add ('Срок (до) годности PROP_VALID_AFTER = '+IolaCOM.PropDoc(selectkey_combo.Items[selectkey_combo.ItemIndex], PROP_VALID_AFTER));
redt_data.Lines.Add ('Алгоритм открытого ключа PROP_PUBKEY_ALG = '+IolaCOM.PropDoc(selectkey_combo.Items[selectkey_combo.ItemIndex], PROP_PUBKEY_ALG));
redt_data.Lines.Add ('Использование ключа PROP_KEY_USAGE = ' +IolaCOM.PropDoc(selectkey_combo.Items[selectkey_combo.ItemIndex], PROP_KEY_USAGE));
redt_data.Lines.Add ('Серийный номер PROP_SERIAL_NUMBER = ' +IolaCOM.PropDoc(selectkey_combo.Items[selectkey_combo.ItemIndex], PROP_SERIAL_NUMBER));
redt_data.Lines.Add ('Идентификатор открытого ключа PROP_FILE_NAME = '+IolaCOM.PropDoc(selectkey_combo.Items[selectkey_combo.ItemIndex], PROP_FILE_NAME));
redt_data.Lines.Add ('RDN субъекта PROP_SUBJECT_NAME = '+IolaCOM.PropDoc(selectkey_combo.Items[selectkey_combo.ItemIndex], PROP_SUBJECT_NAME));
redt_data.Lines.Add ('RDN издателя PROP_ISSUER_NAME = '+IolaCOM.PropDoc(selectkey_combo.Items[selectkey_combo.ItemIndex], PROP_ISSUER_NAME));
ShowMessage(IolaCOM.GetLastErrorString);
except
ShowMessage(IolaCOM.GetLastErrorString);
end;
end;
Результат:
Идентификатор открытого ключа PROP_UNIQUE_NAME = 7ec9617a4a8bd764e77baed1dcf66d0069c5d8e6
Общепринятое имя (CN) субъекта PROP_SUBJECT_STR =
Общепринятое имя (CN) издателя PROP_ISSUER_STR = НУЦ РК (RSA)
Срок (после) годности PROP_VALID_BEFORE = 20.05.2014 13:00:39
Срок (до) годности PROP_VALID_AFTER = 20.05.2015 13:00:39
Алгоритм открытого ключа PROP_PUBKEY_ALG =
Использование ключа PROP_KEY_USAGE =
Серийный номер PROP_SERIAL_NUMBER =
Идентификатор открытого ключа PROP_FILE_NAME =
RDN субъекта PROP_SUBJECT_NAME =
RDN издателя PROP_ISSUER_NAME =
Приложение х32. Установлены в системе как х32, так и х64-битные версии библиотеки IolaCOM.dll. Версия обоих: 5.9.0.7
Как быть?
P.S. Я так понимаю вы DLL-ку перекомпилировали (дата изменения 15.08.2014), а DCU-под Delphi нет (дата изменения 06.02.2014), может поэтому они не функционируют?