| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

MSAgent [D4, D5, D6, Win95/98]

omckma ©   (2002-05-27 11:28:00) 

Господа, подскажите как MSAgentа заставить говорить. Звук. движок установлен. Что дальше делать?

---

Mabanza   (2002-07-16 20:13:00) [1]

Класс!
Слушай, а ты не в курсе как сделать кастомайз обьекту
Balloon. Чтоб там чек-боксы были и т.п. У диспинтерфейса
Balloon есть только свойства read-only. Непонятно.
С уважением, Мабанза. mabanza@yahoo.com

---

omckma   (2002-05-27 12:02:00) [2]

Сам нашел, пока ждал ответа.

public
{ Public declarations }
Procedure WaitFor(Request:IAgentCtlRequest);
end;

var
Character:IAgentCtlCharacter;
Request:IAgentCtlRequest;
Names:IAgentCtlCharacterEx;

Procedure TForm1.waitFor (Request:IAgentCtlRequest);
Var
Status:LongInt;
Begin
Repeat
Application.ProcessMessages;
Status:=Request.get_status;
Until (Status<>2) and (Status<>4);
End;


procedure TForm1.FormCreate(Sender: TObject);
begin
Agent1.Connected:=true;
Request:=Agent1.Characters.Load(Agent,AgentPath);
Character:=Agent1.Characters.Character(Agent);
Agent1.AudioOutput.Enabled;
Request:=Character.Speak("Привет! Как ваше настроение сегодня?",EmptyParam);
end;

---

Наверх