[ VB 6.0 ] Wav-files afspelen

[anoniem]

Ik il wav-files afspelen met mijn vb-proggie. Ik maak dus gebruik van het MultiMedia Control. Hij speelt de geluiden el af, maar ik hoor echter geen geluid. Weet iemand waar door dit komt? [code:1:b270166e3a] ' Set properties needed by MCI to open. MMControl1.Notify = False MMControl1.Wait = True MMControl1.Shareable = False MMControl1.DeviceType = "WaveAudio" MMControl1.FileName = App.Path & "/modules/" & lblMName.Caption & cmbMSound.Text ' Open the MCI WaveAudio device. MMControl1.Command = "Open"[/code:1:b270166e3a]

[anoniem]

Ik heb ook met die mmcontrol zitten stoeien maar kreeg hem niet werkende. Toen kwam ik egens het volgende tegen. Geen control nodig en werkt als een trein. [code:1:bd9fb90fdc]mciExecute ("play " & "c:\dir\geluidsfile.wav") [/code:1:bd9fb90fdc]

[anoniem]

[quote:0908904ef2="bosjvd"]Ik heb ook met die mmcontrol zitten stoeien maar kreeg hem niet werkende. Toen kwam ik egens het volgende tegen. Geen control nodig en werkt als een trein. [code:1:0908904ef2]mciExecute ("play " & "c:\dir\geluidsfile.wav") [/code:1:0908904ef2][/quote:0908904ef2] werkt alleen niet... '[b:0908904ef2]Sub or Function not defined[/b:0908904ef2]'. Is er nog een reference die ik moet toevoegen?

[anoniem]

[color=green:e166e54ba3][i:e166e54ba3]Is er nog een reference die ik moet toevoegen?[/i:e166e54ba3][/color:e166e54ba3] Yep: Public Declare Function mciExecute& Lib "winmm.dll" (ByVal lpstrCommand As String)

[anoniem]

[quote:77c72a4d8e="Kamikaasje"][color=green:77c72a4d8e][i:77c72a4d8e]Is er nog een reference die ik moet toevoegen?[/i:77c72a4d8e][/color:77c72a4d8e] Yep: Public Declare Function mciExecute& Lib "winmm.dll" (ByVal lpstrCommand As String)[/quote:77c72a4d8e] Kan ik ook variabelen gebruiken in die opdracht? Bijvoorbeeld: [code:1:77c72a4d8e]mciExecute (play & strGeluidPad)[/code:1:77c72a4d8e] Ik krijg nl. de melding dat het stuurprogramma de opdracht niet herkent.

[anoniem]

Sorry die had ik ff over het hoofd gezien. ik heb een iets andere. Zal wel niet uitmaken. [code:1:abc2888247]Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long [/code:1:abc2888247]

[anoniem]

Je kan variablen gebruiken. Ik denk dat je de foutmelding krijgt omdat je play zonder "" gebruikt hebt. Moet dus zijn "play ". Let op de spatie.

[anoniem]

[quote:56a2b2fcec="bosjvd"]Sorry die had ik ff over het hoofd gezien. ik heb een iets andere. Zal wel niet uitmaken. [code:1:56a2b2fcec]Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long [/code:1:56a2b2fcec][/quote:56a2b2fcec] Doet het nog niet. Ik krijg de melding dat het opgegeven MCI apparaat niet geopend is of niet wordt herkend. :-? <XML:EDIT>Klopt, zag het net opeens :P </XML:EDIT>

[anoniem]

Heb je de declare wel in een module staan en niet in de form code.

[anoniem]

[quote:2afc94af2c="bosjvd"]Heb je de declare wel in een module staan en niet in de form code.[/quote:2afc94af2c] jazeker 8)

[anoniem]

Wat gek. Ik heb ff een nieuw projectje gemaakt en het werkt perfect. Module code: [code:1:f48af1425c]Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long [/code:1:f48af1425c]En form code met 1 button:[code:1:f48af1425c]Private Sub Command1_Click() mciExecute ("play " & "c:\ChatBeep.wav") End Sub [/code:1:f48af1425c]Druk op de knop en krijg geluid.

[anoniem]

[quote:0cff58efd9="bosjvd"]Wat gek. Ik heb ff een nieuw projectje gemaakt en het werkt perfect. Module code: [code:1:0cff58efd9]Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long [/code:1:0cff58efd9]En form code met 1 button:[code:1:0cff58efd9]Private Sub Command1_Click() mciExecute ("play " & "c:\ChatBeep.wav") End Sub [/code:1:0cff58efd9]Druk op de knop en krijg geluid.[/quote:0cff58efd9] :-? :-? :-? Wat raar, nu werkt hij bij mij opeens wel... :oops: :-? Nou ja, in elk geval erg bedankt. Maar weet je of je hiermee ook avi-bestanden mee kunt afspelen?

[anoniem]

Nee, dat weet ik niet. Kwestie van proberen denk ik.

[anoniem]

AVI kan ook. Elk [url=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_device_types.asp]mci compatible device[/url] kun je afspelen met mciExecute.

[anoniem]

Even nog een antwoord op je allereerste vraag; Als je het programma voor de eerste keer opstart hoor je dan wel geluid? Als hij namelijk 1x afgespeeld is moet hij eerst terug gezet worden naar het begin. Bijvoorbeeld zo: [code:1:fbef0efa93]Private Sub MMControl1_Done(NotifyCode As Integer) MMControl1.Command = "Prev" End Sub[/code:1:fbef0efa93] Eventueel kan je natuurlijk ook altijd het windows media player control toevoegen aan je vb. Maar bij mij werkt het MMControl dus gewoon. Groeten, Wouter