Sprachausgabe

[robinWie]

danke Konda jetzt weiss ich.

Nachtrag:
Und das mit den ganzen text vorlesen ist auch einfach:

Delphi-Quellcode:

function ReadText(Text: TStrings): Boolean; stdcall;
var
 i: integer;
 Line: string;
 Voice: OLEVariant;
begin
  try
    Voice := CreateOLEObject('SAPI.SpVoice');
    for i:=0 to Text.Count-1 do
      begin
        Line:=Text.Strings[i];
        Voice.Speak(Line, 0);
      end;
    Result:=True;
  finally
    Result:=False;
  end;
end;