|
Платные хостинги
Раскрутка сайта
Книги по программированию
Использование SpeechAPI
- В одной статье написано, что достаточно сделать так:Код uses Comobj;var voice: OLEVariant;begin voice := CreateOLEObject('SAPI.SpVoice'); voice.Speak('Hello World!', 0);end;highlightSyntax('delphiOGI5ZD','delphi');Только не работает=(Выдает ошибку, кажется об неинициализации чего-то там...А в VCL через объеты работает прекрасно, но надо в АПИ. Это сообщение отредактировал Girder - 22.2.2005, 18:59
- Код program Project1;uses windows, ComObj, ActiveX;var voice: OLEVariant;begin CoInitialize(nil); voice := CreateOLEObject('SAPI.SpVoice'); voice.Speak('Hello World!', 0);end.highlightSyntax('delphilODg=','delphi');или так Код program Project1;uses windows, ComObj;type TCoInitialize=function(Reserved:Pointer):HResult; stdcall;var voice: OLEVariant; OleDll:DWord; CoInitialize:TCoInitialize;begin OleDll:=LoadLibrary('Ole32.dll'); if OleDll<>0 then begin CoInitialize:=GetProcAddress(OleDll,'CoInitialize'); if Assigned(CoInitialize) then begin CoInitialize(nil); voice := CreateOLEObject('SAPI.SpVoice'); voice.Speak('Hello World!', 0); end; FreeLibrary(OleDll); end;end.highlightSyntax('delphiYWI2ZG','delphi'); Это сообщение отредактировал Girder - 22.2.2005, 19:17
- GirderСпасибище!!!!
- Ребята подскажите где взять этот же самый Speech!!
- Хоть разобрался в чем проблама была-то? Нужно было CoInitialize(nil) добавить!Цитата Ребята подскажите где взять этот же самый Speech!! На сколько я знаю, в Windows (по крайней мере в последних версиях: XP, 2000, ME) SpeechApi предусмотрено заранее, и устанавливать отдельно не нужно. Но если все-таки так нужно, то зайди не официальный сайт Майкрософта и поищи там.
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
