Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 215

•  TDictionary Custom Sort  6 265

•  Fast Watermark Sources  6 062

•  3D Designer  8 969

•  Sik Screen Capture  6 384

•  Patch Maker  6 809

•  Айболит (remote control)  6 791

•  ListBox Drag & Drop  5 666

•  Доска для игры Реверси  96 333

•  Графические эффекты  7 008

•  Рисование по маске  6 294

•  Перетаскивание изображений  5 180

•  Canvas Drawing  5 548

•  Рисование Луны  5 252

•  Поворот изображения  4 799

•  Рисование стержней  3 396

•  Paint on Shape  2 653

•  Генератор кроссвордов  3 537

•  Головоломка Paletto  2 825

•  Теорема Монжа об окружностях  3 638

•  Пазл Numbrix  2 380

•  Заборы и коммивояжеры  3 062

•  Игра HIP  2 018

•  Игра Go (Го)  1 942

•  Симулятор лифта  2 303

•  Программа укладки плитки  2 007

•  Генератор лабиринта  2 461

•  Проверка числового ввода  2 144

•  HEX View  2 479

•  Физический маятник  2 094

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Пример обратного вызова 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). Очень важно, чтобы методы в программе имели доступ к своим собственным данным.





Похожие по теме исходники

Примеры работы с БД

Примеры оформления DBGrid

Пример использования DBGrid

DLL Form

 

DLL in Resources

DLL Injector




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте