Как испольбзовать dll написанную на C++?

[Kot22]

Есть бибилиотека - файл NewLib.dll Надо использовать функцию SetTestEx(strName as String) As Long
Описываю функцию в основном теле программы:

Private Declare Function getTotalEditTimeEx Lib "NewLib.dll" _
(ByVal strName As String) As Long
Вызываю данную функцию:
Dim a as long
Dim strTest as String
a = SetTestEx(strTest)
Но ошибка... Ошибка времени выполнения 453. Невозможно найти допуск в DLL SetTestEx in NewLib.dll
Где этот допуск установить?

[GSerg]

Русифицированный VB у тебя что ли? Гадость какая.
В любом случае, декларируешь ты одну функцию, а вызываешь другую.
Кстати, ты уверен, что твой C++ функция ожидает именно BSTR? Скоре всего, она хочет LPSTR!

[Kot22]

Да, VB пока русский
Вот сделал маленькую тестовую dll на C++
long Test1(long a,long b)
{
long c;
c = a+b;
return c;
}//Просто складывает два числа
В VB проекте установил такой код:

Option Explicit

Private Declare Function Test1 Lib "TestDll.dll" _
(ByVal wType As Long, ByVal wName As Long) As Long


Private Sub cmdTest_Click()
Dim a As Long
a = Test1(1.8, 5.2)
End Sub

И таже ошибка... В чем может быть дело???

[GSerg]

http://old.vbstreets.ru/topic.asp?TOPIC_ID=6798

ЗЫ: Тело такой функции должно содержать всего одну команду: return a+b

[Kot22]

Много чего интересного прочитал
Объявлении С++ функции выглядит так:

extern "C" _declspec(dllexport) long __stdcall getTotalEditTimeEx (char* pc_filename)

объявление в VB так:

Private Declare Function getTotalEditTimeEx Lib "FilePropEx.dll" _
(ByVal sFileName As String) As Long

Не понимаю, в чем может быть ошибка, связанная с несоответствием типов?

[Kot22]

Вот написал правильную функцию, чтобы быть уверенным, что с передачей данных все нормально:
extern "C" _declspec(dllexport) long __stdcall MyTest(long a,long b)
{
return a+b;
}


Private Declare Function MyTest Lib "FilePropEx.dll" _
(ByVal x1 As Long, ByVal x2 As Long) As Long
Dim x1 As Long
Dim x2 As Long
x1=5.2
x2=4.8
TestLong = MyTest(x1, x2)
А результат тотже

[Vi]

В С или С++ (не для VB будет сказано) используются измененные имена функций (так называемые mangled names), в которые упаковываются все спецификации функции. По каким правилам - это нужно читать МСДН. В твоем случае - _MyTest@8, т.е.

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

Private Declare Function MyTest Lib "FilePropEx.dll" Alias "_MyTest@8" _
(ByVal x1 As Long, ByVal x2 As Long) As Long


Или пользоваться DEF файлом, чтобы задавать свои имена.

[Kot22]

Огромное спасибо!
А где в MSDN посмотреть как C++ составляет имя функции?

[Vi]

А где в MSDN посмотреть как C++ составляет имя функции?

Мазохист, да?!

Есть такая утилита, Depends называется (есть и другие, мне лично эта нравится), которая может показать все экспортируемые имена (т.е. известные снаружи). Там и видно, что сотворил компилятор с именем функции - вариантов там очень много.

[WEB_13]

Depends показывает весь список функций, а как же тогда узнать их параметры?

[Vi]

Да уж VB для новичков ...

Есть такая утилита - UNDNAME.EXE. Вот она и покажет имя. Например,

>UndName.Exe ?MapDLLHappyFunc@@YAPADPAD@Z
>> ?MapDLLHappyFunc@@YAPADPAD@Z == MapDLLHappyFunc
>UndName.Exe -f ?MapDLLHappyFunc@@YAPADPAD@Z
>> ?MapDLLHappyFunc@@YAPADPAD@Z == char * MapDLLHappyFunc(char *)