Подключить DLL, передать ей команду (строку) и получить ответ

30.08.2011, 10:42. **Показов** 5891. **Ответов** 5

Author24 — интернет-сервис помощи студентам

Добрый день!

Никогда не писал на vba, но понадобилось решить задачу. Сегодня столкнулся с проблемой.
Суть задачи: подключить DLL, передать ей команду (строку) и получить ответ. Обмен строками в utf-8.

Решил действовать в "лоб".
1) Подключил dll, описал функцию.

Visual Basic

1 2	Private Declare Function SendFunc Lib "somelib.dll" _ (ByVal lpMess As Long) As Long

2) Далее стал передовать в функцию

Visual Basic

Dim str As String
Dim pAns As Long
 
str = "some text"
lpAns = SendFunc(StrPtr(str))

Обратно получаю ответ (ответ тоже идет в utf-8), используя: (нашел в интернете)

Visual Basic

Private Function PointerToString(lngPtr As Long) As String
   Dim strTemp As String
   Dim lngLen As Long
 
   If lngPtr Then
      lngLen = lstrlenW(lngPtr) * 2
     If lngLen Then
         strTemp = Space(lngLen)
         CopyMemory strTemp, ByVal lngPtr, lngLen
         PointerToString = Replace(strTemp, Chr(0), "")
      End If
   End If
End Function

В итоге возникает проблема. 1. Библиотека говорит, что посылаемые мною команды неверны, хотя они верные. Я думаю, что это из-за кодировки. 2. Возвращаемое значение читается, но порой "выскакивают" лишние символы. Я думаю, что это тоже из-за кодировки.
Есть ли у вас какие-нибудь идеи? Где копать?
Как правильно преобразовывать строку в указатель и обратно? И как кодировать в utf8?

Добавлено через 2 минуты
Простите за название) Надо было назвать "Строки, указатели и DLL "

@~~Sasha-Smirnov~~ · 30.08.2011, 10:45

Сообщение от farique

Никогда не писал на vba

А почему ваш выбор пал именно на vba?

Visual Basic

1	lpAns = SendFunc(StrPtr(str))

(а объявлена не lpAns, а lpAns)

Про работу с подключением библиотек (кроме как щелчком в редакторе VBE), увы, ничего не скажу.

@dzug · 01.09.2011, 15:25

Во вложенном файле можно не только поиграть в шахматы , но и посмотреть как VBA взаимодействует с DLL. Заодно можно оценить "интелект" библиотеки DLL , размером всего 40 КБ, который играет в шахматы за компьютер..

:black_eye.:

@AzaKendler · 01.09.2011, 23:04

а клево)))длл на чем писано? судя по new и delete похоже на ++
вба я так понимаю лишь используется для нескольких мбоксов и чтобы выдернуть функции в из библиотеки?

@dzug · 05.10.2011, 02:18

Сообщение от AzaKendler

а клево)))длл на чем писано? судя по new и delete похоже на ++
вба я так понимаю лишь используется для нескольких мбоксов и чтобы выдернуть функции в из библиотеки?

Где то так..

@KoGG · 05.10.2011, 10:36

Скажи Farique , а функция CopyMemory задекларирована?

Visual Basic

1	Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

@AzaKendler 214 / 116 / 14 Регистрация: 30.05.2011 Сообщений: 1,772
	01.09.2011, 23:04	4
	а клево)))длл на чем писано? судя по new и delete похоже на ++ вба я так понимаю лишь используется для нескольких мбоксов и чтобы выдернуть функции в из библиотеки? 0

@dzug 695 / 236 / 18 Регистрация: 17.01.2011 Сообщений: 583 Записей в блоге: 1
	05.10.2011, 02:18	5
	Сообщение от AzaKendler а клево)))длл на чем писано? судя по new и delete похоже на ++ вба я так понимаю лишь используется для нескольких мбоксов и чтобы выдернуть функции в из библиотеки? Где то так.. 0

	05.10.2011, 10:36

Подключить DLL, передать ей команду (строку) и получить ответ

Решение