Powerbasic 1 zeilen problem

[marabu]

Hallo Emil,

ich weiß nicht wo du einen rekursiven Aufruf von BBP_Plugin() siehst.

Irgendwo musst du etwas ähnliches wie das hier gemacht haben:

Delphi-Quellcode:

const
  LIB_NAME = '?';

type
  TBbpPluginRec = record
    Msg: Integer;
    ParentWindow: Integer;
    DC: Integer;
    // ...
  end;

  TBbpPluginFunc = function (var bbp: TBbpPluginRec): Integer;

var
  BbpPluginFunc: TBbpPluginFunc;
  hLib: THandle;

begin
  // hLib := LoadLibrary(LIB_NAME);
  // error check ...
  @BbpPluginFunc := GetProcAddress(hLib, 'BBP_Plugin');
  // ...
end

Der Code aus deinem Beitrag #1 kapselt einfach den dynamischen Aufruf der DLL-Funktion:

Delphi-Quellcode:

function BBP_Plugin(var bbp: TBbpPluginRec): Integer;
begin
  // ...
  Result := BbpPluginFunc(bbp);
end;

Die Werte für Author, Title etc. werden im Record bbp zurückgegeben.

Gute Nacht