Sprachkonvertierung(string->Lautschrift->Wavesound)

[Komoluna]

Hallo Leute

Ich hallt vor ein paar tagem mal die Idee eine Sprachausgabe zu Schreiben:

Man gibt in Ein Editfeld einen Text ein und auf knopfdruck wird dieser als audioformat ausgegeben...

der große haken bei der Sache ist natürlich: "Wie kriege ich einen Text in eine Audiodatei Konvertiert???"

Ich hoffe mir kann irgendwer hier helfen...

Komoluna

[theo]

Unter Linux? Via mbrola oder so. Das kannst du dann mit TProcess ansteuern.
Auf MS gibt's SAPI.

[Komoluna]

Danke für die schnelle Antwort,
aber ich dachte eher an einen Algorithmus und nicht an ein
externes Programm...

Trotzdem danke

[m.fuchs]

Ich hoffe, es klingt jetzt nicht gemein:

Lies dir http://de.wikipedia.org/wiki/Sprachsynthese durch und überlege dann noch einmal, ob du nicht doch auf externe Komponenten zugreifen möchtest.

[Komoluna]

Vielleicht doch...

Auf MS gibt's SAPI

Was is denn das?/Wo finde ich das?

[m.fuchs]

Auf MS gibt's SAPI

Was is denn das?/Wo finde ich das?

Ein unglaublich riesiges SDK zur Ansteuerung der Sprachsynthese von Microsoft. Downloads liegen hier: http://www.microsoft.com/en-us/download/details.aspx?id=10121

Eine kurze Einführung, wie du damit umgehen kannst ist hier: http://wiki.lazarus.freepascal.org/SAPI

[mschnell]

Meine Kollegen benutzen (Mit Delphi) die Sprachsynthese von SVOX. Hervorragende Qualität, nicht vorgesehene Wörter können per "Lautschrift" konfiguriert werden, anscheinend Pascal-taugliche API. Für Windows muss man das Paket bei SVOX kaufen, bei Android ist - soweit ich weiß - es dabei.

-Michael

[Komoluna]

Entschuldigung falls ich nerve, aber ...
Wie geht das jetzt???

Ich habe mir das nun heruntergeladen *edit(und installiert)* aber das beispiel im Link bringt mich auch nicht weiter...

Wenn ich den Beschreibenen Code:

Code: Alles auswählen

uses
  ...,comobj;
var
  SavedCW: Word;
  SpVoice: Variant;
begin
  SpVoice := CreateOleObject('SAPI.SpVoice');
  // Change FPU interrupt mask to avoid SIGFPE exceptions
  SavedCW := Get8087CW;
  try
    Set8087CW(SavedCW or $4);
    SpVoice.Speak('hi', 0);
  finally
    // Restore FPU mask
    Set8087CW(SavedCW);
  end;

ausführen möchte dann schmeist Lazarus eine Fehlermeldung, dann wird der Assembler-Debugger angezeigt aber da steht nichts drin... nur 0en und ?

HILFÄÄÄÄ

Komoluna

[Komoluna]

Wenn ich im Programm

Code: Alles auswählen

SpVoice.Speak('hi', 0);

auskommentiere, dann kommt keine fehlermeldung mehr, aber da dass die Kernfunction ist
passiert einfach nichts...
Was mache ich falsch???
(Fehlen mir noch irgendwelche DLL's)

Komoluna

[Komoluna]

Ich wollte mal wissen ob sich in diesem Forum noch etwas
tut... also ob es noch aktuell ist,
wenn ja dann hoffe ich auf baldige antworten auf meine vorherige frage...

Komoluna

[theo]

Ich wollte mal wissen ob sich in diesem Forum noch etwas
tut... also ob es noch aktuell ist,

In diesem Forum tut sich immer was, wie du selber feststellen kannst.

wenn ja dann hoffe ich auf baldige antworten auf meine vorherige frage...

Welche Frage meinst du genau?
"Es geht nicht" ist keine Frage.
Bei mir geht's.

[Komoluna]

Also, wenn ich die funktion

Code: Alles auswählen

SpVoice.Speak('Hallo',1);

auskommentiere, dann wird keine Fehlermeldung mehr erzeugt, aber
dann verliert der Code ja seinen Sinn...
Vielleicht irre ich mich ja auch und das Problem liegt ganz woanders...

jedenfalls habe ich hier mal meine gesamte Unit gepostet...

Code: Alles auswählen

unit unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  classes, sysutils, fileutil, forms, controls, graphics, dialogs,
  StdCtrls, comobj;
 
type
 
  { tform1 }
 
  tform1 = class(tform)
    button1: tbutton;
    Input: tedit;
    label1: tlabel;
    spinedit1: tspinedit;
    spinedit2: tspinedit;
    spinedit3: tspinedit;
    procedure button1click(sender: tobject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  form1: tform1;
 
implementation
 
{$R *.lfm}
 
{ tform1 }
 
procedure tform1.button1click(sender: tobject);
var
  SavedCW: Word;
  SpVoice: Variant;
begin
  SpVoice := CreateOleObject('SAPI.SpVoice');
  SavedCW := Get8087CW;
  Set8087CW(SavedCW or $4);
  SpVoice.Speak('Hallo.',1);// Wenn ich diese funktion auskommentiere wird kein Fehler erzeugt
  Set8087CW(SavedCW);
end;
end.
 

Vielen Dank für die mühe die ihr euch gebt

Komoluna

[theo]

Ich tippe mal drauf, dass das

SpVoice := CreateOleObject('SAPI.SpVoice');

Nicht funktioniert hat, weil vllt. etwas bei der Installation des SAPI schief gelaufen ist?
Nur eine Vermutung.
Check doch mal, ob das was gescheites zurückkommt. Musst halt ein bisschen googeln.

[Komoluna]

Ich habe das nochmal De-Installiert und wieder Installiert...
aber geändert hat sich nichts... das einzige was mir jetzt noch einfällt
wäre, das es an meinem Betriebssystem liegt (Win7, 64bit), denn mit 64 bit hatten schon so manche
Lazarus-Komponenten ihre Probleme... könnte des Vielleicht daran liegen?

Komoluna

[Developer CPS]

Ich weiß nicht, ob das Problem noch aktuell ist, bin aber auf etwas interessantes gestoßen:
[url]
http://www.delphipraxis.net/166108-sprachausgabe.html[/url]

Bin gerade an etwas ähnlichem dran; wenn sich etwas ergeben sollte werde ich mich melden