Visual Basic вылетает с ошибкой при попытке вызова функции из DLL - VB
Формулировка задачи:
сама dll написана на PureBasic
Такой случай наблюдается только при вызове ф-ций возвращающих строки. С числами всё ОК. Я бы переписал имеющиеся в dll строковые функции на VB, но это будет слишком долго и муторно. Скрин ошибки во вложении. Есть какие либо варианты решения?
Решение задачи: «Visual Basic вылетает с ошибкой при попытке вызова функции из DLL»
textual
Листинг программы
Private Declare Function EasyRequester Lib "c:\Purebasic\Compilers\Purebasic.dll" (ByVal Message As String) As Long Private Declare Function EasyString Lib "c:\Purebasic\Compilers\Purebasic.dll" (ByVal Message As String) As Long 'String Private Declare Function lstrcpy Lib "Kernel32.dll" (ByVal MyString As String, ByVal MyLong As Long) As Long Private Sub Command1_Click() Dim Result As Long Dim MyString As String Dim Pointer As Long Result = EasyRequester("Test") MsgBox Str(Result) Pointer = EasyString("Test") MsgBox Str(Pointer) MyString = Space(255) Res = lstrcpy(MyString, Pointer) MsgBox MyString End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д