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