DLL laden/prüfen ob vorhanden.

[BullsEye]

Hallo,

ich will eine DLL Datei laden um dessen Funktionen und Proceduren nutzen zu können.
Bis jetzt funktioniert das auch. Aber ich halte die Lösung nicht für sehr geschickt.

Delphi-Quellcode:

procedure TfrmMainSuche.FormCreate(Sender: TObject);
begin
  IF NOT FileExists('plugins/my_dynamic_link_libary.dll') THEN btnTyp.Hide;
end;

Mit dem "btnTyp" kann ich dann das Formular "aufklappen/ausfahren" und dort hab ich dann ein paar Edits und Buttons etc... die mit den Funktionen der DLL belegt sind.

Wenn ich nun ne (BSP Textdatei) anlege und die "my_dynamic_link_libary.dll" nenne, so ist der btnTyp auch sichtbar! Somit habe ich Zugang zu den Funktionen, die ich aber nicht nutzen kann!

PS: Ich bin noch neu auf dem Gebit der DLL's.

Meine DLL ist wie hier aufgebaut: Tutorial

Thx für die Hilfe ;)

[himitsu]

am Einfachsten du erstellst dir in der DLL eine Prüffunktion ...
- erstmal nachschauen ob DLL vorhanden ist
und diese laden ... wenn sie nicht zu laden geht, dann ist es wohl auch keine DLL
- dann schauen ob diese (komisch benannte) Funktion existiert
- ihr eine bestimmten Parameter geben
- und wenn sie dann anhand des erhaltenen Parameters ein bestimmtest Ergebinis (Result) liefert,
dann vertragen sich Beide vermutlich

> DLL kann so leicht Anhand des Parameters prüfen ob die EXE ihr gefällt
und sie mit dieser zusammenarbeiten möchte
> und die EXE erkennt an dem Ergebnis (Result) ob sie die DLL mag ....

zusätzlich könnte man dann noch Dinge direkt aus der DLL auslesen (z.B. die Versionsinfos)

[craash]

wärs nicht einfacher via

Delphi-Quellcode:

try
...
except

?

[himitsu]

wenn du eine x-beliebige Funktion aufrufst und die womöglich, von Sicht deines Programms aus willkürlich, dann Daten in deinem RAM ändert, dann wäre das nicht so gut und die Exception abzufangen bringt vermutlich dann nimmer viel.

[Luckie]

Na ja. Man kann auch mit Vollgas über die Kreuzung fahren und wenn es kracht, war rot. ;) Und API Funktionen lösen keine Exceptions aus. Ich würde gucken, ob sie vorhanden ist (aber bitte mit absoluten Pfaden) und wenn sie vorhnden ist versuchen eine Funktion zu laden. Funktioniert das ist sie vorhanden und auch die richtige DLL. Alernativ könnte man auch versuchen die Versionsinformationen auszulesen: Version und Hersteller/Autor.

[BullsEye]

Würde theoretisch doch schon reichen nur die Versionsinformation auszulesen oder?

[Luckie]

Jupp. Und das wäre gar nicht so dumm. Wenn du die Versionsinformationen pflegst in der DLL, kannst du auch auf zukünftige Erweiterungen reagieren.

[BullsEye]

Nochmal ne Frage zum Thema DLL. (Gehört noch hierzu ;) )

Undzwar hab ich ein Problem mit dem Laden der DLL. Wie oben schon genannt, hab ich das Tutorial vom Delphi Treff durchgearbeitet.
Mit dem Laden zum Ladenzeitpunkt klappt alles wunderbar:

Delphi-Quellcode:

unit read_dir;

interface

uses
  SysUtils,
  Classes;
  
  function ListSubDirs(sDir: string; const sList: TStrings):String;

implementation

  function ListSubDirs(sDir: string; const sList: TStrings):String;
  external 'plugin/read_dir.dll';

end.

ABER das Laden zur Laufzeit funktioniert iwie nicht:

Delphi-Quellcode:

unit read_dir;

interface

  uses
  SysUtils,
  Classes,
  Windows;

type
  TOrdnernamen = function (sDir: string; const sList: TStrings):String; stdcall;
  function ListSubDirs(sDir: string; const sList: TStrings):String;

implementation

function ListSubDirs(sDir: string; const sList: TStrings):String;
var Ordnernamen : TOrdnernamen;
    Handle      : THandle;
begin
  Handle := LoadLibrary(PChar(ExtractFilePath(ParamStr(0))+'read_dir.dll'));
  if Handle <> 0 then
  begin
    @Ordnernamen := GetProcAddress(Handle, 'ListSubDirs');
    if @Ordnernamen <> nil then
    begin
      result := Ordnernamen(sDir,sList);
    end;
    FreeLibrary(Handle);
  end;
end;



end.

Fehler beim Lesen der Addresse 000...(nur 0)

[Apollonius]

Ist das stdcall auch in der DLL?

[BullsEye]

:wall: Wieder son dummer Fehler! Jetzt gehts. Danke!