Man_Without_Face
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
library bCLIENT;
........................
type
tProc = function(x, y: integer):integer;
function FromDll(p:tProc):integer; export;
begin
//{Result := }p(5, 6); // так значения передает
Fping := p;
end;
exports
FromDll name 'FromDll';
........................
в одном из юнитов dll создаю переменную:
Fping: tProc;
......................
в другом юните пытаюсь вызвать функцию:
Fping(22, 33); // параметры не передаются
.......................
exe
на формшоу передаю адрес функции:
FromDll(@MyCallBack);
.....................................
unit ServerFunctions;
interface
function FromDll(p:pointer):integer; external 'bClient.dll' name 'FromDll';
function MyCallBack(x, y:integer):integer;
....................................
function MyCallBack(x, y:integer):integer;
begin
showmessage(inttostr(x)+ ' '+inttostr(y));
end;
|
