Den Computer Sprechen lassen - _Speech, Update II

Tom99

Hi @ all,
ich hab mal wieder keine ruhe gefunden und angefangen ein UDF für das SAPI.SPVoice Objekt zu schreiben, mit dem man den Computer Dinge sagen lassen kann.
Es ist aber noch nicht fertig, aber schon sehr gut einsetzbar.

UPDATE
_SpeechGetVoices, gibt nun mehr Infos zurück
_SpeechDisplayUI - Kann so eingestellt werden das es versucht ein Handle zu bekommen.
Keine Leerzeichen Missbrauch

Spoiler anzeigen

[autoit]

;Speaking Flags
Global Const Enum Step *2 $SPF_ASYNC, _
$SPF_PURGEBEFORESPEAK, _
$SPF_IS_FILENAME, _
$SPF_IS_XML, _
$SPF_IS_NOT_XML, _
$SPF_PERSIST_XML, _
$SPF_NLP_SPEAK_PUNC, _
$SPF_NLP_MASK, _
$SPF_VOICE_MASK, _
$SPF_UNUSED_FLAGS

[/autoit] [autoit][/autoit] [autoit]

;Running States
Global Const Enum Step *2 $SPRS_DONE, _
$SPRS_IS_SPEAKING

[/autoit] [autoit][/autoit] [autoit]

;SpeechDisplayUI Flags
Global Const $SPDUI_AddRemoveWord = "AddRemoveWord"
Global Const $SPDUI_UserTraining = "UserTraining"
Global Const $SPDUI_MicTraining = "MicTraining"
Global Const $SPDUI_AudioProperties = "AudioProperties"
Global Const $SPDUI_AudioVolume = "AudioVolume"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; #FUNCTION# ;===============================================================================
;
; Name...........: _Speech
; Description ...: Returns a COM Object for Speech
; Syntax.........: _Speech()
; Parameters ....: None
; Return values .: Success - Com Object
; Failure - Returns 0 and Sets @Error:
; |1 - Com Object Creation failed
; Author ........: Tom Schuster
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......; No
;
; ;==========================================================================================
Func _Speech ()
Local $oSpeech = ObjCreate ( "SAPI.SPVoice")
if IsObj ( $oSpeech ) Then
Return $oSpeech
Else
Return SetError (1,0,0)
EndIf
EndFunc ;==>_Speech

[/autoit] [autoit][/autoit] [autoit]

; #FUNCTION# ;===============================================================================
;
; Name...........: _SpeechSpeak
; Description ...: Speak a defined Text
; Syntax.........: _SpeechSpeak(ByRef $oSpeech, $sText)
; Parameters ....: $oSpeech - Speech COM Object
; $sText - Text to speak
; $iFlag - Optional, Speech Flags
; Return values .: Success - 1
; Failure - Returns 0 and Sets @Error:
; |1 - $oSpeech is not COM Object
; |2 - $sText is not a String
; Author ........: Tom Schuster
; Modified.......:
; Remarks .......:
; Related .......: _Speech
; Link ..........;
; Example .......; No
;
; ;==========================================================================================
Func _SpeechSpeak ( ByRef $oSpeech, $sText, $iFlag = 0 )
If Not IsObj ( $oSpeech ) Then
Return SetError (1,0,0)
EndIf
If Not IsString ( $sText ) Then
Return SetError(2,0,0)
EndIf
if not IsInt ( $iFlag ) then
Return SetError(3,0,0)
EndIf
Return $oSpeech.speak ( $sText , $iFlag)
EndFunc ;==>_SpeechSpeak

[/autoit] [autoit][/autoit] [autoit]

