2009-01-20 9 views
6

Ich verbessere eine kleine Alarm-/Erinnerungsanwendung, die ich vor Jahren gebaut habe, und ich würde gerne einen stündlichen Signalton machen, aber anstatt zu piepen wäre es viel schöner, es würde Zeit sagen. Gibt es einen einfachen Weg, dies in DELPHI D2007 oder später zu tun? DankText zu sprechen

Antwort

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

wir verwenden diese Methode im Feld, keine Probleme, arbeitet mit xp/vista –

+0

Ich habe den obigen Code verwendet, es funktioniert nicht in Vista. Aber mit SpVoice Komponente in Brian Long tut es gut funktioniert. – samir105

2

ich auf making your applications talk in Delphi eine Weile zurück, ein Video gemacht haben. Ich persönlich habe noch nie eine Verwendung für Text-zu-Sprache in einem meiner Anwendungen gefunden, aber es ist eine tolle Sache, zu wissen, wie ;-)

0

tun können Sie eSpeak mit Delphi verwenden, um weitere Sprachen und Mac zu unterstützen (und hoffentlich Linux in der Zukunft). Delphi-Beispiel ist here.

Verwandte Themen