Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi MS-Agents (https://www.delphipraxis.net/42690-ms-agents.html)

Koller 22. Mär 2005 16:13


MS-Agents
 
Hey Leute!

Wisst ihr wie ich den ms-agent merlin (der zauberer) dazu bringe mir text in einer sprechlbase anzuzeigen. Unzwar soll das alles sofort erscheinen und nicht wort für wort (wie es bei 'speak' der fall ist).

mfg Koller

Jens Schumann 22. Mär 2005 16:59

Re: MS-Agents
 
Hallo,
da ich eine TTS-Engine installiert habe und ich nicht weiss wie ich das Ding deaktivieren soll(und auch keine Lust habe) kann ich das folgende nicht testen. Evt klappt es ja wenn man keine TTS-Engine installiert hat. Mit dem Befehl
Code:
\Spd=100\
kann man die Anzahl der gesprochenen Wörter pro Minute eingeben. Probier es doch mal mit 10.000 Wörter pro Minute
Delphi-Quellcode:
Merlin.Speak('\Spd=10000\Hallo DP dies ist ein Test','');

DP-Maintenance 23. Mär 2005 08:03

DP-Maintenance
 
Dieses Thema wurde von "Daniel" von "Datenbanken" nach "Sonstige Fragen zu Delphi" verschoben.

Koller 23. Mär 2005 14:05

Re: MS-Agents
 
Könnt ihr mir mal sagen, was ich genau schreiben muss. Ich fange so an:

agent1.characters.load('Merlin','merlin.acs');
with agent1.characters['Merlin'] do
begin
show(0);
speak('Guten Tag, wie geht es Ihnen?','');
end;

Das problem ist wie bereits gedagt dass wort für wort angezeigt wird und nicht alles auf einmal. Postet mal bitte den gesamten code da ich kein vollprofi bin was das thema angeht.

Danke!

mfg koller

dusty 18. Nov 2008 00:45

Re: MS-Agents
 
Genau das suche ich auch zur Zeit.

Delphi-Quellcode:
Agent.Characters.Item['Merlin'].Speak('\Spd=5000\Welcome to the Microsoft Agent Scripting Helper!','');
funktioniert leider nicht :-(

dusty 18. Nov 2008 01:19

Re: MS-Agents
 
Aha! So geht es:

Delphi-Quellcode:
Agent.Characters.Item['Merlin'].Speak('\Map=""="This is a ballon information"\','');
und noch einfacher:

Delphi-Quellcode:
Agent.Characters.Item['Merlin'].Balloon.Style := $2200007;
und schon werden alle Balloons ohne Laufschrift angezeigt :-D


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:33 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz