Try adopting the code below. Works for me, although I have only recently begun playing
with Agents, so there may be a better approach. I should point out that I'm using the
ActiveX component as opposed to variants, therefore I am writing code for the TAgent
component's event handlers.
********************************************
public
SomeRequest : IAgentCtlRequest;
procedure TForm1.AgentCtlCommand(Sender: TObject;
const UserInput: IDispatch);
begin
If IAgentCtlUserInput( UserInput).Name = 'james' then
begin
myAgent.Play('Announce');
myAgent.Get('state', 'Speaking', 1);
SomeRequest := myAgent.Speak('Hello James', '');
end;
procedure TForm1.AgentCtlRequestComplete(Sender: TObject;
const Request: IDispatch);
begin
if IAgentCtlRequest( Request) = SomeRequest Then
Close();
end;
*********************************************
> -----Original Message-----
> From: MIME :[EMAIL PROTECTED] > Sent: Tuesday, 15 June 1999 20:59
> To: [EMAIL PROTECTED]
> Subject: [DUG]: Microsoft Agent
> > > Does anyone know how to wait until the Microsoft Agent stops > talking before
> you continue?
> > I want the agent to say something, and then I want to terminate the
> application.
> > Any ideas?
> > --------------------------------------------------------------
> -------------
> New Zealand Delphi Users group - Delphi List - > [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> > >
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