; #FUNCTION# ;===============================================================================
;
; Name...........: _SpeechOption
; Description ...: Returns and optionaly sets a Option/Property
; Syntax.........: _SpeechOption(ByRef $oSpeech, $sOption, $vNewValue = Default)
; Parameters ....: $oSpeech - Speech COM Object
; $sOption - Option to use
; $vNewValue - Optional: New Value to set for the Option, cant be used by status
; One of the following:
; AlertBoundaray - Unkown
; AllowAudioOutputFormatChangesOnNextSet - True or False
; AudioOutput - COM Object, eg from _SpeechGetAudioOutputs and then in the array [0][1] or [1][1]...
; EventInterests - Number
; Priority - 0 or 1
; Rate - Number
; Status - Nothing
; SynchronousSpeakTimeout - Number
; Voice - COM Object, eg from _SpeechGetVoices and then in the array [0][1] or [1][1]...
; Volume - Number, 0 < and > 100
; Return values .: Success - One of the following:
; In Case of $sOption:
; AlertBoundaray - Unkown
; AllowAudioOutputFormatChangesOnNextSet - True or False
; AudioOutput - Array with:
; [0] = Registery Key of Output
; [1] = The COM Object wich belongs to
; [2] = Name of Output
; EventInterests - Number
; Priority - Number
; Rate - Number
; Status - Array with:
; [0] = Option
; [1] = Value
; SynchronousSpeakTimeout - Number
; Voice - Array with:
; [0] = Registery Key of Voice
; [1] = The COM Object wich belongs to
; [3] = Name of Voice
; Volume - Number
; Failure - Returns 0 and Sets @Error:
; |1 - $oSpeech is not COM Object
; |2 - $sOption is not a String
; |3 - New Value is invalid
; |4 - $sOption doesnt exist
; Author ........: Tom Schuster
; Modified.......:
; Remarks .......:
; Related .......: _Speech, _SpeechGetAudioOutputs, _SpeechGetVoices
; Link ..........;
; Example .......; No
;
; ;==========================================================================================
Func _SpeechOption ( ByRef $oSpeech, $sOption, $vNewValue = Default)
Local $fSet = False, $avAudioOutputArray, $avStatusArray, $avVoiceArray
if Not IsObj ( $oSpeech ) Then
Return SetError (2,0,0)
EndIf
if Not IsString ($sOption ) Then
Return SetError (2,0,0)
EndIf
if $vNewValue <> Default Then
$fSet = True
EndIf
Switch $sOption
case "AlertBoundary"
If $fSet then
$oSpeech.AlertBoundary = $vNewValue
EndIf
return $oSpeech.AlertBoundary
case "AllowAudioOutputFormatChangesOnNextSet"
if $fSet Then
if not IsBool ( $vNewValue ) Then
Return SetError(3,0,0)
EndIf
$oSpeech.AllowAudioOutputFormatChangesOnNextSet = $vNewValue
EndIf
Return $oSpeech.AllowAudioOutputFormatChangesOnNextSet
case "AudioOutput"
if $fSet Then
if not IsObj ( $vNewValue ) Then
Return SetError (3,0,0)
EndIf
$oSpeech.AudioOutput = $vNewValue
EndIf
Dim $avAudioOutputArray[3] = [$oSpeech.AudioOutput.id, $oSpeech.AudioOutput, $oSpeech.AudioOutput.GetDescription()]
Return $avAudioOutputArray
case "EventInterests"
if $fSet Then
if not IsNumber ( $vNewValue ) or IsString ( $vNewValue ) Then
Return SetError (3,0,0)
EndIf
$oSpeech.EventInterests = $vNewValue
EndIf
Return $oSpeech.EventInterests
case "Priority"
if $fSet Then
if $vNewValue <> 1 and $vNewValue <> 0 Then
Return SetError (3,0,0)
EndIf
$oSpeech.Priority = $vNewValue
EndIf

Return $oSpeech.Priority

