Nouvelle DLL SAPI.dll pour prononcer un texte

label fin
full_space 0  : on_close 0,fin
dim res%,txt$,v%,vol% ,i
txt$="Bonjour Messieurs dames! C'est une belle journée!"
v%=-5:vol%=70
dll_on "sapi.dll"
' res% = DLL_CALL1("SpeakMode",0) : ' mode synchrone
res% = DLL_CALL1("SpeakMode",1) : ' mode asynchrone
for i=1 to 250
print "a";
if i=60
    res%=DLL_CALL4("Speak",adr(txt$),vol%,v%,0)
    res%=DLL_CALL4("Speak",adr(txt$),vol%,v%,0)
end_if
next i
end

fin:
res% = DLL_CALL1("SpeakMode",0)
dll_off
return

' Sprechen
'
DIM  txt$
DIM  position1% =30
DIM  position2% =50
'
txt$ = "Severin"
'
Wait 1000
'
'
dll_on "SAPI.dll"
'
res% = dll_call3("Speak",adr(txt$),position1%,position2%,0)
'
dll_off
'
'
terminate
END

' ******************************************************************************

SAPI.dll
Inhalt der DLL:

Um den Betriebsmodus wählen:
    res =% dll_call1 ("SpeakMode"-Modus%)
    mode =% die Wahl zwischen "synchron" und "asynchron"
    0 = synchron. Dies ist die Standardeinstellung, wenn diese Funktion aufgerufen wird.
    1 = Asynchronous

Im synchronen Modus führt das Programm eine komplette Lektüre des Textes vor der
Rückkehr eingereicht.


Im asynchronen Modus wird die Lese-Anforderung an den synthetischen Sprachausgabe
vorgelegt, und wir führt eine sofortige Rückkehr in das aufrufende Programm,
während das Wort weiter zu entfalten.

Im asynchronen Modus können Sie mehrere Anrufe auf "Speak" ohne zu warten,
die Nachricht oder den Nachrichten, die bereits im Gange.

ACHTUNG! Diese Funktion ermöglicht es Ihnen, asynchronen Modus, die einen
starken Einfluss auf das Programm Panorama hat zu wählen!
Drehen im asynchronen Modus, sollte es in keiner Weise zu entlasten SAPI.dll
oder beenden Sie das Programm ohne gebügelt Panoramic
synchron durch den Aufruf dieser Funktion mit dem Parameter 0 (Null)!
Ansonsten können die Ergebnisse unvorhersehbar sein und lernen Sie
den Absturz der Speicher pro Verstoß, da der Agent von synthetischer
Sprache der Link zu seiner verloren haben wird "Master".

Um einen Text vom Computer:
    res =% dll_call4 ("Speak", addr ($ txt), Volumen% Geschwindigkeit% language%)
    Txt$ = text zu sprechen
    vol% = Lautstärke (0 ... 100, Mittelwert: 50)
      % = Die Geschwindigkeit der Lieferung (-10 ... 10, Normalwert: 0)
    Sprache% = Anzahl der installierten Sprache (0 = default language)

Diese Routine wird verwendet, um Text auf High-Wege-Lautsprecher des Computers
zu lesen. Der Text kann multi-line (getrennt durch CR / LF).
Spaces stellen Pausen in der Äußerung.

Das Programm nutzt Standard-Stimme in das System installiert ist. Wenn die Stimmen
nicht installiert sind, gibt es eine Website, die genau wie Sie es tun, erklärt:
http://www.zebulon.fr/astuces/200-synthese-vocale-windows-en-francais.html
Wir müssen dem Rat folgen, auf dieser Seite gegeben, und zwar:
- Installieren Sie Microsoft Reader bedarf keiner Registrierung.
 *** ist installiert

 Dieser Schritt ist notwendig, um den nächsten Schritt abgeschlossen haben,
 obwohl sie nicht mit dieser Software (die auch nicht-funktionale bei der Registrierung)
- Installieren Sie ReaderTTSInstallFRA.exe.
- Installieren Sie ReaderTTSInstallGER.exe.
 *** ist installiert


Dieses Programm ermöglicht es, zwei Französisch-Stimmen (ich bevorzuge die
weibliche Stimme ist klarer).
- Befolgen Sie die Tipps für die Auswahl der Standard-Stimme in das Control Panel
Alles ist einfach zu tun und ist kostenlos.

label fin
'
' *** Form 0000 ****************************************************************
full_space 0
on_close 0,fin
'
dim res%    :' = dll_call4("Speak",addr(txt$),Volumen%,Geschwindigkeit% Sprache%)
dim txt$    :' = zu sprechenden Text
dim v%      :' = Die Geschwindigkeit der Lieferung (-10 ... 10, Normalwert: 0)
dim vol%    :' = Lautstärke (0 ... 100, Mittelwert: 50)

dim i
'
' txt$="Bonjour Messieurs dames! C'est une belle journée!"
txt$="Das ist ein Programm von Klaus. Es dient der Sprachausgabe!"
'
v%  =-5
vol%=70
'
dll_on "sapi.dll"
'
' res% = DLL_CALL1("SpeakMode",0) : ' mode synchrone
res% = DLL_CALL1("SpeakMode",1) : ' mode asynchrone
'
for i=1 to 250
print "a";
if i=60
    res%=DLL_CALL4("Speak",adr(txt$),vol%,v%,0)
    res%=DLL_CALL4("Speak",adr(txt$),vol%,v%,0)
end_if
next i
end

fin:
res% = DLL_CALL1("SpeakMode",0)
dll_off
return
END
' ******************************************************************************
' ******************************************************************************
Um die Betriebsart wählen:
res% =  dll_call1 ("SpeakMode"%-Modus)
mode% = Wahl zwischen "synchron" und "asynchron"
0 = synchrone Dies ist der Standardmodus, wenn die Funktion nicht aufgerufen wird.
1 = asynchrone
'
Im synchronen Modus, führt das Programm eine vollständige Lektüre des Textes
vor der Rückkehr vorgelegt.
'
Im asynchronen Modus wird die Leseanforderung an das synthetische Sprache-System
versandt und wir
Führt eine sofortige Rückkehr in das aufrufende Programm zurück, während die Sprache weiter zu entfalten.
'
Im asynchronen Modus, können Sie mehrere Anrufe zu "sprechen" ohne zu warten,
für die Nachrichten oder bereits im Gange.
'
WARNUNG!
! Diese Funktion wählt den asynchronen Modus, die einen starken Einfluss auf das Programm Panorama hat
! Drehen im asynchronen Modus, verschieben sich nicht SAPI.dll oder stoppen Sie das Programm ohne gebügelt
 Panoramic synchron durch den Aufruf dieser Funktion mit dem Parameter 0 (Null)!
 Ansonsten können die Ergebnisse unvorhersehbar sein und lernen Sie den Absturz
 von Speicher Verletzung, da der Agent synthetische Sprache der Link zu seiner verloren haben "Master."