26.11.2003 18:00:31CAPICOM & Delphi Ответов: 7
Pavel Pryazhentsev
Помогите пож. примерами. Надо подписать файл. И потом проверить и снять подпись.
Дошел до:
procedure TForm1.Button1Click(Sender: TObject);
var
emp: Olevariant;
MyStore: Store;
Crt : Certificate;
Crts: Certificates;
sf: String;
tt1: longint;
tt: OleVariant;
begin
sf:=’pip@masterbank.ru’;
tt:=sf;
//Store:=CreateOleObject(’CAPICOM.store’);

MyStore:=IStore2(CreateOleObject(’CAPICOM.store’));
MyStore.Open(
CAPICOM_CURRENT_USER_STORE,
’My’,
CAPICOM_STORE_OPEN_READ_ONLY );
tt1:=MyStore.Certificates.Count;
Crts:=ICertificates2(MyStore.Certificates);

Crts:=Crts.Find(CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME,tt,True);
и вот тут всегда получаю nil.
идей куда двигаться дальше увы. нет.
’pip@masterbank.ru’ в Subject’е есть - через cryptoAPI я успешно сертификат получаю ...
Из примеров - только то, что на микрософте лежит, да VBS скрипт ... и все :((
Выручите, а?
Спасибо!
 
Ответы:
29.12.2003 15:31:06Serge Dobridnuk
Рекомендую не связываться с этим CAPICOM, а сразу делать через CRYPTO.API . Будет и быстрее (почти на порядок) и не будет всяких дурных окошек с диалогом на нерусском языке. Примеры обвязок на Delphi могу прислать

Сергей Добриднюк bantik (@) rol.ru
29.12.2003 15:31:28Serge Dobridnuk
Рекомендую не связываться с этим CAPICOM, а сразу делать через CRYPTO.API . Будет и быстрее (почти на порядок) и не будет всяких дурных окошек с диалогом на нерусском языке. Примеры обвязок на Delphi могу прислать

Сергей Добриднюк bantik (@) rol.ru
28.04.2005 12:22:03Diletant
Serge Dobridnuk
Если мож скинте мне тож примеры... а то такая же задача, а сдвигов пока нет... может по вашим примерам разберусь...

заранее спасибо!!!
28.04.2005 12:22:18Diletant
Serge Dobridnuk
Если мож скинте мне тож примеры... а то такая же задача, а сдвигов пока нет... может по вашим примерам разберусь...

заранее спасибо!!!
28.04.2005 12:22:32Diletant
Serge Dobridnuk
Если мож скинте мне тож примеры... а то такая же задача, а сдвигов пока нет... может по вашим примерам разберусь...

заранее спасибо!!!
28.04.2005 12:22:45Diletant
Serge Dobridnuk
Если мож скинте мне тож примеры... а то такая же задача, а сдвигов пока нет... может по вашим примерам разберусь...
заранее спасибо!!!
28.08.2006 9:18:12kure
Поишите в форуме

Например https://www.cryptopro.ru:9443/cryptopro/forum/view.asp?q=745