SpVoice.GetVoices returned exception class EOleSysError
lazarus / 13-General

----------------------------------------------------------------------
misabov · 2017-04-10 10:57

Hi!
The project has generated an exception class EOleSysError with a
message: ???? ?????? ?? ??????.

uses
...,ComObj;

var
SpVoice: Variant;

SpVoice := CreateOleObject('SAPI.SpVoice');
SpVoice.Voice:= SpVoice.GetVoices('','').Item(0);

SpVoice GetVoices method (SAPI 5.3) cannot return  a selection of
voices available to the voice.

----------------------------------------------------------------------
ASerge · 2017-04-12 20:01

Cast to IDispatch:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.FormCreate(Sender: TObject);var  SpVoice, Voices, Voice:
OleVariant;begin  SpVoice := CreateOleObject('SAPI.SPVoice');  Voices
:= SpVoice.GetVoices;  Voice := Voices.Item(0);  Caption :=
string(Voice.GetDescription);  SpVoice.Voice := IDispatch(Voice); //
:= Voice not workend;

----------------------------------------------------------------------
misabov · 2017-04-17 00:05

ASerge Thank you very much. That's what I was looking for