Einzelnen Beitrag anzeigen

Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#1

DLLs für PlugIn-System - Was geht alles?

  Alt 4. Jun 2005, 10:33
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
  Mit Zitat antworten Zitat