Sprachausgabe

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