Funktionen aus einer Library ausrufen

[RSE]

Wie kann ich in der markierten Zeile die Funktion ausführen? Offenbar will FPC den Zeiger an MPlayer zuweisen, ich will aber das Funktionsergebnis zuweisen... Oder sind Funktionen in Librarys generell eine schlechte Idee? Ich möchte betriebssystem- und programmiersprachenunabhängig bleiben.

Code: Alles auswählen

type
  IMPlayer = interface
    ...
  end;
  TGetInterfaceForUI = function: IMPlayer; {$ifdef windows} stdcall; {$else} cdecl; {$endif}
var
  MPlayerHandle: TLibHandle;
  GetInterfaceForUI: TGetInterfaceForUI;
  MPlayer: IMPlayer;
begin
  MPlayerHandle := SafeLoadLibrary(UTF8ToSys(Application.Location+CPluginDir+CMPlayer));
  Pointer(GetInterfaceForUI) := GetProcedureAddress(MPlayerHandle,'GetInterfaceForUI');
  MPlayer := GetInterfaceForUI; // umain.pas(196,16) Error: Incompatible types: got "<procedure variable type of function:IMPlayer;StdCall>" expected "IMPlayer"
end;

[Hitman]

Code: Alles auswählen

MPlayer := GetInterfaceForUI();

[RSE]

Oha, irgendwoher kenne ich sowas... aber das es das auch in pascal gibt... Danke!