[fpc-pascal] Playing with SpVoice (ole object)

[Joao Morais]

Marco van de Voort wrote:
>> {$mode objfpc}{$H+}
>> uses
>>    comobj;
>> var
>>    vsound: olevariant;
>>    s: string;
>> begin
>>    vsound := createoleobject('SAPI.SpVoice');
>>    writeln('playing using literal');
>>    vsound.speak('hello world');
>>    writeln('ok (press enter)');
>>    readln;
>>    writeln('now playing using a string var');
>>    s := 'hello world';
>>    vsound.speak(s);
>>    writeln('ok (press enter)');
>>    readln;
>> end.
> 
> I've been thinking of adding some interesting code snippets to the examples
> of the winunits package (to which comobj belongs). Do you mind if I add this
> to SVN ? (lGPL licensed)

Of course not. go ahead.