calling a .dll

[Larry]

How can I do this in Perl:

Declare Function waveInOpen Lib "winmm.dll" (lphWaveIn As Long, ByVal
uDeviceID As Long, lpFormat As WAVEFORMATEX, ByVal dwCallback As Long,
ByVal dwInstance As Long, ByVal dwFlags As Long) As Long

thanks..

 

[Sisyphus]

How can I do this in Perl:

Declare Function waveInOpen Lib "winmm.dll" (lphWaveIn As Long, ByVal
uDeviceID As Long, lpFormat As WAVEFORMATEX, ByVal dwCallback As Long,
ByVal dwInstance As Long, ByVal dwFlags As Long) As Long

Here's 2 ways you can get access to Win32 dll functions from perl:
1) Access the function using the Win32::API module. (That's the most
common way.)

2) Wrap the function using XS or the Inline::C module. For this you'll
need a C compiler.

Cheers,
Rob

 

[Anno Siegel]

How can I do this in Perl:

Declare Function waveInOpen Lib "winmm.dll" (lphWaveIn As Long, ByVal
uDeviceID As Long, lpFormat As WAVEFORMATEX, ByVal dwCallback As Long,
ByVal dwInstance As Long, ByVal dwFlags As Long) As Long

Your question makes no sense. You can't take a snippet of one
language and translate it to another.

Anno

 

[Larry]

Your question makes no sense. You can't take a snippet of one
language and translate it to another.

Anno

my fault. sorry, it was very silly of me.

my aim is get perl to load and use winmm.dll .. that's it

thanks

 

[Larry]

1) Access the function using the Win32::API module. (That's the most
common way.)

ok thanks

 

[Bart Lateur]

How can I do this in Perl:

Declare Function waveInOpen Lib "winmm.dll" (lphWaveIn As Long, ByVal
uDeviceID As Long, lpFormat As WAVEFORMATEX, ByVal dwCallback As Long,
ByVal dwInstance As Long, ByVal dwFlags As Long) As Long

My normal answer would be to use Win32::API. "byval ... as long"
translates to "N", the others as "P". Provide scalars with enough room
(assign strings to them) to hold the structures, in particular for
WAVEFORMATEX. Return value type is "N".

However, with a name like "dwCallback", I have doubts it is possible to
do. Well, there is Win32::API::Callback... I've never used it, though.