; ''''-----------------------------------------------------------------------------
Dim CaptureData As Byte() = Nothing
Dim ReadPos As Integer
Dim CapturePos As Integer
Dim LockSize As Integer
If Nothing Is applicationBuffer Or Nothing Is WaveFile Then
Return
End If
applicationBuffer.GetCurrentPosition(CapturePos, ReadPos)
LockSize = ReadPos - NextCaptureOffset
If LockSize < 0 Then
LockSize += CaptureBufferSize
End If
'''' Block align lock size so that we are always write on a boundary
LockSize -= LockSize Mod NotifySize
If 0 = LockSize Then
Return
End If
'''' Read the capture buffer.
CaptureData = CType(applicationBuffer.Read(NextCaptureOffset, GetType(Byte), LockFlag.None, LockSize), Byte())
'''' Write the data into the wav file
Writer.Write(CaptureData, 0, CaptureData.Length)
'''' Update the number of samples, in bytes, of the file so far.
SampleCount += CaptureData.Length
'''' Move the capture offset along
NextCaptureOffset += CaptureData.Length
NextCaptureOffset = NextCaptureOffset Mod CaptureBufferSize '''' Circular buffer
End Sub ''''RecordCapturedData
Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
InputFormat = CType(Formats(ListBox2.SelectedIndex), FormatInfo).format
Label1.Text = CType(ListBox2.SelectedItem, FormatInfo).format.ToString
End Sub
Sub StartOrStopRecord(ByVal StartRecording As Boolean)
''''-----------------------------------------------------------------------------
'''' Name: StartOrStopRecord()
'''' Desc: Starts or stops the capture buffer from recording
''''-----------------------------------------------------------------------------
If StartRecording Then
'''' Create a capture buffer, and tell the capture
'''' buffer to start recording
CreateCaptureBuffer()
applicationBuffer.Start(True)
Else
'''' Stop the capture and read any data that
'''' was not caught by a notification
If Nothing Is applicationBuffer Then
  上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> [聊天工具]让IE 7也用上鼠标手势 [常用软件]IE 7出炉,Firefox 2当道.谁才是“王者”? [常用软件]绕过WGA安装IE 7 Beta3 5450 [VB.NET程序]VB.NET实现DirectSound9 (8) 音效控制器 [VB.NET程序]VB.NET实现DirectSound9 (6) 声音特效 [VB.NET程序]VB.NET 实现DirectSound9 (5) DS3D2 [VB.NET程序]用VB.Net实现DirectSound9 (4) DS3D [VB.NET程序]VB.NET 使用DirectSound 3 [VB.NET程序]学习笔记,VB.NET使用DirectSound9 (2) [VB.NET程序]学习笔记,VB.NET使用DirectSound9 (1)
|