| |
|
|
Frank Abbing | Ein kleines Testprogramm de me. Happert lo todavía irgendwo? |
|
|
| |
|
|
|
Torsten Rümker | Tja si yo ahora un alemán Stimme installiert hätte
Funktioniert en cada Fall (außer en el me natürlich Sam vorliest).
MfG Torsten
PS: woher bekommt uno eigentlich otro Stimmen? Direkt de Microsoft denke Yo veces. Gleich veces nachschauen. |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 17.06.2006 ▲ |
|
|
|
|
Frank Abbing | |
|
| |
|
|
|
Torsten Rümker | Gracias para el flinke antwort igual veces installieren.
Bin ehrlich dijo ya bastante gespannt.
MfG Torsten
[EDIT] PS: Mir gefällt Stefan mejor. [/EDIT] |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 17.06.2006 ▲ |
|
|
|
|
Torsten Rümker | Mmmh, sag veces, wo finde Yo porque wohl una Ayuda para el SAPI?
Mir schwebt gerade así antes mi Chat (en Desarrollo) una 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 | El Ayuda dazu findest du [...] . |
|
|
| |
|
|
|
Torsten Rümker | tse, el liegt daran, si uno el falschen Suchbegriffe eingibt en algo como para encontrar. danke dir. |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 17.06.2006 ▲ |
|
|
|
|
Jac de Lad | ¡Hola Franco!
Kannste para el SAPI tal vez ne INC más o menos para Einsteiger hacer? (also Personas como mich) Dann könnten wir el auch en Profano 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 | ¡Hola Personas!
Hier una Versuchscode de me:
!
window 50,50-500,200
$H Messages.ph
$H Windows.ph
declarar a#,b#
dim a#,1024
dim b#,16
proc MultiToWide--------------------------------------------------------------
parámetros Texto$,Ziel&
volver ~MultiByteToWideChar(0,0,addr(Texto$),-1,Ziel&,250)
ENDPROC-----------------------------------------------------------------------
proc StringToGUID-------------------------------------------------------------
parámetros GUID$,GUID&
declarar Temp$
Temp$=space$(80)
~MultiByteToWideChar(1,1,addr(GUID$),-1,addr(Temp$),80)
external("ole32","CLSIDFromString",addr(Temp$),GUID&)
ENDPROC-----------------------------------------------------------------------
proc CallMethod---------------------------------------------------------------
parámetros IFace&,Method&
declarar VTable&
VTable&=long(IFace&,0)
Method&=long(VTable&,Method&*4)
caso %pcount=2:volver call( Method&,IFace& )
caso %pcount=3:volver call( Method&,IFace&,&(3) )
caso %pcount=4:volver call( Method&,IFace&,&(3),$(4) )
caso %pcount=5:volver call( Method&,IFace&,&(3),&(4),&(5) )
ENDPROC-----------------------------------------------------------------------
declarar ISpVoice&,Texto$,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&))
imprimir "Error CoCreateInstance",Error&
imprimir "ISpVoice",ISpVoice&
imprimir
Texto$="Hallo Test"
MultiToWide(Texto$,a#)
Error&=CallMethod(ISpVoice&,20,a#,0,0)
imprimir "Error ISpVoice::Speak",Error&
imprimir
Texto$="<pitch middle=+20/> ¡Hola Test"
MultiToWide(Texto$,a#)
Error&=CallMethod(ISpVoice&,20,a#,8,0)
imprimir "Error ISpVoice::Speak",Error&
imprimir
Error&=CallMethod(ISpVoice&,2)
imprimir "Error ISpVoice::Release",Error&
external("ole32","CoUninitialize")
waitkey
Como wäre sicher mehr rauszuholen, si yo irgendwo una Sapi-Headerdatei encontrar könnte; en welchem Package de MS Es el drin?? (Posesiones no Lust, en Verdacht 30 MB runterzuladen)
PS: Como macht se otra vez el fehlende COM-Unterstützung bemerkbar...
SeeYou Pascal |
|
|
| |
|
|
|
RGH | [quote:034943faec=Uwe Pascal Niemeier]PS: Como macht se otra vez el fehlende COM-Unterstützung bemerkbar... [/quote:034943faec] ¡Hola Pascal, como podría oder debería Deiner Meinung después de una solche Unterstützung aussehen?
Saludo 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 | Hola Roland!
Ähh... Eigendlich Tuve media Vorschlag a Mehrfachdeklaration en Headern en el Kopf, aber el sería sí gerade hier nichts bringen (wo nichts es...) Aber war no irgendwann veces irgendeine Unterstützung para WideChar en el Gespräch? Lo son en efecto normale APIs ,el uno así füttern muss (una deutlicher Trend seit XP). Und tal vez una PH con el wichtigsten Características y Konstanten para oleaut32, ole32 y Verwande.
Más weis Yo ahora de el Steggreif eigentlich auch no
SeeYou Pascal |
|
|
| |
|
|
|
Frank Abbing | [quote:dfb4c32d43]Kannste para el SAPI tal vez ne INC más o menos para Einsteiger hacer? (also Personas como mich) Dann könnten wir el auch en Profano nutzen![/quote:dfb4c32d43] Yo denke más a una kleine Dll oder una XPIA-Code. Como Pascal ya erwähnt, es con Profano no alles posible.
@Pascal: Sí, dein Code es mi muy ähnlich Tal vez hilft dir el 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
|
|
|
| |
|
|