showmessage aus DLL

[Harry M.]

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.

[Pr0g]

Du musst du Prozedur ja auch noch aufrufen, also nach:
FuncPtr:=nil; noch
TestFunktion; schreiben

MfG Pr0g

[c113plpbr]

Ich würde dir außerdem von ShowMessage in DLL's abraten, da ShowMessage meines Wissens nach, auf der VCL aufbaut, was leicht "unschöne" folgen haben könnte, wenn sie aufgerufen wird. Daher, mein Tipp: In DLL's grundsätzlich MessageBox verwenden.

ciao, Philipp

[Harry M.]

cool danke. es kann doch manchmal so einfach sein...