Вопрос про DLL

← →
savyhinst © (2008-09-11 17:12) [0]

Недеццкий вопрос:
Может ли function из DLL возвращать указатели на другие процедуры, хранящиеся в этой DLL?? И если может (а она может), то можно ди будет потом вызвать то, что она возвратит??
Спасибо за внимание.

← →
Palladin © (2008-09-11 17:13) [1]

запросто

← →
savyhinst © (2008-09-11 17:16) [2]

а почему тогда у меня не работает?

← →
www (2008-09-11 17:16) [3]

не возвращает?

← →
savyhinst © (2008-09-11 17:18) [4]

возвращает, но при вызове - вездесущий и вечный AccessViolation

← →
Сергей М. © (2008-09-11 17:18) [5]

> почему тогда у меня не работает?

А у меня работает.
Что я делаю неправильно ?

← →
stas © (2008-09-11 17:18) [6]

как вызываешь?

← →
savyhinst © (2008-09-11 17:19) [7]

не, тут что-то нетак

← →
Сергей М. © (2008-09-11 17:20) [8]

> тут что-то нетак

Эт точно)

← →
Jeer © (2008-09-11 17:20) [9]

> не, тут что-то нетак

Верно, "нетак" пишется "не так".
Также и в остальном - писать надо правильно.

← →
savyhinst © (2008-09-11 17:25) [10]

//---объяв:

const_LoadPluginProcNameA="proc";

THConnectFunc=function(a:pointer):boolean;

THPlugin=record
connect:THConnectFunc;
connect2:THConnectFunc;
end;
PHPlugin=^THPlugin;

TGetPluginFunction=function:PHPlugin;

//---длл:

function Connect(const a:pointer):boolean;
begin
result:=a<>nil;
end;

function getProcs:PHPlugin;
var
hp:THPlugin;
begin
hp.connect:=@Connect;
result:=@hp;
end;

exports
getProcs name const_LoadPluginProcNameA;

//---program

var
p:TGetPluginFunction;
hp:PHPlugin;
begin
h:=LoadLobrary("dll.dll");
if h=0 then ShowMessage("h=0");
p:=GetProcAddress(h,const_LoadPluginProcNameA);
hp:=p();
hp.connect(nil); //тут AV

← →
savyhinst © (2008-09-11 17:31) [11]

Как быть?

← →
Сергей М. © (2008-09-11 17:39) [12]

> Как быть?

Исправлять грубейшие ошибки в function getProcs:PHPlugin;

← →
Сергей М. © (2008-09-11 17:40) [13]

> savyhinst © (11.09.08 17:31) [11]

Ты в курсе, что время жизни локальных переменных подпрограмм равно времени жизни (т.е. исполнения) этих подпрограмм ?

Ну вот, уже хоть что-то есть. А как там надо?

да, я в курсе

я, кажись, врубился...

var
hp:THPlugin;

function getProcs:PHPlugin;
begin
hp.connect:=@Connect;
result:=@hp;
end;

так?

> я в курсе

Ну так а что же ты тогда возвращаешь адрес переменной, зная что она будет уничтожена непосредственно перед возвратом из getProcs ?

> так?

Уже лучше.
Но довольно глупо для этой цели реализовать целую функцию, в то время как переменную hp можно инициализировать статически и объявить ее идентификатор прямо в разделе exports

Вопрос про DLL Найти похожие ветки