case "Rate"
if $fSet Then
if not IsNumber ( $vNewValue ) or IsString ( $vNewValue ) Then
Return SetError (3,0,0)
EndIf
$oSpeech.Rate = $vNewValue
EndIf
Return $oSpeech.Rate
case "Status"
;~ CurrentStreamNumber : 0
;~ LastStreamNumberQueued : 0
;~ LastHResult : 0
;~ RunningState : 1
;~ InputWordPosition : 0
;~ InputWordLength : 0
;~ InputSentencePosition : 0
;~ InputSentenceLength : 0
;~ LastBookmark :
;~ LastBookmarkId : 0
;~ PhonemeId : 0
;~ VisemeId : 0
$oStatus = $oSpeech.Status
if not IsObj ( $oStatus ) Then
Return SetError(3,0,0)
EndIf
Dim $avStatusArray[12][2]
With $oStatus
$avStatusArray[0][0] = 'CurrentStreamNumber'
$avStatusArray[0][1] = .CurrentStreamNumber
$avStatusArray[1][0] = 'LastStreamNumberQueued'
$avStatusArray[1][1] = .LastStreamNumberQueued
$avStatusArray[2][0] = 'LastHResult'
$avStatusArray[2][1] = .LastHResult
$avStatusArray[3][0] = 'RunningState'
$avStatusArray[3][1] = .RunningState
$avStatusArray[4][0] = 'InputWordPosition'
$avStatusArray[4][1] = .InputWordPosition
$avStatusArray[5][0] = 'InputWordLength'
$avStatusArray[5][1] = .InputWordLength
$avStatusArray[6][0] = 'InputSentencePosition'
$avStatusArray[6][1] = .InputSentencePosition
$avStatusArray[7][0] = 'InputSentenceLength'
$avStatusArray[7][1] = .InputSentenceLength
$avStatusArray[8][0] = 'LastBookmark'
$avStatusArray[8][1] = .LastBookmark
$avStatusArray[9][0] = 'LastBookmarkId'
$avStatusArray[9][1] = .LastBookmarkId
$avStatusArray[10][0] = 'PhonemeId'
$avStatusArray[10][1] = .PhonemeId
$avStatusArray[11][0] = 'VisemeId'
$avStatusArray[11][1] = .VisemeId
EndWith
Return $avStatusArray
case "SynchronousSpeakTimeout"
if $fSet Then
if not IsNumber ( $vNewValue ) or IsString ( $vNewValue ) Then
Return SetError (3,0,0)
EndIf
$oSpeech.SynchronousSpeakTimeout = $vNewValue
EndIf
Return $oSpeech.SynchronousSpeakTimeout
case "Voice"
if $fSet Then
if not IsObj ( $vNewValue ) Then
Return SetError (3,0,0)
EndIf
$oSpeech.Voice = $vNewValue
EndIf
Dim $avVoiceArray[3] = [$oSpeech.Voice.Id, $oSpeech.Voice, $oSpeech.Voice.GetDescription()]
Return $avVoiceArray
case "Volume"
if $fSet Then
if not IsNumber ( $vNewValue ) or IsString ( $vNewValue ) or $vNewValue < 0 or $vNewValue > 100 Then
Return SetError (3,0,0)
EndIf
$oSpeech.Volume = $vNewValue
EndIf
Return $oSpeech.Volume
case Else
Return SetError(4,0,0)
EndSwitch
EndFunc ;==> _SpeechOption

[/autoit] [autoit][/autoit] [autoit]

; #FUNCTION# ;===============================================================================
;
; Name...........: _SpeechGetVoices
; Description ...: Returns an Array with Voices
; Syntax.........: _SpeechGetVoices($oSpeech)
; Parameters ....: $oSpeech - Speech COM Object
; Return values .: Success - Array with:
; [0] = Registery Key of Voice
; [1] = Com Object wich belongs to, eg use for _SpeechOption($oSpeech, "voice", $array[1,2,..][1])
; [2] = Description of Voice
; [3] - [7] Gender, Age (Dont work for my try for yourself), Name, Language, Vendor
; Failure - Returns 0 and Sets @Error:
; |1 - $oSpeech is not COM Object
; |2 - $oSpeech.GetVoices failed
; Author ........: Tom Schuster
; Modified.......:
; Remarks .......:
; Related .......: _SpeechGetAudioOutputs
; Link ..........;
; Example .......; No
;
; ;==========================================================================================
Func _SpeechGetVoices ( ByRef $oSpeech )
if Not IsObj ( $oSpeech ) Then
Return SetError (1,0,0)
EndIf
Local $oVoices, $oVoice, $avVoicesArray, $iIndex
$oVoices = $oSpeech.GetVoices
if Not IsObj ( $oVoices ) Then
Return SetError (2,0,0)
EndIf
Dim $avVoicesArray[1][8]
$iIndex = 0
for $oVoice in $oVoices
if Not IsObj ( $oVoice ) Then
Return SetError (3,0,0)
EndIf
If $iIndex > UBound ( $avVoicesArray ) -1 Then
ReDim $avVoicesArray[$iIndex+1][8]
EndIf
$avVoicesArray[$iIndex][0] = $oVoice.Id
$avVoicesArray[$iIndex][1] = $oVoice
$avVoicesArray[$iIndex][2] = $oVoice.GetDescription()
$avVoicesArray[$iIndex][3] = $oVoice.GetAttribute ("Gender")
;~ $avVoicesArray[$iIndex][4] = $oVoice.GetAttribute ("Age") Dont work on my Computer dont know why
$avVoicesArray[$iIndex][5] = $oVoice.GetAttribute ("Name")
$avVoicesArray[$iIndex][6] = $oVoice.GetAttribute ("Language")
$avVoicesArray[$iIndex][7] = $oVoice.GetAttribute ("Vendor")

