[fpc-pascal] Microsoft SAPI on Freepascal

[tsiegel at softcon.com]

Does the form code do something different than the command line? When I 
try to run this code, I get an unhandled exception error.

Any idea how to fix?


On 6/26/2023 1:54 PM, Michael Van Canneyt via fpc-pascal wrote:
>
>
> On Sun, 25 Jun 2023, James Richters via fpc-pascal wrote:
>
>> 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)
>
> I don't know what people advised you, but what you want to do needs 3 
> lines
> of code only:
>
> I created a lazarus application, dropped a button and in the onclick I 
> call
> speak('hello'). It just works.
>
>
> -- 
> uses comobj;
>
> procedure speak(s : string);
>
> var
>   v : olevariant;
>
> begin
>   v:=CreateOleObject('SAPI.SpVoice');
>   v.Voice:=v.GetVoices().Item(1);
>   v.Speak(s);
> end;
>
> {$R *.lfm}
>
> { TForm1 }
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
>   speak('hello');
> end;
> -- 
>
> No need to write a script, call tprocess etc. You can do everything 
> right in fpc as simple as this.
>
> Michael.
>
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal