Funktion über ihren Namen als String aufrufen

[Furtbichler]

Wenn man die Routinen in einer DLL vorhält, kann man diese zur Laufzeit unter ihrem Namen aufrufen.

Delphi-Quellcode:

Procedure CallProcedure (aDLLHandle : THandle; aFunctionName : String; aInParam : Variant; Var aOutParam : Variant);
Var
  pProcPtr: TDLLProcedure;

Begin
  pProcPtr := GetProcAddress(aDLLHandle, PChar(aFunctionName));
  If Not Assigned(pProcPtr) Then
    Raise Exception.CreateFmt('Function "%s" Not Found (%d)', [aFunctionName, GetLastError]);
  aOutParam := Null;
  pProcPtr(aInParam, aOutParam);
End;

Der Schnippsel ist aus einem Uralt-Projekt wo mit Plugins gearbeitet wurde.