Ошибка при динамическом вызове DLL

← →
Delph (2002-04-08 12:29) [0]

В DLL:

function _GetForm(IdObject: LongInt; FormName: String; var Source: String): boolean; export;

В вызывающей программе:

_GetForm = function (IdObject: LongInt; FormName: String; var Source: String): boolean;

procedure TForm1.Button3Click(Sender: TObject);
var
S: String;
begin
iLib:=LoadLibrary("c:\storige\storige.dll");
GetForm := _GetForm(GetProcAddress(iLib,"_GetForm"));
GetForm(1, "Stroka", S);
ShowMessage(S);
end;

При выходе из обработчика "Invalid pointer operation". Как избавиться, что неправильно? Спасибо.

← →
MBo (2002-04-08 12:44) [1]

1)обязательно включить в uses первым sharemem
2)указать и в dll и в программе stdcall, например

Ошибка при динамическом вызове DLL Найти похожие ветки