| |
| |
|
Frank
Abbing | | A small Testprogramm of me. Happert it yet somewhere? |
|
| |
| |
| |
|
|
Torsten
Rümker | Tja if I now a German voice installs had 
functions In any drop (except the by me naturally Sam vorliest).
MfG
Torsten
PS: where get one really others voices? directly of Microsoft think I time.
same time nachschauen. |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 06/17/06 ▲ |
|
| |
|
|
Frank
Abbing | Yes, with Microsoft: [...]  |
|
| |
| |
| |
|
|
Torsten
Rümker | thanks for flinke response 
same time install.
be sincere said already integrally tensely.
MfG
Torsten
[EDIT] PS: me gefällt Stefan rather. [/EDIT] |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 06/17/06 ▲ |
|
| |
|
|
Torsten
Rümker | Mmmh, say time, where find I because well a Help for SAPI?
me hovers straight so to my Chat (in development) a optionale Sprachausgabe mitzugeben
MfG
Torsten |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 06/17/06 ▲ |
|
| |
|
|
Frank
Abbing | | The Help moreover find You [...] . |
|
| |
| |
| |
|
|
Torsten
Rümker | tse, the lying on it, if one The incorrect Suchbegriffe types circa something like to find.
thanks you. |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 06/17/06 ▲ |
|
| |
|
|
Jac
de
Lad | Hello Frank!
Kannste for SAPI Perhaps ne INC or so for Beginner make? (means people How me) then could we the too use in secular!
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 | 06/17/06 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | Hello people!
here one Versuchscode of me:
!
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)
case %pcount=2:return call( Method&,IFace& )
case %pcount=3:return call( Method&,IFace&,&(3) )
case %pcount=4:return call( Method&,IFace&,&(3),$(4) )
case %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&))
print "Error CoCreateInstance",Error&
print "ISpVoice",ISpVoice&
print
Text$="Hallo Test"
MultiToWide(Text$,a#)
Error&=CallMethod(ISpVoice&,20,a#,0,0)
print "Error ISpVoice::Speak",Error&
print
Text$="<pitch middle=+20/> Hello Test"
MultiToWide(Text$,a#)
Error&=CallMethod(ISpVoice&,20,a#,8,0)
print "Error ISpVoice::Speak",Error&
print
Error&=CallMethod(ISpVoice&,2)
print "Error ISpVoice::Release",Error&
external("ole32","CoUninitialize")
waitkey
there would sure More rauszuholen, if I somewhere a Sapi-Headerdatei find könnte;
in welchem Package of MS is the drin?? (have no pleasure, on suspicion 30 MB runterzuladen)
PS: there power itself again The fehlende COM-Support noticeable... 
SeeYou
Pascal |
|
| |
| |
| |
|
|
RGH | [quote:034943faec=Uwe Pascal Niemeier]PS: there power itself again The fehlende COM-Support noticeable...
[/quote:034943faec]
Hello Pascal,
How could or ought to your opinion to a such Support looks?
Greeting
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 | 06/17/06 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | Hello Roland!
Ähh...
Eigendlich I had my suggestion to Mehrfachdeklaration in Headern in the head, but the would Yes straight here nothing bring (where nothing is...)
but wasn't sometime time irgendeine Support for WideChar in the conversation? there's indeed normal APIs ,everybody can so feed must (one deutlicher Trend since XP).
and Perhaps a PH with the most important functions and Konstanten for oleaut32, ole32 and Verwande.
More wisely I now from the Steggreif really neither 
SeeYou
Pascal |
|
| |
| |
| |
|
|
Frank
Abbing | [quote:dfb4c32d43]Kannste for SAPI Perhaps ne INC or so for Beginner make? (means people How me) then could we the too use in secular![/quote:dfb4c32d43]
i think sooner on a small Dll or a XPIA-code. How Pascal already erwähnt, is with Profan not everything possible.
@Pascal: Yes, your code is my very similar 
Perhaps helps you The 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 name:REQ
;; IUnknown Methods
_vtIUnknown name
;; 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
|
|
| |
| |
| |
|
(835)
Deutsch
English
Français
Español
Italia