🚀 go-pugleaf

The following will "speak" anything - numbers as well as words.
John
//---------------------------------------------------------------------------

#ifndef JMCSpeechH
#define JMCSpeechH

#include <sapi.h>           //For ISp definitions - part of SDK

//---------------------------------------------------------------------------

//Speech Utilities:
//This object instantiates the COM Object SpVoice and gives us an easy
//function call in order to speak a string.

class TJMCSpeech
  {
    public:
   TJMCSpeech();             //Constructor
   ~TJMCSpeech();             //Destructor
   void Speak(String Words);  //Speak the input words in the string.
 private:
   HRESULT  hr;
   ISpVoice*  pVoice;
  };


#endif
-------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "JMCSpeech.h"
//#include "SUTIL.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)

//Constructor
TJMCSpeech::TJMCSpeech()
{
hr = S_OK;
pVoice = NULL;
::CoInitialize(NULL);

//Create a SAPI voice:
hr = CoCreateInstance( CLSID_SpVoice,NULL,CLSCTX_ALL,IID_ISpVoice,
        (void**)&pVoice);
}
//Destructor
TJMCSpeech::~TJMCSpeech()
{
if(SUCCEEDED(hr))
  pVoice->Release();

::CoUninitialize();
}
//---------------------------------------------------------------------------
void TJMCSpeech::Speak(String Words)
{
if(SUCCEEDED(hr))
   pVoice->Speak(WideString(Words),SPF_DEFAULT,NULL);
}
//Note: I originally had:
//   pVoice->Speak(TJMCSUtil::StrToBSTR(Words),SPF_DEFAULT,NULL);
//It was pointed out by Remy Lebeau (TeamB) <no.spam@no.spam.com>
//that this was a memory leak and that I should use the following:
//   pVoice->Speak(WideString(Words),SPF_DEFAULT,NULL);
//---------------------------------------------------------------------------


"Marc" <info@mawnet.com> wrote in message 
news:473ebe39$1@newsgroups.borland.com...
> Hi all
>
> I try to implement a simple SAPI application that reads back a phone 
> number. I downloaded the SDK 5.1 from Microsoft and had a look at the 
> samples... and did not quite got into it. Does someone has a simple sample 
> in BCB that just shows how to speak a number?
>
> Rds
> Marc
>