$iIndex += 1
Next
Return $avVoicesArray
EndFunc ;==>_SpeechGetVoices

[/autoit] [autoit][/autoit] [autoit]

; #FUNCTION# ;===============================================================================
;
; Name...........: _SpeechGetAudioOutputs
; Description ...: Returns an Array with Audio Devices
; Syntax.........: _SpeechGetAudioOutputs($oSpeech)
; Parameters ....: $oSpeech - Speech COM Object
; Return values .: Success - Array with:
; [0] = Registery Key of Ouput
; [1] = Com Object wich belongs to, eg use for _SpeechOption($oSpeech, "AudioOutput", $array[1,2,..][1])
; [3] = Description/Name of Output
; Failure - Returns 0 and Sets @Error:
; |1 - $oSpeech is not COM Object
; |2 - $oSpeech.GetAudioOutPuts failed
; Author ........: Tom Schuster
; Modified.......:
; Remarks .......:
; Related .......: _SpeechGetVoices
; Link ..........;
; Example .......; No
;
; ;==========================================================================================
Func _SpeechGetAudioOutputs ( ByRef $oSpeech )
if Not IsObj ( $oSpeech ) Then
Return SetError (1,0,0)
EndIf
Local $oAudioOutputs, $oAudioOutput, $avAudioOutputsArray, $iIndex
$oAudioOutputs = $oSpeech.GetAudioOutPuts
if Not IsObj ( $oAudioOutputs ) Then
Return SetError (2,0,0)
EndIf
Dim $avAudioOutputsArray[1][3]
$iIndex = 0
for $oAudioOutput in $oAudioOutputs
if Not IsObj ( $oAudioOutput ) Then
Return SetError (3,0,0)
EndIf
If $iIndex > UBound ( $avAudioOutputsArray ) -1 Then
ReDim $avAudioOutputsArray[$iIndex+1][3]
EndIf
$avAudioOutputsArray[$iIndex][0] = $oAudioOutput.Id
$avAudioOutputsArray[$iIndex][1] = $oAudioOutput
$avAudioOutputsArray[$iIndex][2] = $oAudioOutput.GetDescription()
$iIndex += 1
Next
Return $avAudioOutputsArray
EndFunc ;==> _SpeechGetAudioOutputs

[/autoit] [autoit][/autoit] [autoit]

; #FUNCTION# ;===============================================================================
;
; Name...........: _SpeechDisyplayUI
; Description ...: Creats a UI
; Syntax.........: _SpeechDisplayUI (ByRef $oSpeech, $hWndParent , $sTitle, $sTypeOfUI, $vExtraData = 0)
; Parameters ....: $oSpeech - Speech COM Object
; $hWndParent - Specifies the window handle of the owning window
; $sTitle - Specifies the caption used for the UI window
; $sTypeOfUI - A String specifying the name of the UI to display ($SPDUI_AddRemoveWord...)
; $vExtraData - Optional: Specifies the ExtraData
; $iTryGethWnd - Optional: Try to get the window handle. Verry buggy and slow!!! Defintly fails if the $hWndParent has more then one parent
; Return values .: Success - 1
; Failure - Returns 0 and Sets @Error:
; |1 - $oSpeech is not a COM Object
; |2 - $hWndParent is not a Hwnd
; |3 - $sTitle is not a String
; |4 - $sTypeOfUI is not a String
; |5 - $sTypeOfUI is not supported
; |6 - Fails to get window handle
; Author ........: Tom Schuster
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......; No
;
; ;==========================================================================================
func _SpeechDisplayUI (ByRef $oSpeech, $hWndParent , $sTitle, $sTypeOfUI, $vExtraData = 0, $iTryGethWnd = 0)
if not IsObj ( $oSpeech ) or ObjName ($oSpeech) <> 'ISpeechVoice' Then
Return SetError (1,0,0)
EndIf
if not IsHWnd ( $hWndParent ) Then
Return SetError (2,0,0)
EndIf
if not IsString ( $sTitle ) Then
Return SetError (3,0,0)
EndIf
if not IsString ( $sTypeOfUI ) then
Return SetError (4,0,0)
EndIf
if not $oSpeech.IsUISupported ( $sTypeOfUi ) Then
Return SetError (5,0,0)
EndIf

