Использование в VB DLL написанной в VC

[serj2008]

Как подключить написанную на VC билиотеку к своему проекту на VB? Через Project\references\brows не получается ругается что файл не такой. Библиотеку писал не сам, но листинг ее есть.

[serj2008]

вроде нет. А как проверить?

[Хакер]

AlexManiac
Полную чушь говоришь. Невероятную просто.

serj2008
Чтобы библиотека добавлялась через Project->References, она должна в ресурсах содержать TLB. При этом, она может быть нифига не объектной, как говорит AlexManiac, а быть самоый обычной библиотекой, экспортирующей самый обычные функции. Но в ресурсах у неё должна быть TLB, где все эти функции описаны. Т.е. не обязательно все - просто в VB окажутся доступными только те, что объявлены.

И не обязательно в ресурсах -- TLB может валяться рядом отдельным файлом.

[serj2008]

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

// SampleModule.cpp : Defines the entry point for the DLL application.
//

#include "../Module.h"

CModule module("Sample.EmptyModule", "Just empty Rumus2 module", 1, 0, 0, 3);

//âíåøíÿÿ ôóíêöèÿ ïîëó÷åíèÿ èíôîðìàöèè î ìîäóëå
extern "C" LRESULT __declspec(dllexport)GetModuleInfo(MODULE_INFO* lpsInfo)
{
   return module.GetModuleInfoWrap(lpsInfo);
}
//âíåøíÿÿ ôóíêöèÿ èíèöèàëèçàöèè è óñòàíîâêè óêàçàòåëÿ íà SendMessage
extern "C" void __declspec(dllexport)Initialize(SEND_MESSAGE_FUNC lpSendMessageFunc, SEND_MESSAGE_FUNC lpPostMessageFunc, FXHANDLE pCoreData, FXHANDLE pIdModule)
{
   module.InitializeWrap(lpSendMessageFunc, lpPostMessageFunc, pCoreData, pIdModule);
}

//âíåøíèé îáðàáîò÷èê ñîîáùåíèé
extern "C" LRESULT __declspec(dllexport)ReceiveMessage(FXHANDLE pObject, UINT nMessageID, WPARAM wParam, LPARAM lParam)
{
   return module.ReceiveMessageWrap(pObject,nMessageID,wParam,lParam);
}

вот часть кода этой библиотеки. ЕЕ я не сам писал поэтому разобратся там тяжело.

[Хакер]

Код библиотеки здесь не имеет никакого значения.

[Хакер]

Ну да, конено же я говорю чушь. только мне вот интересно, какой из вариантов ответов, мой или ваш, спрашивающему более понятен? с учетом его подвопроса

Более понятен? Понятными будут, вероятно, оба варианта.
Ты хотел сказать "более прост для понимания"? Более прост для понимания будет тот вариант, который более прост сам по себе. При этом, если вариант прост, но является полной чушью, он не имеет никакой ценности.

На вопрос, как складывать две обыкновенные дроби можно ответить двумя способами:

• Можно сказать, что нужно найти наименьший общий знаменатель, привести обе дроби к этому наименьшему знаменателю, домножив оба числителя на соответствующие дополнительные множители, затем сложить эти два числителя, получив таким оразом результат.
• Можно сказать, что для этого достаточно сложить числители и сложить знаменатели.

Очевидно, что вопрошающему второй ответ будет более понятен. Но при этом, второй ответ - это полная чушь. И какой толк с того, что он более понятен?

[Mikle]

serj2008
А там точно STDCall функции?

[ANDLL]

Ну вообщето в c не stdcall по умолчанию

[serj2008]

Так как подключать, какие варианты есть предлагайте. А то выясныть долго можно что да как. Нужно так попробовать не получится подругому. Вот щас с помощью LoadLibrary(...)
GetProcAddress(...) хочу попробовать. А DLL должна при этом обязательно в system32 лежать?

[BV]

Как подключить написанную на VC билиотеку к своему проекту на VB?

Без tlb'шки -- никак. В VB tlb'шка чем-то сродни *.lib'е в C++.
Если тебе известны прототипы функций, и они все __stdcall, то просто создай модуль и в нем объяви эти функции через Declare Function/Sub (еще можно поиграться с GetProcAddress, но VB не поддерживает вызов функций по указателю, так что без извращений тут не обойтись)... Если функции не __stdcall, все, баста Правда, при наличии исходников библиотеки это дело легко можно поправить...

[serj2008]

Да исходники есть. Ктож их только разберет.

[serj2008]

Ну вроде подключилось через

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

lb = LoadLibrary("SampleWidgetStep3.dll")
pa = GetProcAddress(lb, Initialize)

покрайней мере не ругается на эти строчки.
Как теперь функции вызывать из библиотеки?

И еще, когда просматриваю просмоторщиком эту библиотеку она пишет что использует: kernel32.dll, user32.dll, Msvcp80.dll, Msvcr.dll мне их тоже подключать надо, или так прокатит?

[Хакер]

serj2008


Я тебе ответил, ты не читал этого?

Чтобы эту сишную библу подключить к VB через Project->References, у библы в ресурсах должна быть TLB.

Есть ещё варианты, но давай остановимся на этом. Что тебе в этом варианте непонятно?

Если при попытке подключить библу через Project-->References ты получаешь сообщение о об ошибке, то значит у этой библы нет TLB.

Значит твоя задача - прикрепить к этоу библе TLB.

Итак, что непонятно?


Кроме того, как верно заметили Mikle и andll правильно заметили, что функции не stdcall-ные.

[Хакер]

Если функции не __stdcall, все, баста

Да я бы не сказал, что баста. Всего-то сделать некоторые доп. действия со стеком.

[serj2008]

Не понятно где взять этот TLB. И как его прикрепить.

[Хакер]

serj2008
Взять его можно у разработчика. Но, вероятно, разработчик не делал TLB.

Сделать можно самому. Очень легко. В исходнике TLB объявляется библа library, внутри неё модуль, внутри него - объявляешь свои функции. По сути, объявить функцию -- разместить в модуле её прототип. Единственно, в чём сложность, так это в том, что у функций твоих у аргментов типы какие-то редкие библиотеко-специфичные.
В принципе, можешь свободно поменять их всех на int и скомпилировать TLB так. А можешь описать их же (я так понимаю, там структуры какие-то) в TLB, тогда их можно будет поюзать прямо из под VB.

Только ты учитывай, что библу надо бы перекомпилировать, дабы функции стади stdcall-ными. Иначе с VB ты с ними просто так поработать не сможешь, и TLB вряд ли чем-то поможет.

[serj2008]

Спасибо всем, как я понял будет легче свою DLL на VB. Тем более текст на С есть, я думал это легко библиотеку подключить и юзать.

[Хакер]

serj2008
Это действительно легко.

Я хочу (я действительно хочу), чтобы ты разобрался в этой теме. В своё время мне пришлось разбираться в этой теме, и у меня не было человека, который бы мне помог.

Сейчас, помочь тебе могу, например, я.

Если же ты всё-таки решил писать на VB свою библиотеку, то тебе этого не сделать без моего инструмента.