VPF::Использование SpeechAPI - Форум программистов

Burich-Caeser

Дата 22.2.2005, 16:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 28.7.2004

Репутация: нет
Всего: 1

В одной статье написано, что достаточно сделать так:

Код



uses Comobj;

var voice: OLEVariant;
begin
  voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak('Hello World!', 0);
end;

Только не работает=(

Выдает ошибку, кажется об неинициализации чего-то там...

А в VCL через объеты работает прекрасно, но надо в АПИ.

Это сообщение отредактировал(а) Girder - 22.2.2005, 18:59

--------------------

Ты брошен вниз силой судьбы,Ты унижен и раздавлен,Время забыть то, кем ты был,Но помнить, кем ты стал...

Girder

Дата 22.2.2005, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 6
Всего: 155

Код

program Project1;

uses windows, ComObj, ActiveX;

var voice: OLEVariant;

begin
  CoInitialize(nil);
  voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak('Hello World!', 0);
end.

или так

Код

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.

Это сообщение отредактировал(а) Girder - 22.2.2005, 19:17

--------------------

Как слышим, так и пишим.
Истина где-то там...

Burich-Caeser

Дата 22.2.2005, 23:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 28.7.2004

Репутация: нет
Всего: 1

Girder
Спасибище!!!! smile

--------------------

Ты брошен вниз силой судьбы,Ты унижен и раздавлен,Время забыть то, кем ты был,Но помнить, кем ты стал...

Alex103

Дата 6.3.2005, 08:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

Репутация: нет
Всего: нет

Ребята подскажите где взять этот же самый Speech!!

--------------------

Мой адресс не дом и не улица, мой адресс WWW

Poseidon

Дата 9.3.2005, 03:36 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: нет
Всего: 133

Цитата

Выдает ошибку, кажется об неинициализации чего-то там...

Хоть разобрался в чем проблама была-то? Нужно было CoInitialize(nil) добавить!

Цитата

Ребята подскажите где взять этот же самый Speech!!

На сколько я знаю, в Windows (по крайней мере в последних версиях: XP, 2000, ME) SpeechApi предусмотрено заранее, и устанавливать отдельно не нужно. Но если все-таки так нужно, то зайди не официальный сайт Майкрософта и поищи там.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Гость_Unregistered

Дата 9.3.2005, 08:15 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Под XP нужно. если хочется русский язык послушать. SAPI 5.x пока русских движков не имеет. Под SAPI 4 движки есть (Digalo лучший на сегодня). По этому, если у вас XP, придется установить SAPI 4. Но ничего страшного в этом нет, разные версии друг другу не мешают.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »