как правильно обратиться к dll?

[zuuuuk]

Добрый день. Посоветуйте, пожалуста, что делать?
У меня по нажатию кнопки происходит загрузка dll
И вызов из нее функции.
Функция выполняет свои действия без ошибок.
Но по  выходу из void __fastcall TForm1::Button1Click(TObject *Sender)
происходит ошибка.

dll.h

Код: (C++)

typedef void (*func3)(char,char *);
static func3 ZahvatUstroistva;

.cpp

Код: (C++)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   hD = LoadLibrary ("Bi30Usb.dll");
   hDll = LoadLibrary ("Bi30Func.dll");
   if (hDll)
   {
    ZahvatUstroistva = (func3) GetProcAddress (hDll, "ZahvatUstroistva");
   }
   else {
   Application ->MessageBoxA("ошибка", 0,0);
      return;
   }

    ZahvatUstroistva(0, &KodOshibki);
    if (KodOshibki != 0){
    Application-> MessageBoxA("ошибка", 0, 0);
    }


}

[zubr]

Обрати внимание на параметры, которые ты передаешь в функцию ZahvatUstroistva. Похоже проблема внутри функции из за неверных параметров.

[Dimka]

И закрытие дескрипторов тоже надо. FreeLibrary там...

[zuuuuk]

Функцию и длл писал другой человек. Но он оставил документацию и пример.
Параметры в функцию я передаю так же как и в примере.
только пример на паскале.

добавил FreeLibrary

Код: (C++)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   hD = LoadLibrary ("Bi30Usb.dll");
   hDll = LoadLibrary ("Bi30Func.dll");
   if (hDll)
   {
    ZahvatUstroistva = (func3) GetProcAddress (hDll, "ZahvatUstroistva");
   }
   else {
   Application ->MessageBoxA("îøèáêà", 0,0);
   }

    ZahvatUstroistva(0, &KodOshibki);
    if (KodOshibki != 0){
    Application-> MessageBoxA("êîä", 0, 0);
    }
     FreeLibrary (hD);
     FreeLibrary (hDll);

}

не помогло.

Добавлено через 7 минут и 11 секунд:
А вот если я все это помещу в фунцию при создании формы
то все нормально выполняется.

Код: (C++)

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  hD = LoadLibrary ("Bi30Usb.dll");
   hDll = LoadLibrary ("Bi30Func.dll");
   if (hDll)
   {
    ZahvatUstroistva = (func3) GetProcAddress (hDll, "ZahvatUstroistva");
   }
   else {
   Application ->MessageBoxA("îøèáêà", 0,0);
   }

    ZahvatUstroistva(0, &KodOshibki);
    if (KodOshibki != 0){
    Application-> MessageBoxA("êîä", 0, 0);
    }
     //FreeLibrary (hD);
     //FreeLibrary (hDll);

}

Приложение запускается без ошибок.

я не понимаю почему.

[RXL]

Отладчиком пройдись. GetProcAddress возвращает правильный указатель?

[zuuuuk]

ZahvatUstroistva не равен 0.

[darkelf]

Функцию и длл писал другой человек. Но он оставил документацию и пример.
Параметры в функцию я передаю так же как и в примере.
только пример на паскале.

в паскале порядок передачи параметров отличается от C.

[zubr]

Паскальный прототип в студию.

[RXL]

Поддерживаю вопрос: прототипы и соглашения по вызовам: cdecl/stdcall/pascal/fastcall.

1. Какое соглашение у BCB по умолчанию?
2. В dll.h указана обертка extern "C"?
3. Язык, использованный для написания dll?

памятка

[zuuuuk]

язык написания Bi30Func.dll паскаль.

Вообще, вы, меня натолкнули на очень важную важную часть
на которую я не обратил внимание.
Проверяю.....

[zuuuuk]

RXl,
что такое соглашение у ВСВ?

[RXL]

Термин «соглашение по вызовам», надеюсь, тебе известен.
BCB — сокращение от Borland C++ Builder.

[zuuuuk]

Понятно. Уточнил просто.

У меня так и не получается вызвать функции из длл безпоявления ошибки.
 
Длл написан на паскале.
обрамление extern "C" есть.

[LemmonRus]

Понятно. Уточнил просто.

У меня так и не получается вызвать функции из длл безпоявления ошибки.
 
Длл написан на паскале.
обрамление extern "C" есть.

Изучай Name mangling.

Самое простое :
1)качаешь dependency walker c http://www.dependencywalker.com/
2)открываешь в нем dll.
3)Смотришь таблицу экспорта.
4)изменяешь название запрашиваемой функции дабы совпадало с названием в DLL.

[zuuuuk]

Я поставил в настройках проекта компиляции.
стандартные вызовы.
все заработало.
огромное вам всем спасибо.

[RXL]

На весь проект ставить некошерно. Определение соглашения для данных функций должно быть в заголовочном файле.