16.02.2007 15:58:58КриптоПро TSP (COM) + Delphi 5.0 Ответов: 0
Виталий
Добрый день.

Ниже представлены два простейших кода на Delphi.

Практически на всех рабочих станциях эти кода отрабатывают одинаково хорошо, но на клиенте W2003, csp 3.0 и версией 1.0.256.0 файла "C:\Program Files\Common Files\Crypto Pro\Shared\tspcom.dll" (Крипто-Про TSPCOM версии 1.00.0213), код п.1 выполняется нормально, а представленный в пункте 2 выдает устойчивую ошибку (Exception): External exception C06D007E. Причем утилита (tsputil) и скрипты на vbs (с обращениями через COM) успешно выполняются. Помогите, пожалуйста, разобраться в ситуации.

1)
var
oHash:variant;

oHash:=CreateOleObject('CAPICOM.HashedData');

2)
var
oTSPStamp:variant;

oTSPStamp:=CreateOleObject('TSPCOM.TSPStamp');

P.S. TSP Клиент, входящий в состав КриптоПро TSP SDK версии 1.00.0172, воспринимает команду на Delphi oTSPStamp.Import(STSP,iun), а на oTSPStamp.Import(STSP) выдает ошибку (Type mismatch). В версии файла tspcom.dll 1.0.256.0 (новее, чем в SDK), все наоборот oTSPStamp.Import(STSP,iun) выдает ошибку (Type mismatch), а код oTSPStamp.Import(STSP) отрабатывает. Ссылка по этой теме -
http://www.cryptopro.ru/cryptopro/forum/view.asp?q=2264