DLL-Problem

[CalganX]

Hi,
ich bin derzeit dabei ein einigermaßen ordentliches Plugin-System zu programmieren. Dazu sucht der User mit Hilfe eines OpenDialogs die DLL aus. Dann wird mit dem folgenden Code die DLL geladen und die Installationsprozedur ausgeführt und der DLL-Pfad wird in eine XML-Datei geschrieben, damit sie beim nächsten Starten auch wieder geladen wird...

Hier der SourceCode:

Delphi-Quellcode:

procedure TForm1.Installieren1Click(Sender: TObject);
var
  InstFunc: TInstall;
  InstFuncPtr: TFarProc;
  DLLHandle: THandle;
  PlgXML: IXMLDOMDocument2;
  Plgs: IXMLDOMNode;
  Plg: IXMLDOMNode;
  PlgPath: IXMLDOMNode;
begin
  if OpenDialog2.Execute then begin
    DLLHandle := LoadLibrary(PChar(OpenDialog1.FileName));
    InstFuncPtr := GetProcAdress(DLLHandle,'install');
    if FuncPtr <> nil then begin
      @InstFunc := FuncPtr;

      if InstFunc then begin
        MessageDlg('Plugin-Installation erfolgreich', mtInformation, [mbOK], 0);
        PlgXML := CoDOMDocument40.Create;
        PlgXML.setProperty('NewParser', True);
        PlgXML.load(ExtractFileName(Application.ExeName)+'plugins.xml');
        if PlgXML.parseError.errorCode <> 0 then
        begin
          ShowMessage('XML Fehler: '#13#10 + PlgXML.parseError.reason);
          Exit;
        end;
        Plgs := PlgXML.documentElement;

        Plg := PlgXML.createElement('plugin');
        PlgPath := PlgXML.createElement('path');
        PlgPath.text := OpenDialog2.FileName;
        Plg.appendChild(PlgPath);

        Plgs.appendChild(Plg);

        PlgXml.save(ExtractFileName(Application.ExeName)+'plugins.xml');

      end;

      FuncPtr := nil;
    end else ShowMessage('Plugin-DLL ist Fehlerhaft');
    FreeLibrary(DLLHandle);
  end;
end;

Das Problem liegt in der Anweisung "GetProcAdress()" und der Rest danach scheint auch nicht wirklich zu funktionieren... In der OH steht nix zu DLLs...

Hope for fast help,
Chris

[jbg]

Zitat von Chakotay1308:

Das Problem liegt in der Anweisung "GetProcAdress()"

Ich denke eher, dass das Problem in der Verwendung von 2 Variablen liegt?

Zitat:

Delphi-Quellcode:

InstFuncPtr := GetProcAdress(DLLHandle,'install'); 
if FuncPtr <> nil then begin

Schau dir die Variablennamen nochmal genau an.

[CalganX]

Hi,
danke, habe es geändert, aber er hängt immer noch bei GetProcAdress...

Chris

[Christian Seehase]

Moin Chris,

dazu fallen mir erst einmal zwei Sachen ein:

1. Gibt LoadLibrary überhaupt ein gültiges Handle (<> 0) zurück
2. Heisst die Funktion die aufgerufen werden soll wirklich install oder etwa Install. Es muss genau auf die Gross-/Kleinschreibung geachtet werden.

[CalganX]

Er bricht ja nicht während der Laufzeit ab, sondern beim compilieren... "Undeclared identifier: GetProcAdress"...

chris

[Christian Seehase]

Moin Chris,

wäre ganz hilfreich gewesen, wenn Du das dazugeschrieben hättest

Die Funktion heisst GetProcAddress mit zwei d.

[CalganX]

*ARGH*
Jetzt läufts.... Aber... aber... im Buch, da.... NEIN! Da stands auch...
Sinnloseter Beitrag in der Geschichte der DP...

Chris

[Luckie]

Falls du noch mehr Infos brauchst, kuckst du hier: DLL-Tutorial vom Meister Assarbad