Скачать: CL | DM;

Ошибка при динамическом вызове 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, например

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.007 c