| |
| |
|
| - Página 1 - |
|
Frank
Abbing | | Ein kleines Testprogramm de me. Happert lo todavía irgendwo? |
|
| |
| |
| |
|
|
| |
| |
| - Página 3 - |
|
Frank
Abbing | [quote:3dd6bef327]El installierten Stimmen posición en el Registry bajo
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftSpeechVoicesTokens]
Jede ha una Unterschlüssel ATTRIBUTES, en el alles drin es, qué lo a wissen son.
Soweit Yo el verstanden habe, lesen el entsprechenden SAPIs para Auswählen/Aufzählen auch sólo como después de.[/quote:3dd6bef327]
Soweit klar. Puedo hay todos installierten Stimmen encontrar. Nur kann Yo beim besten Willen no erkennen, welche Stimme porque ahora aktiviert es.
Kann me de tiempo alguien nen Schubs en el richtige Richtung geben?  |
|
| |
| |
| |
|
|
Frank
Abbing | Ok, tener el passende Punto gefunden. 
Como werd Yo otra vez una bischen más remendar. |
|
| |
| |
| |
|
|
Frank
Abbing | El Inglés después de Alemán Transformation bringt no viel una. Yo voluntad ellos para el Dll no más verfolgen.
Yo schreib ni Anleitung, aber ansonsten es ellos fertig.
@Pascal, dein Programa produziert todavía Fehler (Choque oder fehlende Sprachausgabe), si la Buchstaben c, q y x en el Texto benutzt voluntad (sch se sí umgewandelt en sh). |
|
| |
| |
| |
|
|
Walter | ¡Hola,
el Thema Sprachausgabe es hier seit 2006 verwaist, interessiert mich sin embargo ya largo y nun otra vez besonders.
Posesiones 4 Stimmen installiert y erfolgreich algunos Programas con Sprachausgabe geschrieben - dank speech.dll - nun aber el Notwendigkeit, auch el Lautstärke a steuern y el Stimme a wechseln (qué con speech.dll actualmente no posible es).
El Versuchs- y Beispielscodes verstehe Yo desafortunadamente sólo para Teil  . Scheitere sí ya al ! en el ersten Línea (qué bedeutet el? Wo finde Yo algo darüber? zB
!
window 50,50-500,200
Wenn me auch Speicherbereiche no bastante fremd son, son Registry y COM zumindest actualmente no innerhalb meines Wirkungsvermögens - kurz: hay ev. doch una DLL oder una INC, con el auch Unbedarfte SAPI samt Stimmenauswahl, Lautstärke, Pausen,... ansprechen puede? |
|
| |
| |
| |
|
|
 | Stimmt, el Thema es 10 Jahre jung. ^ ^
Das Ausrufezeichen al Anfang dieses Codes gehört no para Code -
el war una Flag para una hiesiges Feature para Verzicht en Codeformatierung.
Was el speech.dll betrifft schrieb Franco en 2006:
> El Inglés después de Alemán Transformation bringt no viel una.
> Yo voluntad ellos para el Dll no más verfolgen.
Tal vez kontaktierst Usted ihn dafür direkt encima seine Página: [...] 
Sehe Yo el correcto, dass Uwe (más oben) con seinem Code erfolgreich Lingua ausgibt? |
|
| |
| |
| |
|
|
Walter | >Sehe Yo el correcto, dass Uwe (más oben) con seinem Code erfolgreich Lingua ausgibt?
So klingt lo, y yo habe lo auch después de Entfernen des Rufzeichens intenta. Problemloser Durchlauf, sin embargo en me kein Mucks.
Waran lo liegt?? Leider blicke Yo a el Schnittstelle no por...
Wäre natürlich interessant, como sí (neben el Transformation el Laute) el Alemán Stimme auch direkt aufgerufen se.
>Vielleicht kontaktierst Usted ihn (Franco) dafür direkt encima seine Página
Werde Yo hacer.
Gracias! |
|
| |
| |
| |
|
|
| | Hast Usted veces el Code de Uwe repariert y parat, also esta ganzen überflüssigen Signo lejos? |
|
| |
| |
| |
|
|
Walter | | Das war mi letzte Testversion (vom 30.12.) |
 | 4 kB | | | Bezeichnung: | Test SAPI | | | Kurzbeschreibung: | Versuchscode de Uwes Ejemplo | | | Hochgeladen: | 12.01.2016 | | | Ladeanzahl: |  | | | Descargar |
|
| |
| |
| |
|
|
Walter | Posesiones de Franco desafortunadamente una Absage obtener: "...se lo de meiner Software kein Actualización mehr geben."
Mittlerweile auch intenta, en el Code-Ejemplo de Pascal StringToGUID("{96749377-3391-11D2-9EE3-00C04F797396}",a#)
por el Key de Steffi de meiner Registry a sustituir. Ergebnis: Statt Durchlauf sin Sprachausgabe (como vorher) erfolgte una Choque.
Gibt lo irgendwo Doku, el me weiterhilft?
Beste Grüße
Walter |
|
| |
| |
| |
|
|
Georg
Teles | Nabend,
Walter (12.01.2016)
... nun aber el Notwendigkeit, auch el Lautstärke a steuern y el Stimme a wechseln (qué con speech.dll actualmente no posible es) ...
also con el Lautstärke puede ser se con el WINMM.DLL behelfen, en esta wenigstens encima el MS-Mixer a steuern, hier el erweiterte Speech.prf
Declarar sx&,sy&,texto$,x&,y&,speechdll&
Declarar hButt01&, hButt02&, hEdit01&
Def GetSysColor(1) !"USER32","GetSysColor"
Def LoadIcon(2) !"USER32","LoadIconA"
Def InitSpeech(0) !"SPEECH","InitSpeech"
Def DeInitSpeech(0) !"SPEECH","DeInitSpeech"
Def PlaySpeech(2) !"SPEECH","PlaySpeech"
Def StopSpeech(0) !"SPEECH","StopSpeech"
'--------# zusätzliche DEFs
DEF waveOutSetVolume(2)!"winmm","waveOutSetVolume"
DEF waveOutGetVolume(2)!"winmm","waveOutGetVolume"
Def HiWord(1) (&(1)\$10000)
Def LoWord(1) And(&(1),$FFFF)
Def MakeLong(2)Or(&(1),(&(2)*$10000))
Def GetLeftChannel(1) (LoWord(&(1))\$028F)
Def GetRightChannel(1) (HiWord(&(1))\$028F)
'--------#
speechdll&=UseDll("Speech.dll")
sx&=640
sy&=480
Windowstyle 26+512
Windowtitle "Speech.dll Testcode."
Ventana %maxx,0-sx&,sy&
SendMessage(%hwnd,$80,1,LoadIcon(0,32517))'Application Icon conjunto
Cls GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
hButt01& = Crear("BUTTON",,%hwnd,"Text sprechen",16, 408, 120, 24)
hButt02& = Crear("BUTTON", %hwnd,"Sprache stoppen", 144, 408, 120, 24)
hEdit01& = Crear("MultiEdit",%hwnd,"Das es una Probetext.",16,16,600,382)
'--------# zusätzliche VARs & Regler
Declarar volumeregler&,LautL%,LautR%,Volume&
volumeregler&=Crear("HScroll",%HWND,"",288, 408, 120, 24)
SetScrollRange volumeregler&,0,100'Range en 100 conjunto
waveOutGetVolume(-1,Addr(Volume&))
LautL% = GetLeftChannel(Volume&)'linker Kanal reciht de en beide igual a conjunto
'LautR% = GetRightChannel(Volume&) 'rechter Kanal
SetScrollPos volumeregler&,LautL%
'--------#
SetWindowPos %hwnd=(%maxx/2-(sx&/2)),(%maxy/2-(sy&/2))-sx&,sy&
InitSpeech()
Mientras que 1
Waitinput
'--------# zusätzliche abfrage Regler & Lautstärke conjunto
LautL% = (GetScrollPos(volumeregler&))
waveOutSetVolume(-1,MakeLong((LautL%*$028F),(LautL%*$028F)))'beide igual conjunto después de el Regler
'waveOutSetVolume(-1,MakeLong((LautL%*$028F),(LautR%*$028F))) 'beide Kanäle
'--------#
If %key=2
BREAK
ElseIf Clicked(hButt01&)
texto$=GetText $(hEdit01&)
PlaySpeech(addr(texto$),len(texto$))
ElseIf Clicked(hButt02&)
StopSpeech()
EndIf
EndWhile
DeInitSpeech()
Freedll speechdll&
End
Aber el Stimme a wechseln, ni idea, todavía nie así zutun gehabt 
Servus |
|
| |
| |
| |
|
| |
| |
| - Página 4 - |
|
|
Walter | Sí, va super!
El Lautstärke adaptar a puede es ya muy hilfreich!
Gracias
Walter |
|
| |
| |
| |
|
|
Georg
Teles | |
| |
| |
| |
|
(851)
Deutsch
English
Français
Español
Italia