I'm now able to to retrieve the waveInOpen handler, but I encountered a new problem :\...

For some reason I'm not able to create a callback function inside perl script. So I used the "use inline c" to define the callback function and retrieve the callback function pointer (a bit dirty, but working), otherwise the script is stalled.

The problem here is how do I jump back to the script from the callback function ? Or how can I pass extra parameters to the the callback function ?

__HELP__

Thanks, TalS.

winmm.pm was deleted. sound.pl

Code

#!/perl

use strict; use warnings; use Data::Dumper;

use Win32::API; use threads; use Thread::Queue; use Inline 'C'; use Devel::Pointer;