wenn ich eine
dll einbinde, geht das so:
Delphi-Quellcode:
var dllprocs =
array[0..9]
of procedure;
//bei dem typ bin ich mir nicht ganz sicher... könnte auch einfach nur ein pointer sein, oder?!
handle:=LoadLibrary('
DLL.dll');
dllprocs[0]:=getprocadress(
handle, '
myproc');
strings macht man am besten als PChars:
Delphi-Quellcode:
//DLL
function exportedfunc(s:PChar):PChar;
var somestring:
string;
begin
somestring := s;
new(result,length(somestring))
result:=PChar(s);
end;
//APP
procedure callexported;
var mystring:
string;
begin
mystring:='
blabla';
mystring:=exportedfunc(PChar(mystring));
end;
Dann könnte ich doch auch für ein plugIn-system so vorgehen:
Delphi-Quellcode:
//beispiel-dll
library somedll;
uses sysutils;
function exportthem():PChar;
function somefunc(somearg:
var):integer;
exports somefunc; exportthem;
//da weiss ich die syntax grad nicht, aber die OH hilft mir sicher weiter
implementation
function somefunc(somearg:
var):integer;
begin
result:=432;
end;
function exportthem():PChar;
var s:
string;
begin
s:='
somefunc';
new(result,length(s));
result:=PChar(s);
end;
//App
var renderprocs,initprocs,userprocs,interfaceprocs:
array of procedure;
procedure getexportedfuncs;
var s:
string;
handle:cardinal;
func:
function;
//ist sicher auch nicht korrekt, muss das nicht direkt ein pointer sein?!
begin
handle:=loadlibrary(somedll);
func:=getprocadress(
handle,'
export');
s:=@func;
renderprocs[0]:=getprocadress(
handle,s);
end;
Damit könnte ich ja dann alle funktionen aus einer
dll rausholen, und sie entsprechend zuordnen.
Würde so etwas prinzipiell funktionieren? Sharemem um die stringprobs zu lösen will ich jedenfalls nicht benutzen, da evtl. in verschiedenen sprachen programmiert wird.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1