[急]
請教各位高手,這奇怪的問題我想了好久,就是沒辦法解決...
-----------------------------------------------------
1.用錄音程式預錄好的Wav放於A.wav內。
2.我在Form_Load事件裡面把 A.wav copy to B.wav。
3.Command1 Button Down 時
＞先殺掉 B.wav。
＞再複製一份 B.wav。
＞用 MultiMedia Control Interface 開啟 B.wav, 並錄製。
4.Command Button Up 時
＞停止 MCI。
＞儲存 Wav 檔。
＞關閉 MCI 裝置。
------------------------------------------------------
程式這樣正常跑下來,會一直對B.wav作錄製及刪除的動作
這樣平穩的Run倒也沒出現啥問題,程式會乖乖的動作,可是...
問題來了!...只要我跑這程式後再開啟任何一執行檔(如檔案
總管,IE,Outlook Express...),再回到這錄音程式視窗繼續
Run,程式就會變成可以刪檔,複製,但是儲存完後的 B.Wav 會
爛掉,變成 0 byte,檔案標頭也不是 Wav Format,請問有人可以
幫我解答這問題嗎?不知道跟hwnd有沒有關係,我真的投降了!
(麻煩高手賜教!很急!感激不盡)。
可以的話回我的信箱 junk@blue.url.com.tw
------------------------------------------------------
以下是我這問題的程式碼:
Private Sub Form_Load()
FileCopy App.Path + "\A.wav", App.Path + "\B.wav"
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single
Killpath$ = App.Path + "\B.wav": Kill Killpath$
FileCopy App.Path + "\A.wav", App.Path + "\B.wav"
MMControl1.Notify = False
MMControl1.Wait = False
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path + "\B.wav"
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single
Killpath$ = App.Path + "\B.wav": Kill Killpath$
FileCopy App.Path + "\A.wav", App.Path + "\B.wav"
MMControl1.Notify = False
MMControl1.Wait = False
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path + "\B.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Prev"
MMControl1.Command = "Record"
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single,
MMControl1.Command = "Stop"
MMControl1.Command = "Save"
MMControl1.Command = "Close"
End Sub