Aus einer DLL auf externe Funktionen zugreifen

**CalganX**

Hi,
ich habe eine Frage: wie kann ich in einer DLL auf Funktionen meines Hauptprogrammes zugreifen? Muss ich dafür extra eine weitere DLL schreiben? Das Problem ist, dass die Funktion Instanz des Formulares ist und die Funktion auf das Formular zugreift..

Also: wie geht das?

Chris

**Chewie**

Mir fällt keine Möglichkeit ein, die Funktion deines Programms in die DLL zu importieren. Das einzige, was mir jetzt einfällt, wäre einen Zeiger auf die Funktion in der Unit an eine Funktion der DLL zu übergeben; der Zeiger wird dann referenziert und die entsprechende Funktion ausgeführt.

**CalganX**

Hm... also da fällt mir folgendes ein:

zusammenfalten · markieren

Delphi-Quellcode:

			// in der DLL

type

  TFunctions = packed record

    fGetSyn: function: TSynEdit;

    fGetSth: function: PChar;

  end;

{...}

function DoOperation(fFunc: TFunctions): boolean;

var

  Syn: TSynEdit;

begin

  Syn := fFunc.fGetSyn;  

end;

// in dem Programm

type

  TFunctions = packed record

    fGetSyn: function: TSynEdit;

    fGetSth: function: PChar;

  end;

{...}

function TFrmMain.GetCurSyn: TSynEdit;

begin

  // ...

end;

{...}

procedure TFrmMain.Button1Click(Sender: TObject);

var

  fFuncs: TFunctions;

begin

  fFuncs.fGetSyn := GetCurSyn;

end;

Geht das denn so? Eigentlich gibt es da doch immer Probleme, oder?
Könntest du vielleicht ein kleines Beispiel geben (Funktionsnamen stehen oben)?

Chris

**jbg**

Zitat:

fGetSyn: function: TSynEdit;

Bist du dir da ganz sicher, dass du ein TSynEdit (bzw eine Komponente allgemein) der DLL übergeben willst? Da musst du dann die Unit ShareMem einbinden die wiederum die borlndmm.dll benötigt. Ein (V)C++ Programm hat wiederum seinen eigenen Speichermanager und somit geht das ganze nach hinten los.

Ich würde in deinem Fall auf Interfaces setzen. Diese sind sowohl in Delphi als auch in C++ nutzbar. Es besteht auch kein direkter Zugriff auf irgendwelche Daten, ohne dass das über eine Interface-Methode geregelt ist, die in deinem Hauptprogramm implementiert ist und somit dessen Speichermanager nutzt.

Hier mal ein kleines Beispiel für eine Plugin-Schnittstelle per Interfaces

zusammenfalten · markieren

Delphi-Quellcode:

			// unit MyAppIntf.pas

IEditor = interface;

IApp = interface;

IPlugin = interface;

{ IPlugin wird von der Plugin DLL implementiert. Der Entrypoint "InitPlugin" liefert dieses Interface zurück. }

IPlugin = interface

  ['{8E5F6F87-BD7C-4F51-A2B1-36E437E20648}']

  { GetName liefert den Namen des Plugins, der im Menü verwedet wird }

  function GetName: WideString; stdcall;

  { GetVersion liefert die Versionsnummer: HiWord=Major, LoWord=Minor }

  function GetVersion: Integer; stdcall;

  { Execute wird von der Anwendung aufgerufen, wenn der Benutzer auf

    den Menüpunkt klickt. }

  function Execute(App: IApp): Integer; stdcall; 

end;

{ IApp wird von der Anwendung implementiert und an IPlugin.Execute übergeben }

IApp = interface

  ['{8E5F6F87-BD7C-4F51-A2B1-36E437E20648}']

  { GetEditor liefert ein Interface auf den Editor }

  function GetEditor: IEditor; stdcall;

  { Terminate beendet das Programm }

  procedure Terminate; stdcall;

end;

{ IEditor bietet Zugriff auf den Editor und wird von IApp.GetEditor zurückgeliefert. }

IEditor = interface

  ['{2044641E-CF97-470B-9112-B0E28B0CB019}']

  function CaretX: Integer; stdcall;

  function CaretY: Integer; stdcall;

  procedure Clear; stdcall;

  procedure SetContent(const Value: WideString); stdcall;

  function GetContent: WideString; stdcall;

  procedure CopyToClipboard; stdcall;

  ...

  property Content: WideString read GetContent write SetContent;

