1:
2:
3:
4:
5:
6:

TextToSpeech1.CurrentMode := 1; //deutsch, männl.
TextToSpeech1.CurrentMode := 2; //deutsch, weibl.
TextToSpeech1.CurrentMode := 3; //englisch, weibl.
TextToSpeech1.CurrentMode := 4; //englisch, weibl.
TextToSpeech1.CurrentMode := 5; //englisch, männl.
TextToSpeech1.CurrentMode := 8; //englisch, weiblich mit Echoeffekt					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
 TextToSpeech1.Speak(Edit1.Text);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

#include-once

;===============================================================================

;
; Function Name:    _TalkOBJ($s_text, $s_voice = 3)
; Description:      Spricht den Text in der ausgewählten Sprache
; Parameter(s):     $s_text      - Text zum sprechen
;                   $s_voice     - Stimme und Sprache zum Sprechen
;                          1 - Microsoft Mary deutsch
;            2 - Microsoft Mike deutsch
;            3 - Microsoft Sam deutsch
;            4 - Microsoft Mary englisch
;            5 - Microsoft Mike englisch
;            6 - Microsoft Sam englisch
; Requirement(s):   Version 3.1.1.53
; Author(s):        gafrost
;
;===============================================================================



Func _TalkOBJ($s_text, $s_voice = 3)
   Local $o_speech = ObjCreate ("SAPI.SpVoice")
       Select
           Case $s_voice == 1
               $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Mary", "Language=407").Item(0)
           Case $s_voice == 2
               $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Mike", "Language=407").Item(0)
           Case $s_voice == 3
               $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Sam", "Language=407").Item(0)
     Case $s_voice == 4
               $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Mary", "Language=409").Item(0)
           Case $s_voice == 5
               $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Mike", "Language=409").Item(0)
           Case $s_voice == 6
               $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Sam", "Language=409").Item(0)
       EndSelect
   $o_speech.Speak ($s_text)
   $o_speech = ""
EndFunc ;==>_TalkOBJ					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  oSpeech     : OleVariant;
begin
  oSpeech := CreateOleObject('SAPI.SpVoice');
  try
    oSpeech.Voice := oSpeech.GetVoices('Name=Microsoft Mary', 'Language=407').Item(0);
    oSpeech.Speak('Hallo');
  finally
    oSpeech := null;
  end;
end;					

1:
2:
3:
4:
5:
6:

TextToSpeech1.CurrentMode := 1; //deutsch, männl.
TextToSpeech1.CurrentMode := 2; //deutsch, weibl.
TextToSpeech1.CurrentMode := 3; //englisch, weibl.
TextToSpeech1.CurrentMode := 4; //englisch, weibl.
TextToSpeech1.CurrentMode := 5; //englisch, männl.
TextToSpeech1.CurrentMode := 8; //englisch, weiblich mit Echoeffekt