Здравствуйте, не могу разобраться с получением сообщения об ошибке lpstrErrorMessage из любой функции.
К примеру такой код:
Private Declare Function Connect Lib "TRANS2QUIK.DLL" Alias "TRANS2QUIK_CONNECT" _
(QUIK_DirPath As String, ByRef ExtendedErrorCode As Integer, ByRef lpstrErrorMessage As String,
ByRef ErrorMessageSize As UInteger) As Responses
Public Sub Connect1()
Dim ErrCode As Integer
Dim ErrMsg As String = vbNullString
Dim ErrMsgSz As UInteger
Dim Result As Responses = Connect(QUIK_Path, ErrCode, ErrMsg, ErrMsgSz)
End Sub
Возвращает корректные ответы если не записывает данные в lpstrErrorMessage, но выдаёт исключение "System.AccessViolationException" если библиотека пытается передать lpstrErrorMessage.
Как правильно получать эти сообщения? Заранее спасибо.
Trans2quik 1.3
QUIK 7.12.1.10
Visual Basic .NET
Windows 10 x64
К примеру такой код:
Private Declare Function Connect Lib "TRANS2QUIK.DLL" Alias "TRANS2QUIK_CONNECT" _
(QUIK_DirPath As String, ByRef ExtendedErrorCode As Integer, ByRef lpstrErrorMessage As String,
ByRef ErrorMessageSize As UInteger) As Responses
Public Sub Connect1()
Dim ErrCode As Integer
Dim ErrMsg As String = vbNullString
Dim ErrMsgSz As UInteger
Dim Result As Responses = Connect(QUIK_Path, ErrCode, ErrMsg, ErrMsgSz)
End Sub
Возвращает корректные ответы если не записывает данные в lpstrErrorMessage, но выдаёт исключение "System.AccessViolationException" если библиотека пытается передать lpstrErrorMessage.
Как правильно получать эти сообщения? Заранее спасибо.
Trans2quik 1.3
QUIK 7.12.1.10
Visual Basic .NET
Windows 10 x64