MS Agent Sprache ändern und aufnehemen

[tobif]

Hallo,

eigentlich hab ich geleich 2 Fragen:

Mit dem MS Agent kann ich ja Text ausgeben
Agent.Characters.Item['Merlin'].Speak('Test','');

soweit klappt ja auch alles. Leider hab ich aber Deutsch zuerst installiert, aber will jetzt Englisch ausgeben. Die Engine und die Sprachdatei sind auch installiert. Aber wie ändere ich nun die Sprache oder wenigstens die Stimme (männlich, weiblich) in Delphi.

Von einer
VB-Seite
erhalte ich folgendes, wie kann ich dies nun in Delpie umschreiben

Agent1.Characters("Peedy").LanguageID = &H809

vielleicht &H809 strtoint('$H809'); Das klappt aber nicht

Agent1.Characters("Peedy").TTSModeID = _"{227A0E40-A92A-11D1-B17B-0020AFED142E}"
wird zu
Agent1.Characters("Peedy").TTSModeID := '{227A0E40-A92A-11D1-B17B-0020AFED142E}';

das klappt aber auch nciht.
Wei jemand wie das funktionert, bzw wie sin die ID codes.

Mein zweites Problem ist wahrschienlich einfacher:
wie kann ich mit delphi, das gesprochene des agenten in datei speichern bzw. alles von der soundkarte mitschneiden?

cu
tf

[tobif]

Hallo,

leider scheint es hier keinen Helfer zu geben. Das Aufnehemen gelnight mir jetzt mithilfe der bass.dll. Aber wie ändere ich die Sprache im Microsoft Agent auf Englisch oder andere Sprache auser Deutsch?

cu
tf

[mumu]

probier mal

Agent1.Characters("Peedy").LanguageID := 2057

[kiar]

hallo,

wie wäre es mal mit ein bisschen eigeninitiative
LanguageID

raik

[mumu]

ich glaub eher, dass er probleme mit der hex darstellung in delphi hat?!

[CalganX]

Hi,
"&H809" als solches ist in Delphi nicht verwendbar. Schon gar nicht mit einem einfachen StrToInt.
Ich gehe davon aus, dass in VB &H nur einen Hexwert einleitet (in Delphi geschieht dies imt $). D.h. du musst in Delphi dann schreiben
.LanguageID := $809 (Was äquivalent zu mumu's 2057, wollte es nur noch mal erklären )

Chris

[tobif]

Meinst du
Agent.Characters.Item['Peedy'].LanguageID := 2057;

Da bekomm ich leider immmer den Fehler ZUgriffsverletzung bei 000000...
Ich kann die Sprache doch immer ädern, sobald ich den Character erstellt habe, oder?

cu
tf

[CalganX]

Hi,
ja... theoretisch sollte das möglich sein.
Auf der von kiar verlinkten Seite steht
agent.Characters ('CharacterID').LanguageID [ := LanguageID] Ich würde versuchen das auf diese Weise zu verwenden, sofern das möglich ist. Bist du denn sicher, dass die AV genau an dieser Stelle auftritt?

Chris

[tobif]

Hallo,

ich bin mir ziemich sicher, da das Project bisher ziemlich dünn ist. Probiere in diesem Project nur MS Agent aus. Das Sprachenändern erfolgt in einer extra procedure eines extra Buttons. Es gibt keine Timer oder ähnliches die dazwischen funken können. Compilierbar ist auch:

Agent.Characters['Peedy'].LanguageID := 2057;

Gibt aber den gleichen Fehler; die () müssen ja durch [] ersetzt werden, da VB in delphi.

hat jemand ne weitere idee?

cu
tf

[CalganX]

Hi,
ich hätte nur noch die Idee, dass du vielleicht den Hex-Wert selber übergeben könntest (wird aber vermutlich nichts bringen, da sich an dem Wert ja nichts ändern sollte) oder die gewünschte Sprache (Englisch (Großbritannien)) nicht installiert ist. Versuch am Besten mal ein wenig mit den Werten herumzuspielen und z.B. mal auf Deutsch oder USA-Englisch zu setzen.

Ansonsten habe ich aber auch keine Idee, sorry.

Chris