Vista'da konuşma metni

Question

2000/NT/XP'de Delphi ile OLE nesnesini aşağıdaki gibi oluşturarak yaptım:

Voice := CreateOLEObject('SAPI.SpVoice'); 
Voice.speak(...) 

Ancak bu Vista'da çalışmaz, programımı Vista'da nasıl yazabilirim?

Answer 1

Sadece aşağıdaki kod ile (Vista Home Premium'da D2009) denedim ve işe yarıyor! bir EZeroDivide Vista'da çalışan ve vermek neden yayınlanmadığını için

:

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, ComObj; 

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

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Voice: Variant; 
begin 
    Voice := CreateOLEObject('SAPI.SpVoice'); 
    Voice.speak('Hello World'); 
end; 

end. 

Bilginize, bir Brian Long tarafından nice paper on using speech in Delphi programming ...

---

(Çok) Geç Güncelleme yoktur IDE dışındaki istisnai diğer soruya bakın: Delphi SAPI Text-To-Speech