Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > DLL из Delphi

Автор: ctulhu 11.2.2007, 00:25

Люди!!! Не сердитесь плз. на ламера!

Проблема такая:

Есть DLL, написанная в Delphi

экспортные процедуры:

Код


...
procedure CloseGL(); stdcall;
procedure DrawSceneGL(); stdcall;
procedure InitGL(const hWnd: HWND); stdcall;
procedure ResizeWindowGL(const Width, Height: Integer); stdcall;
...

пробовал подключать динамически - по ламерски получилось не фурычит чё-то ????

скажыите плз. как и что где надо описать что вызвать эти функции в C.

DLL - нормальная в дельфе работает отлично.

Автор: Anikmar 11.2.2007, 00:29

Код в студию

Автор: ctulhu 11.2.2007, 08:55

Код такой:

Код


  ...
  // Предварительыне обяъвления в классе формы
  HINSTANCE dllInstance;
  typedef void (__import * FTC(void));
  typedef void (__import * FTD(void));
  typedef void (__import * FTI(HWND hWnd));
  typedef void (__import * FTR(int Width, int Height));
  FTC * _CloseGL;
  FTD * _DrawSceneGL;
  FTI * _InitGL;
  FTR * _ResizeWindowGL;
  ...
  // Загрузка
  dllInstance = LoadLibrary("OGLSupport.dll");
  if (dllInstance)
  {
    _CloseGL = (FTC *)GetProcAddress(dllInstance, "CloseGL");
    _DrawSceneGL = (FTD *)GetProcAddress(dllInstance, "DrawSceneGL");
    _InitGL = (FTI *)GetProcAddress(dllInstance, "InitGL");
    _ResizeWindowGL = (FTR *)GetProcAddress(dllInstance, "ResizeWindowGL");
  }
   ...
  // Использование процедруры
   _InitGL(Handle);

Автор: Romikgy 11.2.2007, 11:58

Цитата(ctulhu @ 11.2.2007, 07:55

)

FTC * _CloseGL;
  FTD * _DrawSceneGL;
  FTI * _InitGL;
  FTR * _ResizeWindowGL;

вроде здесь ежики не нужны( могу и ошибиться)