Απ: Πως Αναπαράγω ήχο από μια Mobile εφαρμογή χρησιμοποιώντας Visual Basic

tnikos — Sat, 27 Sep 2008 20:56:21 GMT

Έψαξα λίγο και βρήκα μια λύση την παραθέτω για κάθε ενδιαφερόμενο

Εισάγεις την παρακάτω κλάση και δηλώνεις

Dim MySound As New Sound("\windows\infbeg.wav")

MySound.Play()

Κλάση

Imports System.io

Public Class Sound

Private m_soundBytes() As Byte

Private m_fileName As String

Public Declare Function WCE_PlaySound Lib "CoreDll.dll" Alias "PlaySound" (ByVal szSound As String, ByVal hMod As IntPtr, ByVal flags As Integer) As Integer

Public Declare Function WCE_PlaySoundBytes Lib "CoreDll.dll" Alias "PlaySound" (ByVal szSound() As Byte, ByVal hMod As IntPtr, ByVal flags As Integer) As Integer

Private Enum Flags

SND_SYNC = &H0 ' play synchronously (default)

SND_ASYNC = &H1 ' play asynchronously

SND_NODEFAULT = &H2 ' silence (!default) if sound not found

SND_MEMORY = &H4 ' pszSound points to a memory file

SND_LOOP = &H8 ' loop the sound until next sndPlaySound

SND_NOSTOP = &H10 ' don't stop any currently playing sound

SND_NOWAIT = &H2000 ' don't wait if the driver is busy

SND_ALIAS = &H10000 ' name is a registry alias

SND_ALIAS_ID = &H110000 ' alias is a predefined ID

SND_FILENAME = &H20000 ' name is file name

SND_RESOURCE = &H40004 ' name is resource name or atom

End Enum

' Construct the Sound object to play sound data from the specified file.

Public Sub New(ByVal fileName As String)

m_fileName = fileName

End Sub

' Construct the Sound object to play sound data from the specified stream.

Public Sub New(ByVal stream As Stream)

' read the data from the stream

m_soundBytes = New Byte(stream.Length) {}

stream.Read(m_soundBytes, 0, Fix(stream.Length))

End Sub 'New

' Play the sound

Public Sub Play()

' If a file name has been registered, call WCE_PlaySound,

' otherwise call WCE_PlaySoundBytes.

If Not (m_fileName Is Nothing) Then

WCE_PlaySound(m_fileName, IntPtr.Zero, Fix(Flags.SND_SYNC Or Flags.SND_FILENAME))

Else

WCE_PlaySoundBytes(m_soundBytes, IntPtr.Zero, Fix(Flags.SND_ASYNC Or Flags.SND_MEMORY))

End If

End Sub

End Class

Πως Αναπαράγω ήχο από μια Mobile εφαρμογή χρησιμοποιώντας Visual Basic

tnikos — Sat, 27 Sep 2008 19:13:32 GMT

Θέλω να αναπαράγω αρχεία ήχου μέσα από μια Pocket pc εφαρμογή η οποία είναι γραμμένη σε Visual Basic, καμμία ιδέα?

Ευχαριστώ

Windows Mobile

Απ: Πως Αναπαράγω ήχο από μια Mobile εφαρμογή χρησιμοποιώντας Visual Basic

Πως Αναπαράγω ήχο από μια Mobile εφαρμογή χρησιμοποιώντας Visual Basic