В ДОКУМЕНТАЦИЙ ЯСНО НАПИСАНО HRESULT IByteBuffer::Read(BYTE* pByte, LONG cb, LONG* pcbRead);
В реалий метод Read просит (ref byte pByte, int cb, ref int pcbRead);
И как быть?
]]>Может, что-то неправильно делаю? Если есть какой-то совет, просьба прислать на alessie@ukr.net
Код возвращает 0 считанных байт
Dim Buf As New Byte
Dim pBuf As Byte
pBuf = Buf
Dim bLen As Integer = 4
Dim b1, b2 As Byte
b1 = Convert.ToByte(202)
b2 = Convert.ToByte(129)
Dim card As New UTICCSPLib.utCard
Dim br As Integer
card.AttachByReader("Technotrade uaToken 0", UTICCSPLib.SCARD_SHARE_MODES.SHARED)
Dim cmd As New UTICCSPLib.utCardCmd
cmd.BuildCmd(0, b1, 1, b2, , 4)
card.Transaction(cmd)
cmd.ApduReply.Seek(0, UTICCSPLib.tagSEEKTYPE.SC_SEEK_FROM_BEGINNING)
cmd.ApduReply.Read(pBuf, 4)
И вопросы:
Возможно ли в RTICCSPLib подписаться на событие извлечения токена из ридера?
И программный вопрос - что то не правильно делаю - что понять не могу (написано на VB.Net).
По идее в Buf должено быть содержимое - а его там нет.
В корне ключа файл 0010 длинной 200 байт.
Const READERNAME As String = "Aktiv Co. Rutoken 0"
Dim rtM As New RTICCSPLib.rtManage
Try
rtM.AttachByIFD(READERNAME, SCARD_SHARE_MODES.EXCLUSIVE)
Catch
MessageBox.Show("Ключ защиты не обнаружен! Проверьте вставлен ли ключ в USB порт!", "Ошибка доступа к ключу", MessageBoxButtons.OK, MessageBoxIcon.Error)
Application.Exit()
End Try
Dim Buf As New Byte
Dim ActualyRead As Long
Dim bLen As Integer = 200
Dim UserFile As UInteger
Dim UserBuff As RTICCSPLib.IByteBuffer
Dim rtCFA As New RTICCSPLib.rtCardFileAccess
rtM.CreateFileAccess(rtCFA)
UserFile = rtCFA.Open(REFTYPE.SC_TYPE_BY_ID, "3f000010")
rtCFA.Read(UserFile, bLen , UserBuff, SCARD_FLAGS.SC_FL_NO_FLAGS)
rtCFA.Close(UserFile)
UserBuff.Read(Buf, bLen , ActualyRead)
Отправлено на почту.
про дублируйте пожалуйста,
skykzn@rambler.ru
]]>