Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: MS Speak Enng. kullanımı.....  (Okunma sayısı 2019 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

muderless

  • Ziyaretçi
MS Speak Enng. kullanımı.....
« : 26 Kasım 2005 01:45:50 »
Kod: [Seç]
unit MAIN;

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;
    Memo1: TMemo;
    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(memo1.Text,0);
end;

end.
« Son Düzenleme: 31 Aralık 2005 21:11:23 by Fatih »
Kayıtlı

muderless

  • Ziyaretçi
Ynt: MS Speak Enng. kullanımı.....
« Yanıtla #1 : 31 Aralık 2005 20:37:00 »
örnek ekte  :_peh
Kayıtlı

Çevrimdışı benkeibushido

  • Delphi 1 Level 2
  • **
  • İleti: 17
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: MS Speak Enng. kullanımı.....
« Yanıtla #2 : 26 Kasım 2009 11:58:45 »
örnek için teşekkürler
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »