Взаимодействие DLL и программы

[Никки]

Мне необходимо использовать в DLL функцию которая описана в модуле моей программы! я пытаюсь передать адрес этой функций как параметр-константу в процедуру DLL в результате чего получаю ошибку Privileged instruction. в объявлений и описании функций в моей программе я указал stdcall.
что мне делать в такой ситуации?

[Stilet]

Наверное показать код

[mutabor]

Как-то странно, а почему ее не вынести в эту DLL?

[Никки]

потому что тогда придется вызывать уже не эту функцию, а другие, которые так же описаны в модулях программы...

вот вам код!!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TDllProc=procedure(const Addr:Pointer);
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    DllProc:TDllProc;
    hDll:THandle;
  public
    function MyBestFunction:String; stdcall;
  end;

var
  Form1: TForm1;

implementation

function TForm1.MyBestFunction:String; stdcall;
begin
    ShowMessage('Hello Word');
    MyBestFunction:='Hello';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    hDll:=LoadLibrary('BlaBlaBla.dll');
    if hDll>0 then begin
        @DllProc:=GetProcAddress(hDll,'DllProc');
    end;
    if @DllProc<>nil then DllProc(GetProcAddress(Application.Handle,'MyBestFunction'));
{здесь будет ошибка!!}
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    FreeLibrary(hDll);
end;

end.

library lb1;

type
    TMyBestFunction=function:String;
var
    MyBestFunction:TMyBestFunction;

procedure DllProc(const Addr:Pointer) export; stdcall;
begin
        @MyBestFunction:=Addr;
        MyBestFunction;
end;

exports DllProc;

begin
end.

[BOBAH13]

Честно говоря я чтот не пойму что здесь ввообще происходит!
По порядку

1. Ехе получает указатель на DllProc
2. Ехе получает указатель на не экспортируемую функцию причем из Application.Handle
3. Полученый непонятный указатель передается функции в dll и вызывается и после чего длл передает управленее коду по данному указателю в памяти.

Сразу вопрос! Функция не постоянна, т.е. если бы вы написали @MyBestFunction вам бы компилятор "показал бы где раки зимууют" так вы решили его обдурить?! Вам вот что надо

function {не стоит TForm1.}MyBestFunction:String; stdcall;
begin  
    ShowMessage('Hello Word');  
    MyBestFunction:='Hello';  
end;  

procedure TForm1.Button1Click(Sender: TObject);  
begin  
    hDll:=LoadLibrary('BlaBlaBla.dll');  
    if hDll>0 then begin  
        @DllProc:=GetProcAddress(hDll,'DllProc');
    end;  
    if @DllProc<>nil then DllProc(@MyBestFunction);  
{здесь наверное не будет ошибки!!}  
end;

Проверять не проверял, так что может я и ошибся.

Ах да, если уж так надо то попробуйте функции MyBestFunction еще приписать export;

[Stilet]

Как-то странно, а почему ее не вынести в эту DLL?

Ниче странного. Callback функи довольно популярны в Винде.

[Никки]

BOBAH13, то же самое сообщение в том же самом месте!
Мне кажется что у Dll нет прав работать с областью памяти приложения... или это не так?

[Никки]

Хотя теперь @MyBestFunction как параметр у меня прокатило, хотя раньше было сообщение об ошибке, вот я и сделал через GetProcAddress.

[BOBAH13]

Я уверен на 99% что в сообщения об ошибки сообщалось, что требуется переменна или функция которая указывается параметру @ не является постоянной, т.е. зависима от класса. А мы теперь убрали зависимость от класса и функция просто загружена в память и имеет указатель, в коде он является просто MyBestFunction

p.s. так работает или нет ? чет я не понял )))

[DearHunter]

В дельфи при передаче строки между модулями в качестве параметра или результата функции, необходимо использовать библиотеку менеджера памяти borlndmm.dll, указывая ShareMem первым в списке юнитов обоих проектов, как сказано ниже (из сгенерированного проекта dll).

{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. }

Если в Ваших проектах это уже сделано - попытайтесь сначала вызвать функцию, имеющую параметры и результат примитивных типов.