Maybe I'm just dumb, but I cannot figure out why this isn't working.
I wanted to write a simple program which uses TProcess to send input
to festival (the text-to-speech engine). On the command line I can do
something simple like this:
echo hello | /usr/bin/festival --tts --pipe
and festival will say "hello". Pretty easy...
So why won't this work?
program talkie;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, Process;
var
festival : TProcess;
line : string;
begin
try
festival := TProcess.Create(nil);
try
festival.Options := [poUsePipes, poStderrToOutput, poNoConsole,
poDefaultErrorMode];
festival.CommandLine := '/usr/bin/festival --pipe --tts';
line := 'hello'
festival.Execute;
festival.Input.WriteBuffer(line[1], length(line));
finally
festival.Terminate(0);
FreeAndNil(festival);
end;
except
on E : Exception do begin
writeln('Exception: ' + E.Message);
end;
end;
end.
I've googled TProcess for about 2 hours and I'm not seeing what I'm
missing. Can someone smarter than me please illuminate me?
Thanks,
Seth
--
This email is fiction. Any resemblance to actual events
or persons living or dead is purely coincidental.
Seth Grover
sethdgrover[at]gmail[dot]com
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
