FUNCTION zplay_sound1.
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" REFERENCE(TEXT) TYPE /ASU/TEXT
*"----------------------------------------------------------------------
include ole2incl.
data:ole type ole2_object,
voice type ole2_object.
create object voice 'SAPI.SpVoice'.
call method of voice 'Speak' = ole
exporting #1 = TEXT
#2 = 1. " 1 代表异步
ENDFUNCTION.
以下是问GPT关于SAPI.SpVoice 各个参数的信息。但是直接用有问题。
REPORT ZSAPI_DEMO.
TYPE-OPTIONS MSG1(50) VALUE 'Hello, this is a test message.'.
DATA: VOICE TYPE OLE2_OBJECT,
VOLUME TYPE I,
RATE TYPE I.
START-OF-SELECTION.
CREATE OBJECT VOICE 'SAPI.SpVoice'.
" 设置音量为50
VOLUME = 50.
CALL METHOD OF VOICE 'Volume' = VOLUME.
" 设置语速为-5
RATE = -5.
CALL METHOD OF VOICE 'Rate' = RATE.
" 播放文本
CALL METHOD OF VOICE 'Speak' = MSG1.
" 暂停
CALL METHOD OF VOICE 'Pause'.
" 恢复播放
CALL METHOD OF VOICE 'Resume'.
" 跳过当前语音
CALL METHOD OF VOICE 'Skip'.