Başlangıç > Kodlar > Delphi ile Bilgisayarı konuşturmak

Delphi ile Bilgisayarı konuşturmak

Bu kodlarla bilgisayarı konuşturun...türkçe destekli değil ama yine de güzel okuyor microsoft sam amca...xp de sorunsuz çalışır ama 98 de kullanmak için speech özelliği yüklenmeli...microsoft.com da var.text to speech diye aratırsanız google da bulabilirsiniz.ama xp de gerek yok zaten yüklü...kolay gelsin...
kenanozyurt_turk@hotmail.com

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
oleVoice: OLEVariant;
begin
oleVoice := CreateOLEObject('SAPI.SpVoice');
oleVoice.Speak(edit1.Text, 0);

end;

end.

Bu kodlarla ne yazarsanız yazın Microsoft sam amca’dan her şeyi dinleyebilirsiniz…


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: