BASS ASIO examples for Delphi

[dbaxter]

Tried setting up the demo software in the bassio14.zip with Delphi 12.3 and the speakers demo gives 61 errors right away. Before trying to resolve all those, I was wondering if there were updated demos available anywhere. Thank you.

[David_AVD]

Dave, there's an extra begin in this function of unit1.pas file:

Code Select Expand

function AsioProc(input: boolean; Channel: DWORD; Buffer: Pointer; Length: DWORD; User: Pointer): DWORD; stdcall;
begin // <---- This line shouldn't be there
  {little reminder the "Channel: DWORD" in the Asio proc is the AsioChannel and not the Bass Channel Handle }
var
  c: DWORD;
begin
  c := Bass_ChannelGetData(Chan[DWORD(User)], buffer, Length);
  if (c = -1) then c := 0;
  Result := c;
end;
You'll also need to add bass and bassasio to the project.

[dbaxter]

Thank you, that worked and I was able to compile the example. Now to learn how to integrate it...