end;

Der DLL Code:

zusammenfalten · markieren

Delphi-Quellcode:

			uses MyAppIntf;

type

  TPlugin = class(TInterfacedObject, IPlugin)

    function GetName: WideString; // der Compiler fügt hier STDCALL autom. ein

    function GetVersion: Integer;

    function Execute(App: IApp): Integer;

  end;

{ TPlugin }

function TPlugin.GetName: WideString;

begin

  Result := 'Mein &Testplugin'; // "T" unterstrichen im Menü

end;

function TPlugin.GetVersion: Integer;

begin

  Result := (1 shl 16) or 0; // 1.0

end;

function TPlugin.Execute(App: IApp): Integer;

begin

  Result  := 1; // True

  App.GetEditor.Content := 'Dieser Text erscheint im Editor.';

  App.GetEditor.CopyToClipboard;

end;

{ einzige exportierte Funktion }

function InitPlugin: IPlugin; stdcall; {export;}

begin

  Result := TPlugin.Create;

end;

exports

  InitPlugin;

end.

In der Anwendung:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TApp = class(TInterfacedObject, IApp)

  private

    FEditor: IEditor;

  public

    constructor Create;

    function GetEditor: IEditor; 

    procedure Terminate; stdcall;

  end;

  TEditorAdapter = class(TInterfacedObject, IEditor)

  private

    FSynEdit: TSynEdit;

  public

    constructor Create(ASynEdit: TSynEdit);

    procedure Clear;

    ...

  end;

{ TApp }

constructor TApp.Create;

begin

  inherited Create;

  FEditor := TEditorAdapter.Create(Form1.SynEdit);

end;

function TApp.GetEditor: IEditor; 

begin

  Result := FEditor;

end;

procedure TApp.Terminate; 

begin

  Form1.Close;

end;

{ TEditorAdapter }

constructor TEditorAdapter.Create(ASynEdit: TSynEdit);

begin

  inherited Create;

  FSynEdit := ASynEdit;

end;

procedure TEditorAdapter.Clear;

begin

  FSynEdit.Clear;

end;

Das ich hier WideString anstatt dem AnsiString (=string) verwendet habe liegt in der Tatsache, dass WideString unter Delphi keine Referenzzählung hat und somit nicht dem Problem mit unterschiedlichen Speichermanagern unterworfen ist, da der Speichermanager den WideString wieder freigibt, der ihn auch erzeugt hat. Und wenn mir jetzt einer mit dem Kommentar aus der Hilfe "Im Linux-Produkt von Borland wird für Wide-Strings eine Referenzzählung durchgeführt." kommt, dem muss ich sagen, dass Kylix den System-Speichermanager nutzt, was alle Linux-Programme machen. Und der ist nun mal ein und derselbe für jedes Modul.
Ein anderer Grund für WideString ist, dass auch (V)C++ diesen unterstützt und zwar als LPWSTR.

Aber zurück zu den Interfaces. Diese kann man auch in (V)C++ nutzen und hat somit eine sehr flexible Schnittstelle geschaffen. Durch die Verwendung von GUIDs ist es sogar möglich bei einer Erweiterung der Funktionalität alte Plugins am laufen zu halten.

**CalganX**

Hi!
Super! Werde mir das gleich ansehen.
Ich bin mir jetzt nicht hundertprozentig sicher (ich habe das gerade erstmal überflogen) ob das geht, aber das SynEdit ist dynamisch...

Chris

**CalganX**

Hi,
wo muss ich die Deklartionen in der MyAppIntf einfügen? Diese Unit ist doch eine neuerstellte, oder?

Chris

**CalganX**

Hab' es jetzt doch hinbekommen...

Aber nun gibt es noch ein weiteres Problem: könntest du mir vielleicht ein Beispiel geben, wie ich in der Anwendung auf Knopfdruck dieses PlugIn installieren kann? Ich steige da noch nicht ganz durch. Wäre dir echt dankbar!

Chris

**CalganX**

OK. Das nächste Mal versuche ich es doch nochmal, bevor ich poste... Funktioniert.
Aber leider gibt es ein Problem: beim entladen der DLL mit
FreeLibrary(hDLL); gibt es immer, dass heißt auch, wenn ich überhaupt nicht auf die Daten zugreife, eine AccessViolation.
Hier mal der ganze Source:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMainFrm.mCfgToolsClick(Sender: TObject);