$oSpeech.DisplayUI (int(string($hWndParent)), $sTitle, $sTypeOfUi, $vExtraData )

[/autoit] [autoit][/autoit] [autoit]

if $iTryGethWnd Then
if not ProcessExists ( WinGetProcess ( $hWndParent ) ) Then Return SetError (6,0,0)
sleep ( 250 )
$oWMI = ObjGet ( "winmgmts:\\localhost\root\CIMV2")
if @error then Return SetError (6,0,0)
$oReturn = $oWMI.ExecQuery ( "SELECT * FROM Win32_Process WHERE ParentProcessId = " & WinGetProcess ($hWndParent))
$iProcessID = - 1
for $oProcess in $oReturn
$iProcessID = $oProcess.ProcessID
Next
$oWMI = 0
if $iProcessID = -1 then Return SetError (6,0,0)

$avWinList = WinList ( )
for $i = 1 to $avWinList[0][0]
if WinGetProcess ($avWinList[$i][1]) = $iProcessID and BitAND (WinGetState ($avWinList[$i][1]),2) Then
Return $avWinList[$i][1]
EndIf
Next
Return SetError ( 6, 0, 0)
Else
Return 1
EndIf
EndFunc ;==>_SpeechDisyplayUI

[/autoit]

Ein Beispiel:

[autoit]

$o = _Speech ()
if @error Then
MsgBox ( 0 , "Error", "Konnte das SAPI.SPVoice Objekt nicht erstellen")
Exit
EndIf
$array = _SpeechGetVoices ( $o ) ; vorhandene Stimmen ausgeben
if @error Then
MsgBox ( 0 , "Error", "GetVoices ist fehlgeschlagen")
Exit
EndIf
$voice = false
for $i = 0 to UBound ( $array ) -1
if StringInStr ( $array[$i][0], 'LHANNA') Then ;nach der Stimme LHANNA suchen
$voice = $array[$i][1]
EndIf
Next
if $voice = False Then ;die Stimme wurde nicht gefunden
MsgBox ( 0 , "", "Die Computer Stimme LH ANNA ist nicht installiert")
;Man braucht den Microsoft Reader ( http://www.microsoft.com/reader/de/downloads/pc.mspx ) und
;die deutschen Stimmen (Microsoft Text-to-Speech Package; http://www.microsoft.com/reader/de/downloads/tts.mspx)
else
_SpeechOption ($o, "Voice", $voice ) ;das COM object, Anna überegeben
$text = InputBox ( "Was soll ich sagen", "Anna ja was soll ich den sagen?")
_SpeechSpeak ( $o, $text) ;den text sprechen lassen
EndIf

[/autoit]

progandy

Kannst dir hier ja ein paar Anregungen holen http://www.autoitscript.com/forum/index.php?showtopic=70079

Tom99

Ja könnte ich, lol man.
Aber es geht bei mir nur der Script leider nicht.

Code

$hImage = _WinAPI_LoadImage(0, $sImage, $IMAGE_BITMAP, $aSize[0], $aSize[1], $LR_LOADFROMFILE)
$hImage = _WinAPI_LoadImage(0, $sImage, ^ ERROR

Tom99

Willst du mir vielleicht helfen ?
Du scheinst dich damit ja sehr gut auszukennen.

**Alina**

Wieso das Rad neu erfinden?
@progandy hat Dir oben doch einen super Link gesendet. Es ist das englisches Forum und dort ist alles beschrieben incl. Bsp. .

Gruß, Crazy-A.

**BugFix**

@Tom99
Nicht direkt zum Thema, mehr allgemein: Du verwendest gerne Leerzeilen ? Ich persönlich finde es dann mühseliger Code zu lesen, weil dadurch etwas die Blockstruktur zerfledert wird. Aber unabhängig davon muß man dann hier immer scrollen um den Code zu überblicken.

progandy

ui include Tom: Welche AutoIt-Version hast du denn?
3.2.12.* muss eigentlich gehen.
Sonst propier mal, Constants.au3 zu includen

Tom99 · Habe Version 3.2.12.1, aber mit Constants.au3 gehts. Danke

Habe Version 3.2.12.1, aber mit Constants.au3 gehts. Danke

Tom99

Hab mich mal eines Updates behmüht siehe Post 1.