Статус: Новичок
Группы: Участники
Зарегистрирован: 12.05.2021(UTC) Сообщений: 1
|
Public Function packingBinaryData(ByVal sourceString As String, sThumbprint As String, ByVal bDetached As Boolean) As Byte() Dim oSigner As New CAdESCOM.CPSigner oSigner.Certificate = GetCertificateByThumbprint(sThumbprint) oSigner.Options = CAPICOM_CERTIFICATE_INCLUDE_OPTION.CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN
Dim oSigningTimeAttr As New CAdESCOM.CPAttribute oSigningTimeAttr.Name = CAdESCOM.CADESCOM_ATTRIBUTE.CADESCOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME oSigningTimeAttr.Value = Date.Now oSigner.AuthenticatedAttributes2.Add(oSigningTimeAttr)
Dim oSignedData As New CAdESCOM.CadesSignedData oSignedData.ContentEncoding = CAdESCOM.CADESCOM_CONTENT_ENCODING_TYPE.CADESCOM_BASE64_TO_BINARY oSignedData.DisplayData = CAdESCOM.CADESCOM_DISPLAY_DATA.CADESCOM_DISPLAY_DATA_CONTENT Dim bytes = Text.Encoding.UTF8.GetBytes(sourceString) oSignedData.Content = bytes 'здесь получаю ошибку Dim sSignedMessage = oSignedData.SignCades(oSigner, CAdESCOM.CADESCOM_CADES_TYPE.CADESCOM_CADES_BES, bDetached, CAPICOM.CAPICOM_ENCODING_TYPE.CAPICOM_ENCODE_BASE64) Return sSignedMessage End Function
У меня есть такая функция, при попытке отработать она выдаёт ошибку: Не удалось загрузить файл или сборку "Interop.CAPICOM, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" либо одну из их зависимостей. Не удается найти указанный файл.
at System.StubHelpers.StubHelpers.CreateCustomMarshalerHelper(IntPtr pMD, Int32 paramToken, IntPtr hndManagedType) at CAdESCOM.ICPSignedData5.set_Content(Byte[] pVal) at WorkShop.MarkingAPI.MarkingClient.packingBinaryData(String sourceString, String sThumbprint, Boolean bDetached) in E:\Develop\WorkShop\Parts\Marking\MarkingAPI\MarkingClient.vb:line 210 at WorkShop.MarkingAPI.MarkingClient.Auth() in E:\Develop\WorkShop\Parts\Marking\MarkingAPI\MarkingClient.vb:line 37
Можете подсказать что не так с моим кодом ? Заранее благодарен.
|
|
|
|
Статус: Сотрудник
Группы: Участники
Зарегистрирован: 26.07.2011(UTC) Сообщений: 12,718 Сказал «Спасибо»: 500 раз Поблагодарили: 2053 раз в 1593 постах
|
Цитата:oSignedData.ContentEncoding = CAdESCOM.CADESCOM_CONTENT_ENCODING_TYPE.CADESCOM_BASE64_TO_BINARY oSignedData.DisplayData = CAdESCOM.CADESCOM_DISPLAY_DATA.CADESCOM_DISPLAY_DATA_CONTENT Dim bytes = Text.Encoding.UTF8.GetBytes(sourceString) oSignedData.Content = bytes 'здесь получаю ошибку в Content должна передаваться строка в base64. |
|
|
|
|
Быстрый переход
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.
Important Information:
The Форум КриптоПро uses cookies. By continuing to browse this site, you are agreeing to our use of cookies.
More Details
Close