Thema: Delphi showmessage aus DLL

Einzelnen Beitrag anzeigen

Benutzerbild von Harry M.
Harry M.

Registriert seit: 29. Okt 2004
Ort: Halle
462 Beiträge
 
#1

showmessage aus DLL

  Alt 24. Apr 2005, 01:26
mahlzeit...

ich versuche grad die sache mit den DLL's näher zuverstehen. das tut von assabard ist mir schon wieder zu tiefgründig, deshalb habe ich es erstmal beiseite gelegt.

also ich habe eine DLL da steht drin:

Delphi-Quellcode:
library FirstDll;

uses
  SysUtils,
  Dialogs,
  Classes;

{$R *.res}

procedure Hinweis;
begin
  showmessage('Procedure aus DLL');
end;

exports
    Hinweis;

begin
end.
und in meinem aufrufenden programm steht:

Delphi-Quellcode:

type TTestFunktion = procedure;

procedure TForm1.Button1Click(Sender: TObject);

var TestFunktion : TTestFunktion;
    FuncPtr : TFarProc;
    DLLHandle : THandle;

begin
     DLLHandle := LoadLibrary(PChar('FirstDll.dll'));
     FuncPtr := GetProcAddress(DLLHandle,'Hinweis');
     if FuncPtr <> nil then begin
         @TestFunktion := FuncPtr;
         FuncPtr:=nil;
     end else showMessage('Funktion oder DLL nicht gefunden!');
     FreeLibrary(DLLHandle);
end;
ich bekomme aber weder die meldung das die dll nicht gefunden wurde noch das showmessage daraus. es passiert einfach nix noch nicht einmal eine exception oder av.
Harry
Gruß Harry
www.H-Soft.info
  Mit Zitat antworten Zitat