Thema: Delphi Sprachausgabe

Einzelnen Beitrag anzeigen

Benutzerbild von robinWie
robinWie

Registriert seit: 26. Okt 2005
Ort: Lippcity
404 Beiträge
 
Delphi 2005 Personal
 
#8

Re: Sprachausgabe

  Alt 17. Mär 2006, 16:07
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.
Robin W.
Ein Computer kann (fast) alles.... Man muss es ihm nur beibringen
  Mit Zitat antworten Zitat