启动BCB，打开菜单项PROJECT->Import Type Library...,在弹出的对话框中单击Add,选择windows\speech目录下的Vtxtauto.tlb,加入VtxtAuto[Version 1.0]一项。单击OK，BCB就会自动生成一个VtxtAuto_TLB.cpp文件。这个文件包含了TTS引擎的COM类接口，可以用来与DLL文件通信。新建一个工程，将这个文件包含进来：

源码如下：

//Unit.h



#ifndef Unit1H

#define Unit1H

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

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

class TForm1 : public TForm

{

__published:    // IDE-managed Components

        TEdit *Edit1;

        TButton *Button1;

        void __fastcall FormCreate(TObject *Sender);

        void __fastcall Button1Click(TObject *Sender);

private:    // User declarations

public:        // User declarations

        __fastcall TForm1(TComponent* Owner);

};

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

extern PACKAGE TForm1 *Form1;

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

#endif

//Unit.cpp

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

#include <vcl.h>

#pragma hdrstop



#include "Unit1.h"

#include "wstring.h"

#include "VTxtAuto_TLB.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

IVTxtAuto *IVTxtAuto1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

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

void __fastcall TForm1::FormCreate(TObject *Sender)

{

    WideString a = "Demo1";

    WideString b = "Project1.exe";

    WideString c= "Hi,I am trying to speak to you,Do you hear me?";



    IVTxtAuto1 = NULL;

    CoInitialize(NULL);

    OleCheck(CoCreateInstance(CLSID_VTxtAuto_,0,CLSCTX_ALL,IID_IVTxtAuto, (LPVOID*)&IVTxtAuto1));

    IVTxtAuto1->Register(a,b);

    IVTxtAuto1->set_Enabled(1);

    IVTxtAuto1->set_Speed(150);

    IVTxtAuto1->Speak(c,vtxtsp_VERYHIGH);

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

    if(IVTxtAuto1 != NULL)

    {

      IVTxtAuto1->Speak((WideString)Edit1->Text,vtxtsp_VERYHIGH);

      ShowMessage("OK");//我的调试语句（没声卡）

    }else{

      ShowMessage("服务器没有初始化成功");

    }

}

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

//Project.cpp

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



#include <vcl.h>

#pragma hdrstop

USERES("Project1.res");

USEFORM("Unit1.cpp", Form1);

USEUNIT("D:\Borland\CBuilder5\Imports\VTxtAuto_TLB.CPP");

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

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

        try

        {

                Application->Initialize();

                Application->CreateForm(__classid(TForm1), &Form1);

                Application->Run();

        }

        catch (Exception &exception)

        {

                Application->ShowException(&exception);

        }

        return 0;

}

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