MciSendString

[=?Utf-8?B?Q8Opc2Fy?=]

Could anyone tell me what am i doing bad?

When i use the "MciSendStr ing" always returns a big number instead 0 : What
it says that there is an error, and so don't play the sound.

Then direction of the sound .wav it's ok

I must not use any .ocx.

Could anyone compile it and tell me what it's wrong?

This is the code:

Public Class Form1
Inherits System.Windows. Forms.Form

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA "
(ByVal lpstrCommand As String, ByVal lpstrReturnStri ng As String, ByVal
uReturnLength As Long, ByVal hwndCallback As Long) As Long
Declare Function mciGetErrorStri ng Lib "winmm.dll" Alias
"mciGetErrorStr ingA" (ByVal dwError As Long, ByVal lpstrBuffer As String,
ByVal uLength As Long) As Long

Private Direccion As String
Private cadena As String

Sub MandarMensaje(B yVal mensaje As String)
Dim resultado As Long

cadena = Space(255)
resultado = mciSendString(m ensaje, cadena, Len(cadena), 0)
BuscarError(res ultado)
End Sub
Sub BuscarError(ByV al número As Long)
Dim errorBE As String

errorBE = Space(255)
mciGetErrorStri ng(número, errorBE, 255)
Label1.Text = errorBE
End Sub
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim openFileDialog1 As New OpenFileDialog
openFileDialog1 .InitialDirecto ry = CurDir() & "\Sonidos"
openFileDialog1 .FilterIndex = 1
openFileDialog1 .RestoreDirecto ry = True

If openFileDialog1 .ShowDialog() = DialogResult.OK Then
Direccion = openFileDialog1 .FileName

TextBox1.Text = Direccion

MandarMensaje(" close archivowav")
MandarMensaje(" open " & Direccion & " type waveaudio alias
archivowav")
MandarMensaje(" set archivowav time format milliseconds")
MandarMensaje(" status archivowav length")
If Val(Trim(cadena )) <0 Then ' Si dicho tiempo es distinto de 0
ProgressBar1.Mi nimum = 1
ProgressBar1.Ma ximum = Val(cadena)
ProgressBar1.Va lue = 1
Slider1.Minimum = 1
Slider1.Maximum = Val(cadena)
Slider1.Value = 1
End If
Label2.Text = Format(Val(cade na), "MM:SS")
End If
End Sub

Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button2.Click
Timer1.Enabled = True
MandarMensaje(" play archivowav from 0")
End Sub

Private Sub Timer1_Tick(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles Timer1.Tick
MandarMensaje(" status archivowav position")
ProgressBar1.Va lue = Val(cadena)
Slider1.Value = Val(cadena)
Label2.Text = Format(Progress Bar1.Maximum - Val(cadena), "MM:SS")
End Sub

Private Sub Button3_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button3.Click
MandarMensaje(" stop archivowav")
Timer1.Enabled = False
End Sub

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button4.Click
If Button4.Text = "Pausa" Then
MandarMensaje(" pause archivowav")
Button4.Text = "Continuar"
Else
MandarMensaje(" resume archivowav")
Button4.Text = "Pausa"
End If
End Sub
End Class
Thanks everyone
--
Gracias a todos por colaborar
--
Gracias a todos por colaborar

[Herfried K. Wagner [MVP]]

"César" <César@@discus sions.microsoft .comschrieb:

When i use the "MciSendStr ing" always returns a big number instead 0 :
What
it says that there is an error, and so don't play the sound.
[...]
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA "
(ByVal lpstrCommand As String, ByVal lpstrReturnStri ng As String, ByVal
uReturnLength As Long, ByVal hwndCallback As Long) As Long
Declare Function mciGetErrorStri ng Lib "winmm.dll" Alias
"mciGetErrorStr ingA" (ByVal dwError As Long, ByVal lpstrBuffer As String,
ByVal uLength As Long) As Long

Your declarations are wrong. Use these instead (untested):

\\\
Private Declare Auto Function mciSendString Lib "winmm.dll" ( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnStri ng As String, _
ByVal uReturnLength As UInt32, _
ByVal hwndCallback As IntPtr _
) As Int32

Private Declare Auto Function mciGetErrorStri ng Lib "winmm.dll" ( _
ByVal dwError As Int32, _
ByVal lpstrBuffer As String, _
ByVal uLength As UInt32 _
) As Int32
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>