Einzelnen Beitrag anzeigen

scp

Registriert seit: 31. Okt 2003
1.120 Beiträge
 
Delphi 7 Personal
 
#2

Re: Aus DLL Funktion des Hauptprogrammes aufrufen...

  Alt 25. Jan 2004, 01:47
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;
  Mit Zitat antworten Zitat