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

[Joao Morais]

Hello,
the following code:

{$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.

speaks using a literal but says randomic words (sometimes says nothing) 
using a variable. Is there something that I am missing?

Thanks.

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal