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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.6 из 5
Похожие ответы