Vista에서 말하기 기능

Question

다음과 같이 2000/NT/XP에서 Delphi를 사용하여 OLE 객체를 작성하여 만들었습니다.

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

그러나 Vista에서는 작동하지 않습니다. 어떻게하면 내 프로그램이 Vista에서 일부 텍스트를 말할 수 있습니까?

Answer 1

다음 코드를 사용하여 (Vista Home Premium의 D2009) 시도해 보았습니다. 그것이 EZeroDivide을 비스타에서 작동 및 제공되지 않는 이유를 들어

:

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. 

참고로, 브라이언 롱에 의해 nice paper on using speech in Delphi programming ...

---

(매우) 늦은 업데이트가 IDE 외부의 예외는이 다른 질문을 참조하십시오. Delphi SAPI Text-To-Speech