Не корректно работает библиотека KalkanCryptCOMLib в среде 1С 7.7

#1

Пытаюсь работать с библиотекой KalkanCryptCOM32 версия 3.0.2.0 от 13.03.2024. (Регистрировал разные версии)
Зарегистрировал в системе. Все сертификаты установлены

В Excel 2010. и 1С 8.3 Ваши примеры отрабатываю правильно.
Теперь пытаюсь тоже самое сделать в 1С 7.7. Все отрабатывает без ошибки. Но везде дает пустую строку. В чем может быть причина?

Код на 1С 7.7
Функция ПолучитьX509Серитификат(ПутькКлючу, ПарольККлючу)
Перем outCert, Ошибка;
//Алиас = “PKCS12”;

Попытка
    Kalkan     = СоздатьОбъект("KalkanCryptCOMLib.KalkanCryptCOM");
Исключение
    Сообщить("Ошибка создания KalkanCryptCOMLib.KalkanCryptCOM. " + ОписаниеОшибки());
    Возврат 0;
КонецПопытки;

Kalkan.Init();

Результат     = Kalkan.LoadKeyStore(1, ПарольККлючу, ПутькКлючу, ""); //Результат - Пустая строка
Если Результат <> 0 Тогда
    Kalkan.GetLastError(Ошибка); //Ошибка — Пустая строка
    Сообщить("Ошибка загрузки ключей: " + Ошибка);
КонецЕсли;

ВСтатус     = Kalkan.X509ExportCertificateFromStore("", 0, outCert);//outCert - Пустая строка, ВСтатус  — пустая строка

Kalkan.Finalize();

Возврат outCert;

КонецФункции

#2

Привет. Переменные напиши на латинице

#3

То же самое
Код 1С 7.7

Function X509ExportCertificateFromStore(Path, Pass)
Var outCert, err;

Попытка
	KCCOM 	= Createobject("KalkanCryptCOMLib.KalkanCryptCOM");  //
Исключение
	Сообщить("Ошибка создания KalkanCryptCOMLib.KalkanCryptCOM. " + ОписаниеОшибки());
	return 0;
КонецПопытки;

KCCOM.Init();

Result 	= KCCOM.LoadKeyStore(1, Pass, Path, ""); //Результат - не определено
Если ПустоеЗначение(Result ) = 1 Тогда
	KCCOM.GetLastError(err);
	Сообщить("Ошибка загрузки ключей: " + err);	//err - не определено
	//return 0;
КонецЕсли;
//ВСтатус 	= KCCOM.X509LoadCertificateFromFile();

Result 	= KCCOM.X509ExportCertificateFromStore("", 0, outCert);//outCert - не определено, Result - не определено

KCCOM.Finalize();

return outCert;

EndFunction

#4

Добрый день! У Вас все методы так работает? Например, подписывание как работает?

#5

Здравствуйте. Ни один метод не работает. в 1С 7.7 все отрабатывает без ошибки, но все возвращает не определено.

#6

Пробую через MSScriptControl.ScriptControl. Ошибка выполнения Microsoft VBScript: Несоответствие типа: ‘KCCOM.X509ExportCertificateFromStore’

Процедура РаботаЧерезСкриптVbs()
scriptКалкан = СоздатьОбъект(“MSScriptControl.ScriptControl”);
scriptКалкан.Language=“vbscript”;

КодСкрипта = "              
|Dim KCCOM
|Function Initkalkan(storage, pass, pathStore)
|	Dim outCert
|	Dim alias
|	Dim err
|   
|	Set KCCOM = CreateObject(""KalkanCryptCOMLib.KalkanCryptCOM"")
|   KCCOM.Init
|	KCCOM.LoadKeyStore storage, pass, pathStore, """"
|	Set Initkalkan = KCCOM
|End Function
|
|Sub GetSert(outCert)
|	Dim alias
|	Dim err
|	alias = """"
|	err = KCCOM.X509ExportCertificateFromStore (alias, 0, outCert)
|End Sub";

scriptКалкан.AddCode(КодСкрипта);

KalkanCryptCOM 	= scriptКалкан.Run("Initkalkan", storage, СокрЛП(ПарольККлючю), СокрЛП(ПутьККлючу));
outCert	= scriptКалкан.Run("GetSert"); //Выдает ошибку GetSert: Ошибка выполнения Microsoft VBScript: Несоответствие типа: 'KCCOM.X509ExportCertificateFromStore'

КонецПроцедуры

#7

outCert = “”;
scriptКалкан.Run(“GetSert”, outCert);

#8

Тогда, возможно, библиотека не подключена. Надо будет обратитьтя поддержке 1C

#9

Библиотека зарегистрирована. В ваших примерах (Excel, 1с 8.3) отрабатывает четко.
Это что-то с вашей библиотекой калкан. В 1С 7.7, везде возвращает не определено.

#10

1c 7.7 имеет разрядность х32, 1с 8.3 разрядность х64. На другом компьютере зарегистрируй библиотеку х32, если система х64 то регистрация должна быть х32 для систем х64. Проверь работоспособность. На одном сервере два COM объекта с одинаковой разрядностью вроде не возможно использовать, т.к. имена у них одинаковы

1 Симпатия
#11

Здравствуйте. В начале обращения писал: “Пытаюсь работать с библиотекой KalkanCryptCOM32 версия 3.0.2.0 от 13.03.2024. (Регистрировал разные версии)
Зарегистрировал в системе. Все сертификаты установлены…”

Я так и сделал. В начале все библиотеки регистрировал х32 и х64. Потом только х64, затем х32. Везде такая ситуация. Остановился на х64 системе зарегистрировал библиотеку х32 и с ней работал.