This will allow you access to 3 new procedures/functions:
ReadOut(text: string);
ReadOutEx(text, reader: string; rate, vol: Integer);
ReturnVoices: TStringArray;
ReadOut will read out "text" in the default voice.
ReadOutEx will read out "text" with voice "reader" at rate "rate" with a volume of "vol". You do not have to specify "reader" and can just put '' to use default. Normal "rate" is 0 and normal "vol" is 100.
ReturnVoices will return a TStringArray with the names of all the voices available to you. You can then write them out and use the exact text for a reader in ReadOutEx.
This will only work on Windows XP - Wine users will fail as they won't have the Microsoft Speech SDK and Vista users will fail as they have a newer version of Microsoft Speech SDK, but you should be able to get it working if you want when I release the sauce.
This will become Open Sauce when enough people become interested to make me more loved, so get as many people as you can interested.
Lastly, Microsoft Mary is really hot when you get her talking dirty.
Edit:
That's a good intro script to your available voicesSCAR Code:program VoiceIntro;
var
a: TStringArray;
i: Integer;
begin
a:= ReturnVoices;
for i := 0 to High(a) do
begin
Writeln(a[i]);
ReadOutEx('Hello world', a[i], 0, 100);
end;
end.
Edit2: Added sauce file - if you're wondering about the size difference, it requires a very heavy included file Activex that it has to compile into the dll with the sauce. If the sauce fails compiling due to one of the uses not existing, you don't have the SAPI it uses - compiled mine with SAPI 5.1, but should work with SAPI 5.2.




Reply With Quote






















