Topic: Wav File Playing...

[Columbia]

This is for all you guru's among geeks  

I want to play a *.wav file from my VisualLISP function.  How does one go about doing that.  I'm already familiar with the DOSLib coolness, however I want to be able to ship this out to another user who may or may not have DOSLib, and I don't want to ship the DOSLib arx to them.

Any and all help here would be appreciated.   Thanks.

[SMadsen]

All I have is a VBA thingie:

Code: [Select]

Private Declare Function PlaySound Lib "winmm.dll" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Const SND_ASYNC = &H1         '  play asynchronously
Private Const SND_FILENAME = &H20000  '  file name
Private Const NO_ERROR = 0


Private Sub PlayItSam()
  PlaySound "D:\WINNT\Media\notify.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

[CAB]

http://theswamp.org/phpBB2/viewtopic.php?t=993&highlight=wav+file
and
http://theswamp.org/phpBB2/viewtopic.php?t=370&highlight=wav+file

[ImaJayhawk]

Out of curiosity how would you do it using doslib?

--ImaJayhawk

[Columbia]

Really, really simple...

Code: [Select]


(dos_wav "filename.wav")


[Columbia]

Stig, CAB, Thanks.  I appreciate the info.

...But (there's always a "but", isn't there?) what I really wanted was a method of interacting with Win32API through VLISP to play it.  I would still have to ship this file VBA file along with the vlx.

Any thoughts?

[Keith™]

Have you tried using Rundll32 to play the file through the winmm.dll ?

[Columbia]

Ummm..... Keith you've caught me completely ignorant.  I don't even know what Rundll32 is, nevermind trying to use it.

[Keith™]

rundll32 is a program that you can use to run exported dll functions (typically C and/or C++ functions) winmm.dll is the dll that contains the function to play multimedia files. I have not explored how to make it happen, but I am quite sure given the correct syntax it would be possible.

[Dommy2Hotty]

All I have is a VBA thingie:

Code: [Select]

Private Declare Function PlaySound Lib "winmm.dll" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Const SND_ASYNC = &H1         '  play asynchronously
Private Const SND_FILENAME = &H20000  '  file name
Private Const NO_ERROR = 0


Private Sub PlayItSam()
  PlaySound "D:\WINNT\Media\notify.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

Pardon my ignorance, but how do I get that to run?

[Bob Wahr]

type VBAMAN , click NEW then click VBA EDITOR.  Paste that code into the IDE put your cursor somewhere in the sub portion of it and press F5

[Dommy2Hotty]

Okay...now what if I wanted to put this in as part of a reactor?  Particularly when an object is erased?

[Bob Wahr]

Code: [Select]

Private Declare Function PlaySound Lib "winmm.dll" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Const SND_ASYNC = &H1         '  play asynchronously
Private Const SND_FILENAME = &H20000  '  file name
Private Const NO_ERROR = 0


Private Sub AcadDocument_ObjectErased(ByVal ObjectID As Long)
 PlaySound "D:\WINNT\Media\notify.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

[deegeecees]

Code: [Select]

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
    If (VBA.UCase$(CommandName) = "ERASE") Then
        Call PlayItSam
    End If
End Sub

[Dommy2Hotty]

Even when I tried the original code, I never got a macro to execute.  I'm not familiar with VBA, so I apologize in advance.  But I followed the procedure Bob outlined, but when I hit F5, I don't have anyt macro to select to run.  :dummy: