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

MSAgent Найти похожие ветки