Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Пример обратного вызова DLL 2

Delphi , Файловая система , DLL и PlugIns

Пример обратного вызова DLL 2

Вот как я осуществляю обратный вызов процедуры Delphi из C++ DLL:

В Delphi:


interface

var

  callBackProc: TFarProc;

procedure delphiProc(const x: Pchar); export;
procedure setupDLL(p: pointer);

implementation

procedure setupDLL(p: Pointer); external 'MYDLL';

procedure delphiProc(const x: Pchar); { это вызываемая процедура }
begin

  ...
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  ...
    callBackProc := makeProcInstance(@delphiProc, gInstance);
  setupDLL(callBackProc);
  ...
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin

  ...
    freeProcInstance(callBackProc);
  ...
end;

В C++ DLL:

   static void CALLBACK (*saveProc)(char*);

   void FAR _export pascal setupDLL (void CALLBACK (*func)(char*))
   {
      saveProc = func;
   }
затем, для вызова процедуры Delphi из C++ DLL, используется:

(*saveProc)(msg); // где msg - char*

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

Если ваш DLL родом из Delphi, код должен быть аналогичным, за исключением того, ...что я не помню как вызывать процедуру в Delphi через указатель на эту процедуру.

Если ваш DLL родом не из Delphi, убедитесь в том, что типы string/pchar согласованы в обоих модулях.

Синтаксис тот же. В главной программе вы просто добавляете ключевое слово EXPORT к каждой функции, которую вы хотите экспортировать, наподобие того, как вы делаете это в DLL. В конце .DPR-файла, перед ключевым словом BEGIN, которое определяет начало основной программы, добавьте секцию с именем EXPORTS, где вы должны перечислить подпрограммы, которые вы хотите сделать доступными для обратных вызовов. Не такой очевидный, но очень важный шаг, который вы должны сделать, это скомпилировать главую программу с выключенной опцией умных обратных вызовов (smart callbacks). Очень важно, чтобы методы в программе имели доступ к своим собственным данным.

Статья Пример обратного вызова DLL 2 раздела Файловая система DLL и PlugIns может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: DLL и PlugIns ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 05:00:52/0.033849954605103/0