Sprachausgabe

[robinWie]

Hallo,
ich möchte eine Programm erstellen in dem man einen Text eingeben kann und ihn sich dann vorlesen lassen kann. Mein Problem ist die Sprachausgabe. Habe zwar schon rumgesucht und was gefunden und einiges runtergeladen aber irgenwie verstehe ich das net Gibt es nicht eine einfache Kompo die Sprache ausgeben kann?

Danke im Voraus

[turboPASCAL]

Mal geschaut ? Sprachausgabe

Wie und was verstehst du denn nicht ?


//sorry, zu früh senden an stelle von vorschau

[konda]

Also eine englische Sprachausgabe ist nicht das Problem:Text vorlesen lassen

[robinWie]

Das hier geschilderte Programm habe ich runtergeladen und Installiert. Das gibt es zwar Beispiele aber nur in CS und VB. Mein Problem das kann ich nich. Und wirklich was mit Sprachausgabe habe ich nicht gefunden.

[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;

[sECuRE]

Hi,

Zitat von robinWie:

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;

Mmh, da kommt doch immer false raus, oder? Bei einem try-except-block wäre das so richtig, hier ergibt es keinen Sinn.

cu

[marlem]

schaue mal hier:
http://www.webspeech.de/index1.php

die haben auch komponenten für delphi!
hatte mal mit denen mailkontakt!

[robinWie]

verdammt ich bin so ein idiot das muss natürlich except heissen und nich finally!

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;
  except //<------
    Result:=False;
  end;
end;

das funzt aber nur wenn Voice eine Exception ausgibt.