Dll zur lauzeit Einbinden

[Sir K]

Hallo alle miteinander xD,

ich hab ein kleines Problem undd zwar möchte ich ein dll zu Laufzeit einbinden und bekomme bein aufruf immer die compilermeldung "nicht genügen wirkliche Parameter".

Schnittstell in einer ExtraUnit:

Delphi-Quellcode:

type
  TDeleteKey = function(AKey: PChar): Boolean; stdcall;
  function dllDeleteKey(AKey: PChar): Boolean;


implementation

function dllDeleteKey(AKey: PChar): Boolean;
var
  DeleteKey: TDeleteKey;
  Handle: THandle;
begin
  Handle:=LoadLibrary(PChar(gsPfmRegistry));
  if Handle <> 0 then
    begin
      @DeleteKey:=GetProcAddress(Handle, 'DeleteKey');
      if @DeleteKey <> nil then
        Result:=DeleteKey(AKey);
      FreeLibrary(Handle);
    end;
end;

Aufruf:

Delphi-Quellcode:

if pfmRegistry.TDeleteKey(PChar('Hallo')) then
    ShowMessage('Funktioniert')
  else
    ShowMessage('Funktioniert nicht');

lg

Sir K

[NormanNG]

Hi,

du musst die Funktion aufrufen und nicht den Typ

Delphi-Quellcode:

if dllDeleteKey(PChar('Hallo')) then
    ShowMessage('Funktioniert')
  else
    ShowMessage('Funktioniert nicht');

[Sir K]

Achsoo... ok alles klar Danke!!

lg

Sir K

[Sir K]

Ok hab mir das jetzt mal angesehn und was merkwürdiges festgestellt.

Diese routine wird beim aufruf immer wieder ausgeführt, bis die Meldung eine StackOverFlow exception auftritt.
Weis jemand woran das liegt?

heíer nochmal die routine:

Delphi-Quellcode:

function DeleteKey(AKey: PChar): Boolean;
var
  ltDeleteKey: TDeleteKey;
  lhHandle: THandle;
begin
  lhHandle:=LoadLibrary(PChar(gsPfmRegistry));
  if lhHandle <> 0 then
    begin
      @ltDeleteKey:=GetProcAddress(lhHandle, 'DeleteKey');
      if @ltDeleteKey <> nil then
        Result:=DeleteKey(AKey);
      FreeLibrary(lhHandle);
    end;

lg

Sir K

[Angel4585]

Erklär doch mal was deiner Meinung nach da Zeile für Zeile passiert und warum es abbrechen sollte.

Die Methode ruft sich schliesslich immerwieder selbst auf.

[Sir K]

...oh da hät ich auch selbst drauf kommen können :wall:

naja Danke!!!

lg

Sir K