13.04.2004 16:31:45Help!!! Ответов: 0
Дмитрий
Добрый день!
Только начинаю работать с CryptoPro,
делаю пример и то не проходит, ошибка
задания параметров (87), посмотрите, что не так делаю:

if not CryptGetProvParam(hProv, PP_VERSION, (@vers), @DataLen, CRYPT_FIRST) then
begin //PP_VERSION PP_NAME @impType PP_IMPTYPE
case int64(GetLastError) of
ERROR_INVALID_HANDLE: err := ’ERROR_INVALID_HANDLE’;
ERROR_INVALID_PARAMETER: err := ’ERROR_INVALID_PARAMETER’;
ERROR_MORE_DATA: err := ’ERROR_MORE_DATA’;
ERROR_NO_MORE_ITEMS: err := ’ERROR_NO_MORE_ITEMS’;
NTE_BAD_FLAGS: err := ’NTE_BAD_FLAGS’;
NTE_BAD_TYPE: err := ’NTE_BAD_TYPE’;
NTE_BAD_UID: err := ’NTE_BAD_UID’;
else err := ’Unknown error’;
end;
MessageDlg(’Ошибка возврата параметров криптопровайдера: ’ + err, mtError, [mbOK], 0);
exit
end;