急，高分求教！TTS如何转化成WAV?

Question

我看过VB的例子程序，可是翻译成Delphi以后无效，有那位大虾可以给一个例子程序?
最好有那种不用发音就可以直接转化的功能，再三感谢先！

Answer 1

HRESULT hr = S_OK;
CComPtr <ISpVoice> cpVoice;
CComPtr <ISpStream> cpStream;
CSpStreamFormat cAudioFmt; //Create a SAPI Voice
hr = cpVoice.CoCreateInstance( CLSID_SpVoice ); //Set the audio format
        if(SUCCEEDED(hr))
{
hr = cAudioFmt.AssignFormat(SPSF_22kHz16BitMono);
}

//Call SPBindToFile, a SAPI helper method,  to bind the audio stream to the file
if(SUCCEEDED(hr))
{ hr = SPBindToFile( L攃:\\ttstemp.wav?  SPFM_CREATE_ALWAYS, 
&cpStream, & cAudioFmt.FormatId(),cAudioFmt.WaveFormatExPtr() );
}

//set the output to cpStream so that the output audio data will be stored in cpStream
        if(SUCCEEDED(hr))
{
hr = cpVoice->SetOutput( cpStream, TRUE );
}  //Speak the text 揾ello world?synchronously
        if(SUCCEEDED(hr))
{
hr = cpVoice->Speak( L"Hello World",  SPF_DEFAULT, NULL );
}

//close the stream
if(SUCCEEDED(hr))
{
hr = cpStream->Close();
} //Release the stream and voice object
cpStream.Release ();
cpVoice.Release();哪位大虾可以翻译成Delphi？