 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期二 九月 02, 2003 1:47 pm 文章主題: 錄音處理源碼(轉貼) |
 |
|
來源:myf1 zb2001
抛磚引玉，錄音處理源碼公開，高手來看啊……
俺的代碼實現了錄製各種不同格式的wav音頻檔，可以不限時間，不要特殊控制項
但是有幾個問題沒有解決：
1. 無法妥善求得聲音的時間長度
2.有些電腦和winXP中無法播放MP3
3.如何將wav後臺轉成MP3格式呢
| 代碼: | Declare INTEGER mciSendString IN winmm.DLL STRING ,STRING @,INTEGER ,INTEGER
Buffer=SPACE(100)
錄音代碼
if this.caption='錄音'
=mcisendstring("close sound ",@BUFFER,80,0)
if thisform.optiongroup1.value=1
=mcisendstring("open yy.wav alias sound",@BUFFER,80,0)
else
=mcisendstring("open yy1.mp3 alias sound",@BUFFER,80,0)
endif
=mcisendstring("record sound from 0",@BUFFER,80,0)
this.caption='停止'
else
=mcisendstring("stop sound ",@BUFFER,80,0)
if cyinzhi=1
temp=alltrim(cfjl.總編號)+'.wav'
else
temp=alltrim(cfjl.總編號)+'d.wav'
endif
=mcisendstring('save sound '+temp ,@BUFFER,80,0)
yy.wav和yy1.wav是事先錄製好的兩組不同格式音頻檔，在此檔打�}再錄製自然就是以前的格式，明白了吧，又是土匪做法：）
播放代碼
Declare INTEGER mciSendString IN winmm.DLL STRING ,STRING @,INTEGER ,INTEGER
Buffer=SPACE(100)
=mcisendstring("close sound ",@BUFFER,80,0)
=mcisendstring("open "+musicname+" alias sound",@BUFFER,80,0)
=mcisendstring("play sound from 0",@BUFFER,80,0)
play sound from ***(可以是毫秒數，決定跳躍到某點播放) |
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
 |
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
