How to integrate Bass library to Lazarus?

[fbenites]

Guys, i'm kinda beginner herein  and using Lazarus, but particular interested in dealing with audio data, specially reading from microphone... Seems that Bass library can support it but I still have no clue how to put things together, having downloaded Bass and installed a default Lazarus.
Can anyone help me out? It is just a matter of unzip files and folders in the right place or Do i have to create something FROM the original library pack?

Thanx in advance.

Benites

[Lulu]

Hello Benites,
1 ) dezip bass24.zip.
2 ) Copy bass.dll (if you are on Windows) in your application folder, this is the binary library
3 ) In the folder 'delphi' you will found 'bass.pas': copy this file to your application folder, this is the pascal header for the library.
4 ) Of course, add 'bass' in the uses clause in your application:

Code: Pascal  [Select][+][-]

1. uses classes,...
2.      bass,...

You can also convert the delphi demo to Lazarus project.

[fbenites]

Worked fine!
Thanx so much!
No need to apologize for the english

[Lulu]

Good !
It took me at least 10 minutes to write my answer with the help of a translator ! 

[fbenites]

Lulu,

I'm having a really hard time in what I imagine could be quite simple: I'm just a noobie and all that I need is to use microphone level to trigger any event ?
(i.e."if mic > 40db then something")

Can you give me any advice to start from?
Reading a bunch of doc material of several different library/technologies (Bass?ACS?...) I feel dragged by an avalanche.

[Fred vS]

Hello.

You may try uos: https://github.com/fredvs/uos.

Take a look at /examples/simplerecorder.lpi

Fre;D

[fbenites]

Fact is I'm going back and forth thru documentation trying to avoid specific issues of this or that audio technology... Nevertheless, I'll insist in Bass. I borrowed the following code below and it's quite simple, but Lazarus failed me claimming the statement of the RecordingCallback call:
project1.lpr(15,51) Error: Incompatible type for arg no. 4: Got "<address of function(LongWord;Pointer;LongWord;LongWord):Boolean;StdCall>", expected "<procedure variable type of function(LongWord;Pointer;LongWord;Pointer):LongBool;StdCall>"

program rec;
uses Windows, Bass;

(* This function called while recording audio *)
function RecordingCallback(h:HRECORD; b:Pointer; l,u: DWord): boolean; stdcall;
 var level:dword;
 begin
  level:=BASS_ChannelGetLevel(h);
  write(''#13,LoWord(level),'-',HiWord(level),'         ');
  Result := True;
 end;

begin
  BASS_RecordInit(-1);
  BASS_RecordStart(44100, 2, 0, @RecordingCallback, nil);
  Readln;
  BASS_RecordFree;
end.

[Lulu]

Hi,
sorry, not enough time available to really look into the problem ...
As compiler say, the fourth parameter is a pointer.
Try:

Code: Pascal  [Select][+][-]

1. function RecordingCallback(h: HRECORD; b: Pointer; l: DWord; u: Pointer): boolean; stdcall;

[Jurassic Pork]

hello,

I'm having a really hard time in what I imagine could be quite simple: I'm just a noobie and all that I need is to use microphone level to trigger any event ?
(i.e."if mic > 40db then something")
Reading a bunch of doc material of several different library/technologies (Bass?ACS?...) I feel dragged by an avalanche.

With ACS, you can do what you can see in attachment.
1 - Choose an audio source.
2 - Choose what part of spectrum you want filter.
3 - Choose a threshold level to trigger an event.
4 - Show the spectrum of the input source in real time.
5 - Show the max level value in real time.

Friendly, J.P

[taazz]

any links to a working vresion of acs? last time I checked it wasn't working (or updated?) at all.

[Jurassic Pork]

on windows 10 with Lazarus 1.8.2 32 bits, i use ACS version 3.0.0.0 installed from Package On Line manager.
in attachment, my project to monitor input audio source. 
Friendly, J.P

[taazz]

on windows 10 with Lazarus 1.8.2 32 bits, i use ACS version 3.0.0.0 installed from Package On Line manager.
in attachment, my project to monitor input audio source. 
Friendly, J.P

Oh OPM. Ok thanks for the input.

[Fred vS]

Re-hello.

With uos, it will work also for Windows, Linux, FreeBSD, Mac OSX, ARM rpi...

See video in attachment ---> the VU meters and the frequencies spectrum...
(source using uos is here: https://github.com/fredvs/strumpract)

Fre;D

[User137]

I also made a unit for BASS https://github.com/Zaflis/nxpascal/blob/master/src/nxBass.pas
Using the class will be far easier when just wanting basic sort of audio working. Only dependency is nxTypes unit because bass can integrate with 3D gaming.