Forum > Audio and Video
Audio component pack for Microphone in support, Raspberry
pascalbythree:
Hey FPC Brothers,
Does anybody have a name for a extra component pack for audio support on Raspberry Linux ?
Audio Component Suite does not seem to run with audio IN
UOS is to complex, and PXL does not seem to support it.
The idea is to program a graphic equalizer on my Televison, with a HDMI cable to my RPI.
Just for Show!
Maybe somebody knows a differrent solution on the internet,
Greets Wouter van Wegen, PascalByThree
PascalDragon:
If the Linux distribution in question is using PulseAudio you could simply hook yourself at the corresponding monitoring device. I do the same for my light organ. When I'm home from work I can provide you with the necessary units.
pascalbythree:
C00L, can you please send them up to woutervanwegen@gmail.com ? Great thanks in advance!
Fred vS:
--- Quote from: pascalbythree on July 21, 2022, 01:28:29 pm ---UOS is to complex, and PXL does not seem to support it.
--- End quote ---
Hello.
May I ask you what is to complex with uos and what is PXL?
Tenor sound aplications working on Rpi, like Audacity, use the same libraries as uos.
[EDIT] There was a answer to your topic on uos forum some years ago:
http://uos-forum.108.s1.nabble.com/Microphone-IN-to-equalizer-on-Raspberry-td662.html
PascalDragon:
--- Quote from: pascalbythree on July 21, 2022, 01:42:12 pm ---C00L, can you please send them up to woutervanwegen@gmail.com ? Great thanks in advance!
--- End quote ---
There isn't much to send. I'm using the PulseAudio units from here and the important parts of the code are as follows:
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---uses pulse_simple; var pulse: PPASimple; ss: TPASampleSpec; err: cint; buf: array[0..Pred(4096)] of Byte;begin ss.Init; ss.Format := sfFloat32LE; ss.Rate := 44100; ss.Channels := 1; pulse := TPASimple.New(Nil, 'NameForApp', sdRECORD, Nil, 'NameForStream', @ss, Nil, Nil, @err); if not Assigned(pulse) then begin Writeln('Failed to connect to PulseAudio server; error: ', err); Halt(1); end; while { whatever condition } do begin if pulse^.Read(@buf[0], Length(buf), Nil) < 0 then Continue; { do something with the sample } end; pulse^.Free;end.
Once you've started your application you can start e.g. PavuControl and in the Record tab you can select which monitor should be used for the client you connected. PulseAudio will remember this as long as the NameForApp stays the same.
--- Quote from: Fred vS on July 21, 2022, 01:55:01 pm ---May I ask you what is to complex with uos and what is PXL?
--- End quote ---
Platform eXtended Library
Navigation
[0] Message Index
[#] Next page