| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
ericpoon
註冊時間: 2006-07-25
文章: 6
第 1 樓
|
 發表於: 星期二 七月 25, 2006 1:03 am 文章主題: 請教如何可以播放 .mpg, 最重要是可以選擇左右聲道 |
 |
|
以前的文章可以播放, 但不能由 Foxpro 控制 Windows Media Player 的聲道。
請問有沒有高手知道怎樣做呢? |
|
| 回頂端 |
|
 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 2 樓
|
|
| 回頂端 |
|
|
ericpoon
註冊時間: 2006-07-25
文章: 6
第 3 樓
|
| 發表於: 星期二 七月 25, 2006 4:55 pm 文章主題: 本人是初哥, 請問有沒有一個較完整的 example, 可供參考? |
|
|
| Thanks in advance |
|
| 回頂端 |
|
|
ericpoon
註冊時間: 2006-07-25
文章: 6
第 4 樓
|
| 發表於: 星期二 七月 25, 2006 5:41 pm 文章主題: |
|
|
| 本人是初哥, 請問有沒有一個較完整的 example, 可供參考? |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 5 樓
|
| 發表於: 星期二 七月 25, 2006 6:05 pm 文章主題: |
|
|
到google 搜尋 mciSendString vfp 或 mciSendString foxpro
如果要控制聲音,
再加上 左 右 聲音
找到類似的範例:
怎麼樣控制vcd中的左右聲道
{立體聲}:
mciSendString('set all audio all off', nil, 0, Handle);
{左聲道}:
mciSendString('set all audio all off', nil, 0, Handle);
mciSendString('set all audio left on', nil, 0, Handle);
{右聲道}:請舉一反三
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
行者孙
註冊時間: 2006-03-11
文章: 43
第 6 樓
|
| 發表於: 星期二 七月 25, 2006 9:19 pm 文章主題: |
|
|
garfield上面说是MCI的声道控制,在FOX中一般控制多媒体都用MCI,因为它还是比较灵活的,
楼主想要的话我可以把我N年前的FoxMci源代码上传出来
_________________
╭⌒╮VFP应用程式算法群 12787940¤╭⌒
╭http://hi.baidu.com/myvfp/blog
,︶︶︶︶,""︶~~ ,""~︶︶ ,""
╱◥█◣ ╱◥█◣
︱田︱田︱︱田︱田︱
╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬
http://hi.baidu.com/myvfp/blog |
|
| 回頂端 |
|
|
ericpoon
註冊時間: 2006-07-25
文章: 6
第 7 樓
|
| 發表於: 星期二 七月 25, 2006 9:31 pm 文章主題: |
|
|
| 我真的想要, 因為我真是一個初哥 |
|
| 回頂端 |
|
|
violetlkk
註冊時間: 2003-06-21
文章: 84
來自: kaohsiung
第 8 樓
|
| 發表於: 星期三 七月 26, 2006 1:11 pm 文章主題: |
|
|
增加一個media play 控制項
試試看用keypree 控制window media play
'q' 'w' 'e' 可控制balance
'x' 離開
'm' 靜音
....
do case
case lower(chr(nkeyascii))='n'
*this.fullscreen = .t.
case lower(chr(nkeyascii))='f'
*this.fullscreen = .f.
case lower(chr(nkeyascii))='s'
this.controls.stop
case lower(chr(nkeyascii))='d'
this.url="d:\01.mpg"
wait timeout 1
this.fullscreen = .t.
case lower(chr(nkeyascii))='p'
this.controls.play
this.fullscreen = .t.
case lower(chr(nkeyascii))='a'
this.controls.pause
case lower(chr(nkeyascii))='q'
this.settings.balance=-100
case lower(chr(nkeyascii))='w'
this.settings.balance=0
case lower(chr(nkeyascii))='e'
this.settings.balance=100
case lower(chr(nkeyascii))='m'
this.settings.mute = not this.settings.mute
case lower(chr(nkeyascii))='x'
thisform.release
endcase |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
