| |
| |
|
| - page 1 - |
|
Frank
Abbing | | un kleines Testprogramm de mir. Happert es encore irgendwo? |
|
| |
| |
| |
|
|
| |
| |
| - page 3 - |
|
Frank
Abbing | [quote-part:3dd6bef327]qui installierten Stimmen stehen dans qui Registry sous
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftSpeechVoicesTokens]
chacun hat une Unterschlüssel ATTRIBUTES, dans dem alles drin steht, quoi es trop savons gibt.
Soweit je cela verstanden habe, lesen qui entsprechenden SAPIs zum Auswählen/Aufzählen aussi seulement là pour.[/quote-part:3dd6bef327]
Soweit bien sûr. je peux là alle installierten Stimmen trouver. seulement peux je beim besten Willen pas erkennen, quelle Stimme car maintenant aktiviert ist.
peux mir la fois quelqu'un nen Schubs dans qui richtige direction donner?  |
|
| |
| |
| |
|
|
Frank
Abbing | Ok, hab qui passende Stelle trouvé. 
là werd je nochmal un un peu plus bricoler. |
|
| |
| |
| |
|
|
Frank
Abbing | qui englisch pour allemande Transformation bringt pas viel un. je werde vous pour qui Dll pas plus poursuivre.
je schreib encore une Anleitung, mais ansonsten ist vous fertig.
@Pascal, dein Programme produziert encore faute (Absturz ou bien fehlende Sprachausgabe), si le Buchstaben c, q et x im Text benutzt volonté (sch wird oui umgewandelt dans sh). |
|
| |
| |
| |
|
|
Walter | Salut,
cela Thema Sprachausgabe ist ici depuis 2006 verwaist, intéressé mich cependant déjà longtemps et eh bien wieder besonders.
Habe 4 Stimmen installiert et erfolgreich quelques Programme avec Sprachausgabe geschrieben - dank speech.dll - eh bien mais qui Notwendigkeit, aussi qui Lautstärke trop steuern et qui Stimme trop échanger (quoi avec speech.dll derzeit pas possible ist).
qui Versuchs- et Beispielscodes verstehe je malheureusement seulement zum partie  . Scheitere oui bereits am ! dans qui ersten la ligne (quoi bedeutet cela? wohin finde je quelque chose par-dessus? zB
!
window 50,50-500,200
si mir aussi Speicherbereiche pas entier fremd sommes, sommes Registry et COM zumindest derzeit pas dedans meines Wirkungsvermögens - kurz: gibt es ev. doch une DLL ou bien une INC, avec qui aussi Unbedarfte SAPI velours Stimmenauswahl, Lautstärke, Pausen,... ansprechen peut? |
|
| |
| |
| |
|
|
 | Stimmt, cela Thema ist 10 Jahre jeune. ^ ^
cela Ausrufezeichen am Anfang cet Codes est pas zum Code -
cela était un Flag pour un hiesiges Feature pour Verzicht sur Codeformatierung.
quoi qui speech.dll betrifft schrieb Frank dans 2006:
> qui englisch pour allemande Transformation bringt pas viel un.
> je werde vous pour qui Dll pas plus poursuivre.
peut-être kontaktierst Du ihn pour direct sur sa page: [...] 
vois je cela richtig, dass Uwe (plus dessus) avec seinem Code erfolgreich Discours ausgibt? |
|
| |
| |
| |
|
|
Walter | >Sehe je cela richtig, dass Uwe (plus dessus) avec seinem Code erfolgreich Discours ausgibt?
So klingt es, et j'ai es aussi pour Entfernen des Rufzeichens versucht. Problemloser Durchlauf, cependant chez mir ne...aucune Mucks.
Waran es liegt?? malheureusement blicke je à qui Schnittstelle pas par...
Wäre naturellement intéressant, là oui (près de qui Transformation qui Laute) l'allemande Stimme aussi direct aufgerufen wird.
>Vielleicht kontaktierst Du ihn (Frank) pour direct sur sa page
Werde je faire.
merci! |
|
| |
| |
| |
|
|
| | la hâte Du la fois den Code de Uwe repariert et prêt, alors cet ganzen überflüssigen marque entfernt? |
|
| |
| |
| |
|
|
Walter | | cela était mon dernier Testversion (vom 30.12.) |
 | 4 kB | | | Bezeichnung: | Test SAPI | | | Kurzbeschreibung: | Versuchscode aus Uwes Beispiel | | | Hochgeladen: | 12.01.2016 | | | Downloadcounter: |  | | | Download |
|
| |
| |
| |
|
|
Walter | Habe de Frank malheureusement une refus conservé: "...wird es de meiner Software ne...aucune Update plus donner."
Mittlerweile aussi versucht, im Code-Beispiel de Pascal StringToGUID("{96749377-3391-11D2-9EE3-00C04F797396}",a#)
par den Key de Steffi aus meiner Registry trop ersetzen. Ergebnis: Statt Durchlauf sans Sprachausgabe (comment auparavant) erfolgte un Absturz.
Gibt es irgendwo Doku, qui mir weiterhilft?
Beste Grüße
Walter |
|
| |
| |
| |
|
|
Georg
Teles | Nabend,
Walter (12.01.2016)
... eh bien mais qui Notwendigkeit, aussi qui Lautstärke trop steuern et qui Stimme trop échanger (quoi avec speech.dll derzeit pas possible ist) ...
alors avec qui Lautstärke peux on sich avec qui WINMM.DLL behelfen, um cet wenigstens sur den MS-Mixer trop steuern, ici qui Avancé Speech.prf
Déclarer sx&,sy&,text$,x&,y&,speechdll&
Déclarer 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."
Fenêtre %maxx,0-sx&,sy&
SendMessage(%hwnd,$80,1,LoadIcon(0,32517))'Application Icon mettons
Cls GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
hButt01& = Créer("BUTTON",,%hwnd,"Text sprechen",16, 408, 120, 24)
hButt02& = Créer("BUTTON", %hwnd,"Sprache stoppen", 144, 408, 120, 24)
hEdit01& = Créer("MultiEdit",%hwnd,"Das est un Probetext.",16,16,600,382)
'--------# zusätzliche VARs & Regler
Déclarer volumeregler&,LautL%,LautR%,Volume&
volumeregler&=Créer("HScroll",%HWND,»,288, 408, 120, 24)
SetScrollRange volumeregler&,0,100'la gamine sur 100 mettons
waveOutGetVolume(-1,Addr(Volume&))
LautL% = GetLeftChannel(Volume&)'linker canal reciht aus um beide juste trop mettons
'LautR% = GetRightChannel(Volume&) 'rechter canal
SetScrollPos volumeregler&,LautL%
'--------#
SetWindowPos %hwnd=(%maxx/2-(sx&/2)),(%maxy/2-(sy&/2))-sx&,sy&
InitSpeech()
Tandis que 1
Waitinput
'--------# zusätzliche abfrage Regler & Lautstärke mettons
LautL% = (GetScrollPos(volumeregler&))
waveOutSetVolume(-1,MakeLong((LautL%*$028F),(LautL%*$028F)))'beide juste mettons pour dem Regler
'waveOutSetVolume(-1,MakeLong((LautL%*$028F),(LautR%*$028F))) 'beide Kanäle
'--------#
Si %clé=2
BREAK
ElseIf Clicked(hButt01&)
text$=GetText $(hEdit01&)
PlaySpeech(addr(text$),len(text$))
ElseIf Clicked(hButt02&)
StopSpeech()
EndIf
Endwhile
DeInitSpeech()
Freedll speechdll&
Fin
mais qui Stimme trop échanger, je n'en sais rien, encore nie avec cela zutun gehabt 
salut |
|
| |
| |
| |
|
| |
| |
| - page 4 - |
|
|
Walter | oui, allez super!
qui Lautstärke anpassen trop peut ist bereits très hilfreich!
merci
Walter |
|
| |
| |
| |
|
|
Georg
Teles | |
| |
| |
| |
|
(921)
Deutsch
English
Français
Español
Italia