音声合成させてみる

簡単な音声合成のライブラリがあったので使ってみました。

DECLARE EXTERNAL FUNCTION AquesTalkDa_Create !引数なし

LET Text$="でんわば'んごーわ、<NUM VAL=0123456789>です。" !音声記号列の文字列を指定
LET rc=AquesTalkDa_PlaySync(Text$, 100)
PRINT rc

LET h=AquesTalkDa_Create !ハンドルを得る
IF h<>0 THEN
LET text$="あしたの/て'んきわ、いちにちじゅー/はれ。"
LET rc=AquesTalkDa_Play(h, text$, 100, 0, 0, 0)
PRINT rc
DO WHILE AquesTalkDa_IsPlay(h)<>0 !発生中はハンドルを開放しないこと！
WAIT DELAY 0.1
LOOP

CALL AquesTalkDa_Release(h) !閉じる
END IF

END

!
!AquesTalk Win版 - テキスト音声合成ミドルウェア
!
!使用上の注意
!　本プログラムとライブラリ（AquesTalkDa.dll）は同一フォルダにあること
!ライブラリの入手先
!　http://www.a-quest.com/aquestalk/
!
EXTERNAL FUNCTION AquesTalkDa_PlaySync(koe$, iSpeed)
assign "AquesTalkDa.dll","AquesTalkDa_PlaySync"
END FUNCTION
EXTERNAL FUNCTION AquesTalkDa_Create
assign "AquesTalkDa.dll","AquesTalkDa_Create"
END FUNCTION
EXTERNAL FUNCTION AquesTalkDa_Play(H_AQTKDA, koe$, iSpeed, hWnd, msg, dwUser)
assign "AquesTalkDa.dll","AquesTalkDa_Play"
END FUNCTION
EXTERNAL SUB AquesTalkDa_Stop(H_AQTKDA)
assign "AquesTalkDa.dll","AquesTalkDa_Stop"
END SUB
EXTERNAL SUB AquesTalkDa_Release(H_AQTKDA)
assign "AquesTalkDa.dll","AquesTalkDa_Release"
END SUB
EXTERNAL FUNCTION AquesTalkDa_IsPlay(H_AQTKDA)
assign "AquesTalkDa.dll","AquesTalkDa_IsPlay"
END FUNCTION

音声合成させてみる	返事を書くノートメニュー
山中和義 <drdlxujciw> 2007/03/23 16:00:48 ** この記事は1回修正されてます
簡単な音声合成のライブラリがあったので使ってみました。 DECLARE EXTERNAL FUNCTION AquesTalkDa_Create !引数なし LET Text$="でんわば'んごーわ、<NUM VAL=0123456789>です。" !音声記号列の文字列を指定 LET rc=AquesTalkDa_PlaySync(Text$, 100) PRINT rc LET h=AquesTalkDa_Create !ハンドルを得る IF h<>0 THEN LET text$="あしたの/て'んきわ、いちにちじゅー/はれ。" LET rc=AquesTalkDa_Play(h, text$, 100, 0, 0, 0) PRINT rc DO WHILE AquesTalkDa_IsPlay(h)<>0 !発生中はハンドルを開放しないこと！ WAIT DELAY 0.1 LOOP CALL AquesTalkDa_Release(h) !閉じる END IF END ! !AquesTalk Win版 - テキスト音声合成ミドルウェア ! !使用上の注意 !　本プログラムとライブラリ（AquesTalkDa.dll）は同一フォルダにあること !ライブラリの入手先 !　http://www.a-quest.com/aquestalk/ ! EXTERNAL FUNCTION AquesTalkDa_PlaySync(koe$, iSpeed) assign "AquesTalkDa.dll","AquesTalkDa_PlaySync" END FUNCTION EXTERNAL FUNCTION AquesTalkDa_Create assign "AquesTalkDa.dll","AquesTalkDa_Create" END FUNCTION EXTERNAL FUNCTION AquesTalkDa_Play(H_AQTKDA, koe$, iSpeed, hWnd, msg, dwUser) assign "AquesTalkDa.dll","AquesTalkDa_Play" END FUNCTION EXTERNAL SUB AquesTalkDa_Stop(H_AQTKDA) assign "AquesTalkDa.dll","AquesTalkDa_Stop" END SUB EXTERNAL SUB AquesTalkDa_Release(H_AQTKDA) assign "AquesTalkDa.dll","AquesTalkDa_Release" END SUB EXTERNAL FUNCTION AquesTalkDa_IsPlay(H_AQTKDA) assign "AquesTalkDa.dll","AquesTalkDa_IsPlay" END FUNCTION

Re: 音声合成させてみる	返事を書くノートメニュー
哲 <rtcrycnlmh> 2007/03/25 10:17:40
こんなフリーのDLLがあったとは驚きです。発音も綺麗ですし実用になりそうです。視覚障害者の支援することもありますので利用させていただきたいと思います。