2009-01-20 51 views
6

Tôi đang cải thiện một ứng dụng báo thức/nhắc nhở nhỏ mà tôi đã xây dựng cách đây nhiều năm, và tôi muốn làm tiếng bíp mỗi giờ, nhưng thay vì tiếng bíp thì sẽ đẹp hơn rất nhiều. Có cách nào đơn giản để thực hiện việc này trong DELPHI D2007 trở lên không? Cảm ơnText to speech

Trả lời

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

[...]

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

chúng tôi sử dụng phương pháp này trong trường, không có vấn đề, hoạt động với xp/vista –

+0

Tôi đã sử dụng mã ở trên, nó không hoạt động trong Vista. Nhưng với thành phần SpVoice trong Brian Long tutoriat nó hoạt động độc đáo. – samir105

2

tôi đã làm một đoạn video một lúc lại making your applications talk trong Delphi. Cá nhân tôi chưa bao giờ tìm thấy một sử dụng cho văn bản để phát biểu tại một trong những ứng dụng của tôi, nhưng đó là một điều thú vị để biết làm thế nào để làm ;-)

0

Bạn có thể sử dụng eSpeak với Delphi để hỗ trợ nhiều ngôn ngữ và Mac (và hy vọng Linux trong tương lai). Ví dụ về Delphi là here.

Các vấn đề liên quan