Delphi-Wrapper für C-DLL - Frage zu Kapselung

[sirius]

Du msst die Funktion innerhalb der Klasse kapseln:

Delphi-Quellcode:

type 
  TFuncGetVersion=function:Widestring;stdcall;

  TTestKlasse = Class (TObject) 
  private
   FFuncGetVersion:TFuncGetVersion; 
  public 
   GetVersion: function: WideString;
    ... 
  constructor Create; 
end; 
implementation 
constructor TTestKlasse.Create; 
begin 
  inherited Create; 
// ... DLL laden ... 
  @FFuncGetVersion := GetProcAdress (Dll, 'GetVersion'); 
... 
end;
function TTestKlasse.GetVersion:WideString;
begin
  if assigned(FFuncGetVersion) then
    result:=FFuncGetVersion; 
  else
    Fehler;
end;