TextToSpeechを使って録音ソフトを作りたいのです。
http://forum.nifty.com/fdelphi/samples/00003.html
ここのサンプルを試してみたのですが、wavファイルですら作成されません。
もう少し詳しいやり方をお願いします。
あと、このようにクリップボードのテキストを発音させたいのですが、
「クリップボードを開けません。」というエラーになります。
「flg」はクリップボード発音がONになっているかどうかで、
「text」は前回のクリップボードの内容を保存し、
連続発音を防ぐものです。よろしくお願いします。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if str.HasFormat(CF_TEXT) then
begin
if (flg=True) and (text<>str.AsText) then
begin
text:=str.AsText;
TextToSpeech1.Speak(text);
end;
end;
end;
クリップボードからの発音は自己解決できました。
MediaPlayerでの録音の方はいろいろ試してみましたが、なかなか上手くいきません。
どなたか、よろしくお願いします。