Win ses okutma

[seven-7]

hangi programlama diliyle yazildigini bilmiyorum yada nasil yapildigini ama bir ara turklerin yaptigi hamsi vurusunun windowsun ses programini kullanarak ingilizce sozler soylemesi nasil oluyor??nasil yapiyorlar??

[mr1yh1]

tam anlamadım ,galiba text-to-speech den bahsediyorsun.
"TTS engine" ve "microsoft SAPI" olarak aratabilirsin.

[MUDERLESS]

al asana bir örnet gerisini kendin geliştirebilirsin. Çok basit ...

Herkeze iyi çalışmalar


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj , StdCtrls; //uses kısmına “comobj” ekledim…

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
/// Button Kodları altında microsoft SAPI kodu /////
procedure TForm1.Button1Click(Sender: TObject);
var
oleVoice: OLEVariant;
begin
oleVoice := CreateOLEObject('SAPI.SpVoice');
olevoice.speak(memo1.Text,0);
end;

end.