🚀 go-pugleaf

"Darko Miletic" wrote in message
> Marc wrote:
>> Done...
>
> I sent you the example that works using bccsdk.
> Here is just the code for the rest of the folks who might be interested.
> I had to make some changes in some sapi headers and add missing guids to 
> sapi.lib.
> Soon new minor release will be available with this update.
>

Thanks Darko. Your sample is similar to what I have using typelib.
The below allows for hearing whatever goes into the file.
the file writing is fast enough you cannot detect any delay.

Not included is a wave class to append each new 'speak file' into one file.

typedefs needed.
    typedef CComPtr<ISpStream         > _id_SpStream;
    typedef CComPtr<ISpeechVoice      > _id_SpeechVoice;
    typedef CComPtr<ISpeechBaseStream > _id_ISpeechBaseStream;
    typedef CComPtr<ISpeechFileStream > _id_ISpeechFileStream;
    typedef CComPtr<ISpeechObjectToken> _id_ISpeechObjectToken;

// other
SpeechVoiceSpeakFlags eSpeechVoiceSpeakFlags = SVSFDefault;
...
VoicePtr.CoCreateInstance(CLSID_SpVoice);
...
::Button2Click(TObject *Sender)
{
    if(fSpeafToFile) // indicates 'save to file'
    {Button2->Caption =  "Voice Output";
    }
    else {  Button2->Caption =  "File And Voice  Output";
    }
    fSpeafToFile = !fSpeafToFile;
}

Button1Click(TObject *Sender)
{
if(fSpeafToFile)
{
    BCB_SPBindToFile( wsFile, WideString( Edit1->Text ),  VoicePtr);
}
VoicePtr->Speak(WideString( Edit1->Text ), eSpeechVoiceSpeakFlags);
}

// save speach voice output pointer (object token), restore when done
HRESULT BCB_SPBindToFile( BSTR bstrFile, BSTR bstrTextToSpeak, 
_id_SpeechVoice Voice)
{
HRESULT hr = E_FAIL; // assume failed..
_id_ISpeechObjectToken pSpeechObjectToken = 0;
hr = Voice->get_AudioOutput((ISpeechObjectTokenPtr*)&pSpeechObjectToken);
BCB_WriteToFile(bstrFile, bstrTextToSpeak, Voice);
Voice->WaitUntilDone( INFINITE );
hr = Voice->_set_AudioOutput((ISpeechObjectTokenPtr)pSpeechObjectToken);
return (hr);
}

// set audio output to a file stream and write to file
HRESULT BCB_WriteToFile( BSTR bstrFile, BSTR bstrTextToSpeak, 
_id_SpeechVoice Voice)
{
HRESULT hr = E_FAIL; // assume failed..
_id_ISpeechFileStream  pFileStream = 0;
pFileStream.CoCreateInstance(CLSID_SpFileStream);
 if(pFileStream->Open( bstrFile, SSFMCreateForWrite, VARIANT_TRUE) == S_OK)
{
    hr = Voice->_set_AudioOutputStream((ISpeechBaseStreamPtr)pFileStream);
    hr = Voice->Speak (bstrTextToSpeak, SVSFPurgeBeforeSpeak );
    Voice->WaitUntilDone( INFINITE );
     pFileStream->Close();
     pFileStream = 0;            // forces 'flush buffer' on the file
}
return (hr);
}