Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Aus DLL Funktion des Hauptprogrammes aufrufen... (https://www.delphipraxis.net/15250-aus-dll-funktion-des-hauptprogrammes-aufrufen.html)

FriFra 25. Jan 2004 01:22


Aus DLL Funktion des Hauptprogrammes aufrufen...
 
Ich habe in meinem Programm eine einfache Plugin-Schnittstelle. Das Hauptprogramm erkennt Plugins selbstständig und führt ggf. eine in jedem Plugin vorhandene Standardfunktion aus.

Nun will ich aber mehrere Plugins erstellen, welche einfache "GET" Requests ins Internet absetzen. Um die Plugins möglichst klein zu halten würde ich eine solche Funktion gern im Hauptprogramm haben, d.h. wenn es einen GET-Request abzusetzen gibt soll die dll die entspr. Funktion des Hauptprogrammes aufrufen.

Kann man eventuell in der exe selbst external Deklarationen machen und dann innerhalb der dll dynamisch binden?

scp 25. Jan 2004 01:47

Re: Aus DLL Funktion des Hauptprogrammes aufrufen...
 
Nein, aber in der exe kann man nichts external machen, aber du kannst eine Funktion an die Dll übergeben:
Beispielcode in der Exe:
Delphi-Quellcode:
type
  TGetUrl = function(URL : String) : String;
  TGiveURLProc = procedure(URLProc : TGetUrl);

function GetUrl(URL : String) : String;
begin
  // Hier führt die Exe GET aus.
end;

procedure LoadPlugin;
// Prozedure an DLL übegeben
var
  hDll : HMODULE;
  GiveURLProc : TGiveURLProc;
begin
  hDll := LoadLibrary('plugin.dll');
  GiveURLProc := GetProcAddress(hDll, 'GiveURLProc');
  If Assigned(GiveURLProc) then
    GiveURLProc(GetUrl);
end;
Beispielcode in der DLL:
Delphi-Quellcode:
type
  TGetUrl = function(URL : String) : String;

var
  GetUrl : TGetUrl;

procedure GiveURLProc(URLProc : TGetUrl);
begin
  GetUrl := URLProc;
end;

exports
  GiveURLProc;


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz