سورسهاي نمونه آموزشي

[SayeyeZohor]

use the Microsoft Speech API
تبديل متن به گفتار با استفاده از تابع API ويندوز

uses Comobj;



procedure TForm1.Button1Click(Sender: TObject);

var

  voice: OLEVariant;

begin

  voice := CreateOLEObject('SAPI.SpVoice');

  voice.Speak('Hello World!', 0);

end;