「しゃべるプログラム」の編集履歴（バックアップ）一覧はこちら

「しゃべるプログラム」(2010/01/27 (水) 01:02:49) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

[[http://www.a-quest.com/products/]]からAquesTalk2 Winをダウソ。ついでにマヌアルと音声記号列仕様を落としおくといいかも。
いつものようにDeclareで関数宣言したらABがクソ過ぎてまともにインポートしない。
(起動したらAquesTalk2Da.dllImm32.dllがないっていうエラーを出す)
今回はLoadLibraryで対処した。もしDLLがcdeclっだったらと思うとぞっとするわね。

#asciiart(blockquote){
#N88BASIC
Dim AquesTalk2Da_PlaySync As *Function(koe As *Byte, iSpeed As Long, phontDat As VoidPtr) As Long
Dim hDll As HANDLE
Dim koe[666] As Byte

hDll = LoadLibrary("AquesTalk2Da.dll")
AquesTalk2Da_PlaySync = GetProcAddress(hDll, "AquesTalk2Da_PlaySync")
wsprintf(koe,"わたしは/ひらいきみひこ。/か'こにあったことを/そして/みら'いにまた/おなじことがないよ'う、/か'んきを/うなが'しているだけだ。")
AquesTalk2Da_PlaySync (koe,70,0)
FreeLibrary(hDll)
}