我的程式如下:每次接通電話後,還是無法聽到語音訊息,請教教我,3Q
很抱歉,以下為Visual Foxpro 程式碼,不過,好像在這裡比較多人討論語音的問題,所以貼到這邊
with thisform.comm1     && Ms Comm
.CommPort=1
.PortOpen=.T.
.InBufferCount=0
.output="AT#CLS=8"+chr(13)
do WHILE .T. && 等待...接聽電話
xstr=.Input
if len(xstr)>0
if "RING"$xstr
.output="ATA"+chr(13)
exit
endif
endif

if inkey()=27
exit
endif
enddo

.output="AT#VBS=4"+chr(13)
.output="AT#VSR=8000"+chr(13)
.output="AT#BDR=16"+chr(13)
.output="AT#VSD=1"+chr(13)
.output="AT#VLS=2"+chr(13)
.output="AT#VTX"+chr(13)

xfn=fopen( "test.wav" ) && 開始播放語音,已先經 Windows 98 錄音程式
轉成 ADPCM 8000Hz,4 bits 格式
do while .not. feof(xfn)
xstr=fread(xfn,200)

.output=xstr
enddo
fclose(xfn)
.output= chr(16) + chr(3)
messagebox("掛斷電話")
.InBufferCount=0
.output="ATH0"+chr(13)
.output="AT#CLS=0"+chr(13)
.PortOpen=.F.
endwith
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()