type

  TProcInitPlg = function: IPlugin; stdcall;

var

  fName: string;

  iPlg: IPlugin;

  aProc: TProcInitPlg;

  hDLL: HWND;

  fProc: TFarProc;

  mApp: TApp;

begin

  with TOpenDialog.Create(nil) do begin

    if Execute then

      fName := FileName

    else Exit;

  end;

  hDll := LoadLibrary(@fName[1]);

  fProc := GetProcAddress(hDLL,'InitPlugin');

  if fProc <> nil then begin

    @aProc := fProc;

  end else Exit;

  iPlg := aProc;

  showMessage(iPlg.GetName);

  FreeLibrary(hDLL);

end;

Chris

**jbg**

Wenn man die Leute im Stich lässt (= wenn man beim Arbeiten ist), dann kommen die auch ohne Hilfe zum Ziel.

Zu deinem Problem mit der Schutzverletzung:

Zitat:

iPlg := aProc;

Hiermit liefert die DLL eine neues Interface zurück. Wenn du nun die DLL entlädst (FreeLibrary), so bleibt der Interface-Zeiger iPlg noch besteht, wohingegen der Speicherplatz des Interfaces von Windows freigegeben wird. Da Delphi beim Verlassen von mCfgToolsClick bei allen dort verwendeten Interfaces den Referenzzähler um 1 herunter setzt (bei 0 wird das Interface freigegeben), greift das Programm auf ungültigen Speicher zu, was eine AV zur Folge hat.

Um dieses Problem zu umgehen, musst du vor dem FreeLibary alle Interfaces freigeben. Dies kannst du auf folgende Weise machen:

markieren

Delphi-Quellcode:

			  showMessage(iPlg.GetName);

  iPlg := nil; // Interface freigeben

  FreeLibrary(hDLL);

Noch ein Tipp:
Wenn du mehrere Plugins gleichzeigtig im Speicher halten willst, so bietet sich die Klasse TInterfaceList aus der Unit Contnrs an.

**Die Muhkuh**

Hi,

ich hab das hier auch mal durchgemacht. Nur kommt bei mir beim compilieren, der Unit "MyAppInft" folgende Fehler:

[Fehler] Unit1.pas(29): Undefinierter Bezeichner: 'CaretX'
[Fehler] Unit1.pas(29): Undefinierter Bezeichner: 'CaretY'
[Fehler] Unit1.pas(29): Undefinierter Bezeichner: 'Clear'
[Fehler] Unit1.pas(36): Undefinierter Bezeichner: 'SetContent'
[Fehler] Unit1.pas(36): Undefinierter Bezeichner: 'GetContent'
[Fehler] Unit1.pas(36): Undefinierter Bezeichner: 'CopyToClipboard'

Aus einer DLL auf externe Funktionen zugreifen

Aus einer DLL auf externe Funktionen zugreifen

Re: Aus einer DLL auf externe Funktionen zugreifen

Forumregeln

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#1 Aus einer DLL auf externe Funktionen zugreifen 31. Mär 2003, 20:20 Hi, ich habe eine Frage: wie kann ich in einer DLL auf Funktionen meines Hauptprogrammes zugreifen? Muss ich dafür extra eine weitere DLL schreiben? Das Problem ist, dass die Funktion Instanz des Formulares ist und die Funktion auf das Formular zugreift.. Also: wie geht das? Chris
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#5 1. Apr 2003, 12:35 Hi! Super! Werde mir das gleich ansehen. Ich bin mir jetzt nicht hundertprozentig sicher (ich habe das gerade erstmal überflogen) ob das geht, aber das SynEdit ist dynamisch... Chris
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#6 1. Apr 2003, 13:10 Hi, wo muss ich die Deklartionen in der MyAppIntf einfügen? Diese Unit ist doch eine neuerstellte, oder? Chris
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#7 1. Apr 2003, 13:34 Hab' es jetzt doch hinbekommen... Aber nun gibt es noch ein weiteres Problem: könntest du mir vielleicht ein Beispiel geben, wie ich in der Anwendung auf Knopfdruck dieses PlugIn installieren kann? Ich steige da noch nicht ganz durch. Wäre dir echt dankbar! Chris
	Zitat