wie kann ich Sapi.voice disposen?

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von -Franky-.

    wie kann ich Sapi.voice disposen?

    Neu

    Hallo ,

    ich benutze SAPI.spVoice und frage mich, wie ich das Object wieder sauber aus dem Speicher bekomme kann?
    Gibt es dazu ein Dispose? Oder kann ich das irgendwie mit using machen?

    VB.NET-Quellcode

    1. Dim ObjTextToSpeech
    2. ObjTextToSpeech = CreateObject("SAPI.spVoice")
    3. ObjTextToSpeech.Speak(cNachricht, speechFlags)


    Als Ergänzung möchte ich mein Problem beschreiben.

    Wenn ich Sprachausgabe ca. 160 hintereinander aufrufe, dann erhalte ich eine Execption mit dem Hinweis
    "Zur Verarbeitung dieses Befehls sind nicht genügend Speicherressourcen verfügbar(Ausnahme von HRESLT: 0X80070008)
    Error Code -2147024888


    Der Fehler tritt auf mehreren PC auf. Alle mit 16 GB RAM . Win 10

    Neu

    @Der flotte Johann Gibt es da ein DestroyObject()?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Neu

    Hi
    Füge einen Verweis unter COM auf die "Microsoft Speech Object Library 5.4" zu Deinem Projekt hinzu. Eventuell werden Dir da zwei Einträge angezeigt. Nur einer davon funktioniert. Bei mir die Dateiversion "5.3.29317.00".

    VB.NET-Quellcode

    1. Imports SpeechLib
    2. Imports System.ComponentModel
    3. Imports System.Runtime.InteropServices
    5. Public Class Form1
    6. Private TextToSpeech As New SpVoice
    8. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    9. TextToSpeech.Speak("Das ist ein Text.", SpeechVoiceSpeakFlags.SVSFlagsAsync)
    10. End Sub
    12. Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
    13. Marshal.ReleaseComObject(TextToSpeech)
    14. End Sub
    15. End Class

    Falls Du lieber mit "CreateObject" arbeiten möchtest, sollte es ausreichen ObjTextToSpeech = Nothing zu setzen.
    Mfg -Franky-

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „-Franky-“ ()

    Neu

    Nun, ich habe es jetzt so gelöst, dass ich das Sapi.SPVoice als Globala Variable verwalte und dann nur ein einziges mal beim ersten Speak Befehl erstelle.
    Bei allen 10.000 folgenden Texten greife ich dann auf diese Globale Variable zurück, damit funktioniert es.

    Global

    VB.NET-Quellcode

    1. Public ObjTextToSpeech as Object


    VB.NET-Quellcode

    1. if isnothing(ObjTexttoSpeed) then
    2. ObjTextToSpeech = CreateObject("SAPI.spVoice")
    3. endif
    4. ObjTextToSpeech.Speak(cNachricht, speechFlags)


    Problem gelöst- Vielen Dank!

    Neu

    Hi. CreateObject ist Bestanteil vom Namespace Microsoft.VisualBasic den man nach Möglichket in .NET nicht verwenden sollte. Spätes Binden ist auch nicht das gelbe vom Ei da Du dafür Option Strict Off arbeiten musst. Was spricht den gegen eine Referenz, und den damit verbundenen Vorteilen, auf die "Microsoft Speech Object Library"?
    Mfg -Franky-

    Neu

    Der flotte Johann schrieb:

    Außerdem möchte ich so wenige wie möglich Abhängigkeiten im Einsatz.
    Das kann ich gut nachvollziehen. In dem Fall kannst Du auch direkt die Speech-Interfaces nutzen. Kein Verweis, kein Nuget-Paket und wenn man das ganze schön in eine Klasse packt, Kannst auch "Implements IDisposable" in die Klasse schreiben und hast Dein Dispose. ;)

    Unvollständig und alles in einer Form
    Spoiler anzeigen

    VB.NET-Quellcode

    1. ' https://learn.microsoft.com/en-us/previous-versions/office/developer/speech-technologies/jj127823(v=msdn.10)
    3. Imports System.ComponentModel
    4. Imports System.Runtime.InteropServices
    6. Public Class Form1
    8. Private Const CLSID_SpVoice As String = "9bc773b8-9b6c-400f-8af0-0dfdd1c43229"
    9. Private Const IID_ISpVoice As String = "6c44df74-72b9-4992-a1ec-ef996e0422d4"
    11. Private Enum SPEAKFLAGS As UInteger
    12. SPF_DEFAULT = &H0
    13. SPF_ASYNC = &H1
    14. SPF_PURGEBEFORESPEAK = &H2
    15. SPF_IS_FILENAME = &H4
    16. SPF_IS_XML = &H8
    17. SPF_IS_NOT_XML = &H10
    18. SPF_PERSIST_XML = &H20
    19. SPF_NLP_SPEAK_PUNC = &H40
    20. SPF_PARSE_SAPI = &H80
    21. SPF_PARSE_SSML = &H100
    22. End Enum
    24. Private m_ISpVoice As ISpVoice
    26. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    27. m_ISpVoice = CType(Activator.CreateInstance(Type.GetTypeFromCLSID(
    28. New Guid(CLSID_SpVoice))),
    29. ISpVoice)
    30. End Sub
    32. Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
    33. If m_ISpVoice IsNot Nothing Then Marshal.ReleaseComObject(m_ISpVoice)
    34. End Sub
    36. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    37. If m_ISpVoice IsNot Nothing Then
    38. m_ISpVoice.SetRate(-1)
    39. m_ISpVoice.Speak("Das ist ein Test.", SPEAKFLAGS.SPF_ASYNC, Nothing)
    40. End If
    41. End Sub
    43. #Region "Interface ISpVoice"
    44. <ComImport>
    45. <InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    46. <Guid(IID_ISpVoice)>
    47. Private Interface ISpVoice
    48. '/*** ISpNotifySource methods ***/
    49. 'HRESULT (STDMETHODCALLTYPE *SetNotifySink)(
    50. ' ISpNotifySink *pNotifySink);
    51. <PreserveSig> Function SetNotifySink() As Integer
    53. 'HRESULT (STDMETHODCALLTYPE *SetNotifyWindowMessage)(
    54. ' HWND hWnd,
    55. ' UINT Msg,
    56. ' WPARAM wParam,
    57. ' LPARAM lParam);
    58. <PreserveSig> Function SetNotifyWindowMessage() As Integer
    60. 'HRESULT (STDMETHODCALLTYPE *SetNotifyCallbackFunction)(
    61. ' SPNOTIFYCALLBACK *pfnCallback,
    62. ' WPARAM wParam,
    63. ' LPARAM lParam);
    64. <PreserveSig> Function SetNotifyCallbackFunction() As Integer
    66. 'HRESULT (STDMETHODCALLTYPE *SetNotifyCallbackInterface)(
    67. ' ISpNotifyCallback *pSpCallback,
    68. ' WPARAM wParam,
    69. ' LPARAM lParam);
    70. <PreserveSig> Function SetNotifyCallbackInterface() As Integer
    72. 'HRESULT (STDMETHODCALLTYPE *SetNotifyWin32Event)
    73. <PreserveSig> Function SetNotifyWin32Event() As Integer
    75. 'HRESULT (STDMETHODCALLTYPE *WaitForNotifyEvent)(
    76. ' DWORD dwMilliseconds);
    77. <PreserveSig> Function WaitForNotifyEvent() As Integer
    79. 'HANDLE (STDMETHODCALLTYPE *GetNotifyEventHandle)
    80. <PreserveSig> Function GetNotifyEventHandle() As Integer
    82. '/*** ISpEventSource methods ***/
    83. 'HRESULT (STDMETHODCALLTYPE *SetInterest)(
    84. ' ULONGLONG ullEventInterest,
    85. ' ULONGLONG ullQueuedInterest);
    86. <PreserveSig> Function SetInterest() As Integer
    88. 'HRESULT (STDMETHODCALLTYPE *GetEvents)(
    89. ' ULong ulCount,
    90. ' SPEVENT * pEventArray,
    91. ' ULong * pulFetched);
    92. <PreserveSig> Function GetEvents() As Integer
    94. 'HRESULT (STDMETHODCALLTYPE *GetInfo)(
    95. ' SPEVENTSOURCEINFO *pInfo);
    96. <PreserveSig> Function GetInfo() As Integer
    98. '/*** ISpVoice methods ***/
    99. 'HRESULT (STDMETHODCALLTYPE *SetOutput)(
    100. ' IUnknown *pUnkOutput,
    101. ' WINBOOL fAllowFormatChanges);
    102. <PreserveSig> Function SetOutput() As Integer
    104. 'HRESULT (STDMETHODCALLTYPE *GetOutputObjectToken)(
    105. ' ISpObjectToken **ppObjectToken);
    106. <PreserveSig> Function GetOutputObjectToken() As Integer
    108. 'HRESULT (STDMETHODCALLTYPE *GetOutputStream)(
    109. ' ISpStreamFormat **ppStream);
    110. <PreserveSig> Function GetOutputStream() As Integer
    112. 'HRESULT (STDMETHODCALLTYPE *Pause)
    113. <PreserveSig> Function Pause() As Integer
    115. 'HRESULT (STDMETHODCALLTYPE *Resume)
    116. <PreserveSig> Function [Resume]() As Integer
    118. 'HRESULT (STDMETHODCALLTYPE *SetVoice)(
    119. ' ISpObjectToken *pToken);
    120. <PreserveSig> Function SetVoice() As Integer
    122. 'HRESULT (STDMETHODCALLTYPE *GetVoice)(
    123. ' ISpObjectToken **ppToken);
    124. <PreserveSig> Function GetVoice() As Integer
    126. 'HRESULT (STDMETHODCALLTYPE *Speak)(
    127. ' LPCWSTR pwcs,
    128. ' DWORD dwFlags,
    129. ' ULong * pulStreamNumber);
    130. <PreserveSig> Function Speak(<[In], MarshalAs(UnmanagedType.LPWStr)> pwcs As String,
    131. <[In]> dwFlags As SPEAKFLAGS,
    132. <Out> ByRef pulStreamNumber As ULong) As Integer
    134. 'HRESULT (STDMETHODCALLTYPE *SpeakStream)(
    135. ' IStream *pStream,
    136. ' DWORD dwFlags,
    137. ' ULONG *pulStreamNumber);
    138. <PreserveSig> Function SpeakStream() As Integer
    140. 'HRESULT (STDMETHODCALLTYPE *GetStatus)(
    141. ' SPVOICESTATUS *pStatus,
    142. ' LPWSTR *ppszLastBookmark);
    143. <PreserveSig> Function GetStatus() As Integer
    145. 'HRESULT (STDMETHODCALLTYPE *Skip)(
    146. ' LPCWSTR pItemType,
    147. ' LONG lNumItems,
    148. ' ULONG *pulNumSkipped);
    149. <PreserveSig> Function Skip() As Integer
    151. 'HRESULT (STDMETHODCALLTYPE *SetPriority)(
    152. ' SPVPRIORITY ePriority);
    153. <PreserveSig> Function SetPriority() As Integer
    155. 'HRESULT (STDMETHODCALLTYPE *GetPriority)(
    156. ' SPVPRIORITY *pePriority);
    157. <PreserveSig> Function GetPriority() As Integer
    159. 'HRESULT (STDMETHODCALLTYPE *SetAlertBoundary)(
    160. ' SPEVENTENUM eBoundary);
    161. <PreserveSig> Function SetAlertBoundary() As Integer
    163. 'HRESULT (STDMETHODCALLTYPE *GetAlertBoundary)(
    164. ' SPEVENTENUM *peBoundary);
    165. <PreserveSig> Function GetAlertBoundary() As Integer
    167. 'HRESULT (STDMETHODCALLTYPE *SetRate)(
    168. ' Long RateAdjust);
    169. <PreserveSig> Function SetRate(<[In]> RateAdjust As Integer) As Integer
    171. 'HRESULT (STDMETHODCALLTYPE *GetRate)(
    172. ' Long * pRateAdjust);
    173. <PreserveSig> Function GetRate(<Out> ByRef pRateAdjust As Integer) As Integer
    175. 'HRESULT (STDMETHODCALLTYPE *SetVolume)(
    176. ' UShort usVolume);
    177. <PreserveSig> Function SetVolume() As Integer
    179. 'HRESULT (STDMETHODCALLTYPE *GetVolume)(
    180. ' UShort * pusVolume);
    181. <PreserveSig> Function GetVolume() As Integer
    183. 'HRESULT (STDMETHODCALLTYPE *WaitUntilDone)(
    184. ' ULong msTimeout);
    185. <PreserveSig> Function WaitUntilDone() As Integer
    187. 'HRESULT (STDMETHODCALLTYPE *SetSyncSpeakTimeout)(
    188. ' ULong msTimeout);
    189. <PreserveSig> Function SetSyncSpeakTimeout() As Integer
    191. 'HRESULT (STDMETHODCALLTYPE *GetSyncSpeakTimeout)(
    192. ' ULong * pmsTimeout);
    193. <PreserveSig> Function GetSyncSpeakTimeout() As Integer
    195. 'HANDLE (STDMETHODCALLTYPE *SpeakCompleteEvent)
    196. <PreserveSig> Function SpeakCompleteEvent() As Integer
    198. 'HRESULT (STDMETHODCALLTYPE *IsUISupported)(
    199. ' LPCWSTR pszTypeOfUI,
    200. ' void *pvExtraData,
    201. ' ULong cbExtraData,
    202. ' WINBOOL * pfSupported);
    203. <PreserveSig> Function IsUISupported() As Integer
    205. 'HRESULT (STDMETHODCALLTYPE *DisplayUI)(
    206. ' HWND hwndParent,
    207. ' LPCWSTR pszTitle,
    208. ' LPCWSTR pszTypeOfUI,
    209. ' void *pvExtraData,
    210. ' ULong cbExtraData);
    211. <PreserveSig> Function DisplayUI() As Integer
    213. End Interface
    214. #End Region
    215. End Class

    Mfg -Franky-

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „-Franky-“ ()

    Neu

    Der flotte Johann schrieb:

    Es gibt keine Änderung der Geschwindigkeit. Ich habe Parameter -3 , 3 , 10, 1000, und 30000 getestet.

    Wenn Du dem Link in meinem Code folgst -> SetRate: learn.microsoft.com/en-us/prev…logies/jj149379(v=msdn.10) -> Parameters und Remarks lesen.

    ISPVoice.SetVoice -> learn.microsoft.com/en-us/prev…logies/jj149381(v=msdn.10) -> Da gibt es ein kleines C++ Beispiel wie man die installieren Voices auflistet und an die entsprechenden Token eines bestimmten Voice kommt.
    Mfg -Franky-

    Neu

    Hi. Auch wenn das Thema eventuell erledigt ist, habe ich dennoch ein bischen was an meinem Code geschraubt und ein bissel erweitert. Ist halt nur Testcode und darf gern verbessert und erweitert werden. Was kann das Ding: Natürlich einen String wiedergeben, Volume und Rate kann angepasst werden, die installierten Voices können ermittelt werden und entsprechend kann für die Ausgabe ein Voice eingestellt werden. Keine Referenzen und keine Nuget-Pakete. Dafür Unvollständig (ich brauch das ja nicht). Da geht also noch viel mehr. Ab Win10 würde ich die TTS über die WinRT bevorzugen da diese einfacher zu programmieren ist als die TTS über die SAPI-Interfaces.
    Dateien
    Mfg -Franky-