forum.clarionlife.net

Странно, что для типа криптопровайдера self.ProviderType = PROV_GOST_2012_256 такая проблема, а для PROV_RSA_AES и его алгоритмов норм.
Значит, типы параметров с точки зрения функций Cryptoapi описаны правильно ? Не нравится значение какого то параметра?

К сожалению, hashlensize вместо hashlen не помог. Да и, вроде, оба Long.

Исходник на С полностью рабочий. Я говорил о программе на Clarion. В кларионовском классе было реализовано через два вызова CryptGetHashParam(). Сначала получаем размер буфера, затем сам Hash. Я попробовал реализовать в кларике, как в С - один вызов CryptGetHashParam(hHash,HP_HASHVAL,ADDRESS(ParamBL...

Как в С сразу получить Hash , без предварительного получения размера, тоже не получается - та же ошибка

#include <stdio.h> #ifdef _WIN32 # include <windows.h> # include <wincrypt.h> #else # include <stdlib.h> #endif #include <WinCryptEx.h> static void HandleError(const char *s); // Начало примера (не следует удалять данный комментарий, он используется // для автоматической сборки документации) //----...

Дед Пахом писал(а): ↑10 Ноябрь 2021, 17:51 А в MSDN написано, что вся эта Crypt api устарела,

Но в С работает )

Нет. При нормальной работе CryptGetHashParam(hHash,HP_HASHSIZE,ADDRESS(HashArr[1]),Hashlensize,0) В HashArr получаем размер буфера и соответственно в hashlen , т.к. HashArr BYTE,DIM(4),over(hashlen) Но в случае ГОСТ алгоритмов, до этого NEW() дело не доходит ) - выхожу по ошибке. Для наглядности убр...

Добрый день! Пытаюсь получить Hash по ГОСТ алгоритму с помощью функций Cryptoapi. Использую CryptoClType класс из: cryptocl.clw cryptocl.inc На 4-ом шаге получаю ошибку 87 - Параметр задан неверно Схематичный порядок действий: Module('advapi32.dll') CryptAcquireContext(*LONG hProv,<*CSTRING Containe...

Спасибо! Все варианты пробовали и не помогают.
В итоге, проблему помог решить пример из документации с использованием другого типа данных TagType = 9

Может, пригодится )

И так не идет.

[03.09.2021 15:13:11.845] [00013684] [DEBUG] TDrvFR Set_TagValueStr: '020

Вообще, если говорить об OLE - то Ваш пример в Excel будет работать не всегда. Если ячейка имеет формат "По значению" - то '020' , будет трансформировано в число 20. Для того, что бы заставить записать именно строку - её нужно передать с апострофом «‘»: Loc:STMP = '`020' CassObject{'TagVa...

Да , это для ФФД 1.2 Со Штрихом активно переписываемся. Они говорят, что проблема в том , что мы не передаем свойству значение типа "Строка". Не представляю другого способа передать значение, чтобы драйвер понял его , как строка. Неужели Clarion так представляет значение, что драйвер Штрих...

Спасибо за совет, но к сожалению, не помогло.

А вы проверяли как чек в ОФД приходит или лог драйвера ? У вас точно '020' передается ?

Может, кто сталкивался с такой проблемой на драйвере ККТ Штрих-М. При передаче числа с лидирующими нулями, как строковую переменную, в драйвер приходит число без лидирующих нулей. CassObject = Create(0,Create:Ole) CassObject{PROP:Create} = 'AddIn.DrvFR' ... CassObject{'TagNumber'} = 1262 CassObject{...

Спасибо! Посмотрю