Thank you, this one works for me with a command line compile. I
compared the two programs, and the line that asks for the voices is the
culprit.
I'll have to do some digging to see why that line breaks the runtime
execution.
But at least I can make it work now. I'd always used powerbasic when I
needed to work with com objects, good to know I can do the same thing in
fpc now.
On 6/26/2023 2:12 PM, Rik van Kekem via fpc-pascal wrote:
Op 25-06-2023 om 22:46 schreef James Richters via fpc-pascal:
I gave up on doing it directly, it seems SO convoluted to do with FPC
with the COM unit and all this stuff I just don’t understand,
and it’s SO simple to do with a VBS script in just 3 lines and it
just works!(it would only be 2 lines if I didn’t want Microsoft Zira)
You didn't mention the version of FPC/Lazarus you were using.
I had a simple example which worked for me (but your example also
directly worked for me in trunk).
program Project1;
{$mode objfpc}{$H+}
uses
Classes, ComObj;
var
Voice: olevariant;
begin
Voice := CreateOLEObject('SAPI.SpVoice');
Voice.Speak('I am speaking.', 0);
Voice.Speak('I am also speaking.', 0);
end.
I didn't even have the problem with any EZeroDivide exception.
--
Grtz,
Rik van Kekem
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
