Работа с Xceed Encryption Library

atsv

Всем привет !

Коллеги, нужна помощь.
Есть установленный триальный набор activex компонентов Xceed
Не получается сгенерить приватный и публичный ключи для цифровой подписи. Метод SetRandomKeyPair в абапе не отрабатывает, хотя в VBA аналогичный код работает на ура.

Code:

REPORT  Z_XCEED_TEST.

INCLUDE OLE2INCL.

data
      : go_rsaSigningMethod type ole2_object
      , gv_privateKey       type xstring
      .

CREATE OBJECT go_rsaSigningMethod 'Xceed.RSASigningMethod.1'.

CALL METHOD of go_rsaSigningMethod 'SetRandomKeyPair'
  EXPORTING
    #1 = 1024
    #2 = ''.

if sy-subrc ne 0.
  write: / 'Генерация ключей', sy-subrc color col_negative.
endif.

get property of go_rsaSigningMethod 'PrivateKey' = gv_privateKey.

if sy-subrc ne 0.
  write: / 'Ошибка при получении приватного ключа', sy-subrc color col_negative.
endif.

write: / 'PublicKey:', gv_privateKey.

Ключи не генерятся =(

MantiCore1977

create object отрабатывает? в отладке у go_rsaSigningMethod поля header type заполнены?

atsv

create object проходит нормально, объект инициализируется.
При отладке поля header и type заполнены значениями OBJH и OLE2 соответственно.

Правила форума

Работа с Xceed Encryption Library

Кто сейчас на конференции