Связь C-шной dll с VB-шным приложением

[Odrick]

Ситуация такова: есть dll, написанная на C, которая имеет одну внешнюю функцию, параметром которой является указатель на функцию внутри VB-шной программы. После ее вызова она вызывает VB-шную функцию, параметром которой является строка и возвращаемым значением тоже строка. На C прототип такой функции выглядит например так:

Код: Выделить всё

const char *Test(char *Params)


Вопрос в том, как правильно объявить такую функции в VB?

Код: Выделить всё

Public Function Test(Params as String) as String


Успешно валит приложение.

Код: Выделить всё

Public Function Test(Params as Long) as Long


Уже лучше. Указатель на строку принимается. Однако как потом получить строку по указателю непонятно. Попытка вернуть указатель на VB-шную строку, типа:

Код: Выделить всё

Test = VarPtr(sRes)


приводит к успешному краху...

[hCORe]

Кажется, нарушается основное правило работы с указателями: создавать новый и отдавать его "клиенту". Конвенция вызова stdcall, надеюсь?

[hCORe]

А строку по указателю можно получить через lstrcpy.

[tyomitch]

Public Function Test(Params As Long) As Long - правильно.
Создать строку по указателю проще всего вызовом SysAllocString.
Возвращать надо StrPtr(sRes).

[Odrick]

Конвенция вызова stdcall, надеюсь?

Да, конечно

[Odrick]

Код: Выделить всё

Test = StrPtr(sRes)


приводит к тому-же результату. Уже пробовал. Ладно, прийду домой - выложу тестовый пример на C и на VB вместе с dll-кой. Так будет проще...

[Odrick]

В общем на C все это дело работает так:

Код: Выделить всё

#include "BOTS.h"
const char *TestAI(char *_Str)
{
return "test";
}
ENGINE_API l_engine = {TestAI};
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//
HINSTANCE l_lib = LoadLibrary("alpha_bot.dll");
if ( !l_lib )
    return ;
botDriverEntryProc l_entry;
l_entry = (botDriverEntryProc)GetProcAddress(l_lib, BOT_DRV_ENTRY_PROCNAME);
if ( l_entry )
    {
    l_entry(&l_engine);
    }
FreeLibrary(l_lib);
}


VB-шный проект прикреплен. Как все это дело запустить затрудняюсь...

[tyomitch]

Ладно, прийду домой - выложу тестовый пример на C и на VB вместе с dll-кой. Так будет проще...

Сутки домой шёл?



На самом деле, как и предполагал hCORe, там не stdcall. В сообщении об ошибке, между прочим, так и написано.

[codemaster]

Ситуация такова: есть dll, написанная на C, которая имеет одну внешнюю функцию, параметром которой является указатель на функцию внутри VB-шной программы.

5 баллов!

зодно к прочтению
How To Pass a String Between Visual Basic and Your C DLL
http://support.microsoft.com/default.as ... US;Q187912

P.S. Borland ?

[Odrick]

2tyomitch - ну-у-у... Так вышло. Действительно почти сутки шел ) Не stdcall??? Блин... Меня надули. Ладно, буду пинать того, кто dll-ку писал...

2codemaster - спасибо за ссылку! Щас почитаю. Нет, не Borland - VS.

[Odrick]

Так... В общем замена __cdecl на __stdcall и замена прототипа функции основного модуля на:

Код: Выделить всё

const LPSTR Test(LPSTR Params)


дала положительный результат
Но как говорится не без ложки дегтя... Во-первых - так и не удалось получить строку по указателю.

Код: Выделить всё

Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long)  As Long

или

Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As Any, ByVal lpString2 As Any)  As Long


Эффект тот-же - результат - пустая строка...
Кроме того, dll-ка получает строку, но если это символы меньше 128, то результат - 1 символ, если больше 128 - "иероглифы" Подозреваю, что это связано с форматом хранения строки в VB (2 байта). Тогда каждый символ анлийского текста вторым байтом имеет 0, что расценивается dll как конец строки - отсюда и 1 символ. Вот и вопрос: как сконвертить строку в нужный формат и как-же все-таки получить строку, зная указатель?

[Odrick]

Гм... А может передавать массив байт? Так прокатит? И как тогда на массив байт получить указатель?

[alibek]

"lstrcpyA" попробуй заменить на "lstrcpyW"

[Odrick]

2alibek - спасибо, я уже разобрался. Проблема в моих кривых руках - достаточно было объявить функцию так:

Код: Выделить всё

Public Function Test(ByVal Params as Long) as Long


и lstrcpy заработала. Но КАК корректно передать строку назад в dll? То есть сконвертить в нужный формат и отдать? Може есть какие-нить соображения? Срочно нужно... Но в крайнем случае вечером выложу проект dll-ки и тестовий VB-шный в нынешнем состоянии...

[tyomitch]

Ну я же всё это уже писал?

Public Function Test(Params As Long) As Long - правильно.
Создать строку по указателю проще всего вызовом SysAllocString.
Возвращать надо StrPtr(sRes).

Зачем там lstrcpy? Ей же нужно самому выделять буфер нужной длины, т.е. сначала и длину померять?
А вот SysAllocString делает всё это сама.

Нет чтобы одним вызовом API всю работу сделать - городите огород из десятка таких вызовов

[tyomitch]

Но КАК корректно передать строку назад в dll? То есть сконвертить в нужный формат и отдать? Може есть какие-нить соображения? Срочно нужно... Но в крайнем случае вечером выложу проект dll-ки и тестовий VB-шный в нынешнем состоянии...

Я правильно понял, что единственная проблема - перевод строки из Юникода в ANSI?
Тогда спасёт StrConv(sRes, vbFromUnicode)

[Odrick]

Да, ты прав. SysAllocString действительно проще. StrConv - именно то, что нужно! В общем выглядит теперь это так:

Код: Выделить всё

Public Function Test(ByVal Params As Long) As Long
    MsgBox SysAllocString(Params)
    Test = StrPtr(StrConv("Возврат результата функции в dll", vbFromUnicode))
End Function


и все работает замечательно Всем спасибо.