结合定制的HTML5的实施与NET的可视WebGUI中富客户端

public class mciTest

  private mciConsumerThread as Thread

 

  public sub new()

    ' The consumer side is started in its own thread

    ' create one from where the mciSendString method gets called

    mciConsumerThread = New Thread(AddressOf threadedMCIconsumer)

    mciConsumerThread.IsBackground = True

    mciConsumerThread.Start()

  end sub

 

  Private Sub threadedMCIconsumer()

    Do

        SyncLock MonitorLock

            ' wait for relase of MonitorLock object;

            ' when this statement exits, a new mciCommand

            ' has been issued

            Monitor.Wait(MonitorLock)

            ' the object has been released, so make the mci call

            ' from this thread and put the return value into the

            ' syncMciResult field

            If syncMciCommand <> "" Then

                syncMciResult = MciSendString(syncMciCommand, Nothing, 0, IntPtr.Zero)

            End If

            ' tell the other thread that a result has been obtained.

            Monitor.Pulse(MonitorLock) ' [This exits the Monitor.wait(MonitorLock) 

                                       ' command on the other thread.]

            ' start loop all over again, waiting for the next command.

        End SyncLock

    Loop

    ' As this is a background-thread, the loop exits

    ' when the thread is aborted from outside.

  End Sub

 



  ' The producer is the command being called instead of issuing 

  ' mciSendString directly:



  Public Function mciReplacement(ByVal Command As String) As Integer

 

    Dim nonLockedReturn as Integer ' this will be the return value



    SyncLock MonitorLock

        ' The MonitorObject has been freed temporarily by the 

        ' threadedMCIconsumer thread.

        ' Grab the syncMciCommand variable and memorize the mciCommand

        syncMciCommand = Command

 

        ' Release the MonitorObject, so the other thread 

        ' can process the mciSendString

        Monitor.Pulse(MonitorLock) ' [This exits the Monitor.wait(MonitorLock) command 

                                   ' on the other thread.]

        

        ' Now wait until the mci-thread signals the arrival of the result.

        Monitor.Wait(MonitorLock)

        ' result has been written into syncMciResult

        nonLockedReturn = syncMciResult

    End SyncLock

 

    ' use nonLockedReturn to get the result safely out of SyncLock

    Return nonLockedReturn

  End Function

 

  'The synced variables need to be defined

  Private MonitorLock as new Object()

  Private mciReturnValue As Integer

  Private syncMciCommand as String

 

End Class

Dim cMci as new mciTest()

cMci.mciReplacement("open ""C:\test.wav"" type waveaudio alias audiofile")

cMci.mciReplacement("play audiofile")

cMci.mciReplacement("pause audiofile")

cMci.mciReplacement("resume audiofile")