| |
|
|
Frank Abbing | un kleines Testprogramm de mir. Happert es encore irgendwo? |
|
|
| |
|
|
|
Torsten Rümker | Tja si je maintenant une allemand Stimme installiert hätte
Funktioniert sur jeden le cas (sauf cela chez mir naturellement Sam vorliest).
MfG Torsten
PS: woher bekommt on eigentlich autre Stimmen? direct de Microsoft denke je la fois. juste la fois chercher. |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 17.06.2006 ▲ |
|
|
|
|
Frank Abbing | oui, chez Microsoft: [...] |
|
|
| |
|
|
|
Torsten Rümker | merci pour qui flinke antwort juste la fois installer.
suis à vrai dire déjà entier gespannt.
MfG Torsten
[EDIT] PS: Mir comme Stefan besser. [/EDIT] |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 17.06.2006 ▲ |
|
|
|
|
Torsten Rümker | Mmmh, dis donc, wohin finde je car wohl une Aider pour qui SAPI?
Mir schwebt justement so avant meinem Chat (dans Entwicklung) une optionale Sprachausgabe mitzugeben
MfG Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 17.06.2006 ▲ |
|
|
|
|
Frank Abbing | qui Aider en supplément findest du [...] . |
|
|
| |
|
|
|
Torsten Rümker | tse, cela liegt daran, si on qui falschen Suchbegriffe eingibt um quelque chose comme pour trouver. merci dir. |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 17.06.2006 ▲ |
|
|
|
|
Jac de Lad | allô Frank!
Kannste pour qui SAPI peut-être ne INC ou bien so pour Einsteiger faire? (alors gens comment mich) ensuite könnten wir cela aussi dans Profan nutzen!
Jac |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 17.06.2006 ▲ |
|
|
|
|
Uwe ''Pascal'' Niemeier | allô gens!
ici un Versuchscode de mir:
!
window 50,50-500,200
$H Messages.ph
$H Windows.ph
declare a#,b#
dim a#,1024
dim b#,16
proc MultiToWide--------------------------------------------------------------
parameters Text$,Ziel&
return ~MultiByteToWideChar(0,0,addr(Text$),-1,Ziel&,250)
endproc-----------------------------------------------------------------------
proc StringToGUID-------------------------------------------------------------
parameters GUID$,GUID&
declare Temp$
Temp$=space$(80)
~MultiByteToWideChar(1,1,addr(GUID$),-1,addr(Temp$),80)
external("ole32","CLSIDFromString",addr(Temp$),GUID&)
endproc-----------------------------------------------------------------------
proc CallMethod---------------------------------------------------------------
parameters IFace&,Method&
declare VTable&
VTable&=long(IFace&,0)
Method&=long(VTable&,Method&*4)
cas %pcount=2:return call( Method&,IFace& )
cas %pcount=3:return call( Method&,IFace&,&(3) )
cas %pcount=4:return call( Method&,IFace&,&(3),$(4) )
cas %pcount=5:return call( Method&,IFace&,&(3),&(4),&(5) )
endproc-----------------------------------------------------------------------
declare ISpVoice&,Text$,Error&
external("ole32","CoInitialize",0)
StringToGUID("{96749377-3391-11D2-9EE3-00C04F797396}",a#)
StringToGUID("{6C44DF74-72B9-4992-A1EC-EF996E0422D4}",b#)
Error&=external("ole32","CoCreateInstance",a#,0,23,b#,addr(ISpVoice&))
imprimer "Error CoCreateInstance",Error&
imprimer "ISpVoice",ISpVoice&
imprimer
Text$="Hallo Test"
MultiToWide(Text$,a#)
Error&=CallMethod(ISpVoice&,20,a#,0,0)
imprimer "Error ISpVoice::Speak",Error&
imprimer
Text$="<pitch middle=+20/> allô Test"
MultiToWide(Text$,a#)
Error&=CallMethod(ISpVoice&,20,a#,8,0)
imprimer "Error ISpVoice::Speak",Error&
imprimer
Error&=CallMethod(ISpVoice&,2)
imprimer "Error ISpVoice::Release",Error&
external("ole32","CoUninitialize")
waitkey
là wäre sûrement plus rauszuholen, si je irgendwo une Sapi-Headerdatei trouver könnte; dans welchem Package de MS ist qui drin?? (Habe aucun Lust, sur le doute 30 MB runterzuladen)
PS: là pouvoir sich wieder qui fehlende COM-Unterstützung bemerkbar...
SeeYou Pascal |
|
|
| |
|
|
|
RGH | [quote-part:034943faec=Uwe Pascal Niemeier]PS: là pouvoir sich wieder qui fehlende COM-Unterstützung bemerkbar... [/quote-part:034943faec] allô Pascal, comment pourrait ou bien sollte Deiner attitude pour une solche Unterstützung air?
Salut Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 17.06.2006 ▲ |
|
|
|
|
Uwe ''Pascal'' Niemeier | allô Roland!
Ähh... Eigendlich J'ai eu meinen Vorschlag zur Mehrfachdeklaration dans Headern im tête, mais cela serait oui justement ici rien apporter (wohin rien ist...) mais était pas irgendwann la fois irgendeine Unterstützung pour WideChar im conversation? il y a oui aussi normale APIs ,qui on avec cela füttern muss (un deutlicher Trend depuis XP). et peut-être une PH avec den wichtigsten Funktionen et Konstanten pour oleaut32, ole32 et Verwande.
plus weis je maintenant aus dem Steggreif eigentlich aussi pas
SeeYou Pascal |
|
|
| |
|
|
|
Frank Abbing | [quote-part:dfb4c32d43]Kannste pour qui SAPI peut-être ne INC ou bien so pour Einsteiger faire? (alors gens comment mich) ensuite könnten wir cela aussi dans Profan nutzen![/quote-part:dfb4c32d43] je denke plutôt à une kleine Dll ou bien une XPIA-Code. comment Pascal déjà erwähnt, ist avec Profan pas alles possible.
@Pascal: oui, dein Code ist meinem très ähnlich peut-être hilft dir qui Asm-SAPI-Inc:
; SAPI 5.1
; GUIDS ---------------------------------------------------------------------------
.data
CLSID_SpVoice GUID {096749377h,03391h,011D2h,<09Eh,0E3h,000h,0C0h,04Fh,079h,073h,096h>}
IID_ISpVoice GUID {06C44DF74h,072B9h,04992h,<0A1h,0ECh,0EFh,099h,06Eh,004h,022h,0D4h>}
.const
TEXT_ MACRO your_text:VARARG
LOCAL text_string
.data
text_string db your_text,0
.code
EXITM <addr text_string>
ENDM
; INTERFACES ---------------------------------------------------------------------------
_vtISpVoice MACRO nom:REQ
;; IUnknown Methods
_vtIUnknown nom
;; ISpVoice Methods
&Name&_SetNotifySink CoMethod1 ?
&Name&_SetNotifyWindowMessage CoMethod5 ?
&Name&_SetNotifyCallbackFunction CoMethod4 ?
&Name&_SetNotifyCallbackInterface CoMethod4 ?
&Name&_SetNotifyWin32Event CoMethod1 ?
&Name&_WaitForNotifyEvent CoMethod2 ?
&Name&_GetNotifyEventHandl CoMethod1 ?
&Name&_SetInterest CoMethod3 ?
&Name&_GetEvents CoMethod4 ?
&Name&_GetInfo CoMethod2 ?
&Name&_SetOutput CoMethod3 ?
&Name&_GetOutputObjectToken CoMethod2 ?
&Name&_GetOutputStream CoMethod2 ?
&Name&_Pause CoMethod1 ?
&Name&_Resume CoMethod1 ?
&Name&_SetVoice CoMethod2 ?
&Name&_GetVoice CoMethod2 ?
&Name&_Speak CoMethod4 ?
&Name&_SpeakStream CoMethod4 ?
&Name&_GetStatus CoMethod3 ?
&Name&_Skip CoMethod4 ?
&Name&_SetPriority CoMethod2 ?
&Name&_GetPriority CoMethod2 ?
&Name&_SetAlertBoundary CoMethod2 ?
&Name&_GetAlertBoundary CoMethod2 ?
&Name&_SetRate CoMethod2 ?
&Name&_GetRate CoMethod2 ?
&Name&_SetVolume CoMethod2 ?
&Name&_GetVolume CoMethod2 ?
&Name&_WaitUntilDone CoMethod2 ?
&Name&_SetSyncSpeakTimeout CoMethod2 ?
&Name&_GetSyncSpeakTimeout CoMethod2 ?
&Name&_SpeakCompleteEvent CoMethod1 ?
&Name&_IsUISupported CoMethod5 ?
&Name&_DisplayUI CoMethod6 ?
ENDM
ISpVoice struct dword
_vtISpVoice ISpVoice
ISpVoice ends
SpVoice TYPEDEF PTR ISpVoice
SPF_DEFAULT equ 0
SPF_ASYNC equ 1
SPF_PURGEBEFORESPEAK equ 2
SPF_IS_FILENAME equ 4
SPF_IS_XML equ 8
SPF_IS_NOT_XML equ 16
SPF_PERSIST_XML equ 32
SPF_NLP_SPEAK_PUNC equ 64
SPF_NLP_MASK equ SPF_NLP_SPEAK_PUNC
SPF_VOICE_MASK equ SPF_ASYNC or SPF_PURGEBEFORESPEAK or SPF_IS_FILENAME or SPF_IS_XML or SPF_IS_NOT_XML or SPF_NLP_MASK or SPF_PERSIST_XML
SPF_UNUSED_FLAGS equ NOT SPF_VOICE_MASK
|
|
|
| |
|
|