unit HiBASS_dll;

interface

uses kol,Share,Debug,BASS;

type
 THIBASS_dll = class(TDebug)
  private
   err:integer;
    public
     _data_NameDll:THI_Event;
     _event_onLoad:THi_Event;
      
  procedure _work_doLoad(var data:TData; index:word);
 end;

implementation

procedure THIBASS_dll._work_doLoad(var data:TData; index:word);

 begin
    err:= BASS_PluginLoad(PChar(ReadString(Data, _data_NameDll)), 0);
   _hi_onEvent(_event_onLoad, err);

 end;

end.