TextToSpeechをObject変数に読みこむには？

たかみちえ URL 2002-01-09 08:14:46 No: 75145

TextToSpeechがインストールされていれば、それを使ってアナウンスして、
もしなければ、使わないような関数を作りたいんですけど、
TextToSpeechの動的読みこみのし方がわかりません。
CreateObjectで読みこめるたぐいのものだと思うんですけど…。
obj=CreateObject("HTTSLib.TextToSpeech")とやったんですけど…。
いつでも"オブジェクトを作成できません"になってしまいます。

書式が…間違ってるんでしょうか？
(多分、間違っているんだと思いますけど、正式な書き方がわかりません…)

Say 2002-01-09 16:28:56 No: 75146

つかった事ないのですが、

アーリーバインドなら
Microsoft Speech Object Libraryを参照設定して、
Dim obj As New TextToSpeech

レイトバインドなら
Dim obj As Object
Set obj = CreateObject("SAPI.SpVoice")

とかでいいのでは？(未確認)

たかみちえ 2002-01-12 10:03:24 No: 75147

おへんじおくれました。
…でも、レイトバインドのほうではできませんでした。

    Dim TTS As Object
    Set TTS = New TextToSpeech
  いちおうこれで落ち着きましたけど…。
これでエラーが起こったら抜けることで回避できますよね？

ところで、このCreateObjectの引数の書式って、どう言うのなんでしょう？
"ライブラリの名前.クラスの名前"でもないようですし…。

Say 2002-01-12 11:39:16 No: 75148

CreateObject（ＤＬＬ名，クラス名）のはずですが…

TextToSpeechをインストールしているのなら、
ObjectBrowserで確認すれば
レイトバインドできるのでは？

私のマシンにははいってないので、
それっぽくかいてみただけですし…。