Dynamisches Menü und Dll Funktion

[Tonic1024]

Hi...

Wenn du die Tuts gelesen hast, biste bestimmt auf das hier gestoßen:

Delphi-Quellcode:

TGetString = function():string;

function getDatenText(DBCon: string): string;
// DBcon -> Name der DLL
var dtext: TGetString;
    Handle: THandle;
    filepath: String;
begin
  filepath:=ExtractFilePath(ParamStr(0))+DBCon;
  Handle:=LoadLibrary(@filepath[1]);
  if Handle <> 0 then begin
    @dtext := GetProcAddress(Handle, 'getDatasetText'); // getDatasetText -> Name der Funktion
    if @dtext <> nil then begin
      result:=dtext();
    end;
    FreeLibrary(Handle);
  end;
end;

Damit hast du dir eine Funktion geschaffen, die die eine feste Funktion aus einer variablen DLL holt... Den Funktionsnamen kannste natürlich auch noch variabel machen!

BTW:
Du solltest nicht unbedingt Strings benutzen, wenn du mit DLL's arbeitest. Bei mir war es aber notwendig - Tschuldigung 8)