Форум: "Media";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизMSAgent Найти похожие ветки
← →
omckma (2002-05-27 11:28) [0]Господа, подскажите как MSAgentа заставить говорить. Звук. движок установлен. Что дальше делать?
← →
omckma (2002-05-27 12:02) [1]Сам нашел, пока ждал ответа.
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;
← →
Mabanza (2002-07-16 20:13) [2]Класс!
Слушай, а ты не в курсе как сделать кастомайз обьекту
Balloon. Чтоб там чек-боксы были и т.п. У диспинтерфейса
Balloon есть только свойства read-only. Непонятно.
С уважением, Мабанза. mabanza@yahoo.com
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c