#pas
unit hiAsio_inits;

interface

uses Kol,Share,Debug,bassasio;

type
  THIAsio_inits = class(TDebug)
   private
   public

    _data_handle:THI_Event;
    _event_on_error:THI_Event;
    _event_on_ok:THI_Event;

    procedure _work_init(var _Data:TData; Index:word);
  end;

implementation


procedure THIAsio_inits._work_init;

var h:integer;

begin
h := Readinteger(_Data, _data_handle, 0); 

if BASS_ASIO_Init(h) then
_hi_onEvent(_event_on_ok)
else _hi_onEvent(_event_on_error, BASS_ErrorGetCode());

end;

end.