Sprachausgabe von Texten

[sventeq]

Hallo,

gibt es in Delphi sowas wie eine Sprachausgabe für Texte oder einzelne Wörter?
Es gibt da eine Menge Freeware bei der man einen Text eingeben und dann bekommt man
den Text per Computerstimme vorgelesen. Kann man sowas auch in Delphi realisieren?

Gruß sven

[Forlan]

Delphi-Quellcode:

uses Comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
  voice: OLEVariant;
begin
  voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak('Hello World!', 0);
end;

gabs hier aber schon mal...! demnächst bitte erst suchen! :warn:

[sventeq]

Zitat:

Zitat von Forlan

Delphi-Quellcode:

uses Comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
  voice: OLEVariant;
begin
  voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak('Hello World!', 0);
end;

gabs hier aber schon mal...! demnächst bitte erst suchen! :warn:

Danke, probier ich gleich mal aus. Gesucht hatte ich vorher, aber nchts gefunden.
Geht das dann nur mit englischen Texten oder auch mit Deutschen?

Gruß Sven

[Forlan]

IMHO müsste das die gleiche Stimme sein wie MS Sam...^^

also nur englische Texte.

Mfg Forlan

[sventeq]

Zitat:

Zitat von Forlan

IMHO müsste das die gleiche Stimme sein wie MS Sam...^^

also nur englische Texte.

Mfg Forlan

Schade, das hilft mir dann nicht. :cry:

[Forlan]

Zitat:

Schade, das hilft mir dann nicht. Crying or Very sad

hmm... google doch mal nach "Microsoft Sam deutsch"...

ich meine sowas gibt es doch, oder nicht??

[sventeq]

Zitat:

Zitat von Forlan

Zitat:

Schade, das hilft mir dann nicht. Crying or Very sad

hmm... google doch mal nach "Microsoft Sam deutsch"...

ich meine sowas gibt es doch, oder nicht??

ich kuck mal. Danke, für dir für die Hilfe

Gruß Sven

[ösichemiker]

Sonst bind halt mal ein MS Agent ein und gib ihm den Text. Der liest dir mit dem GermanPack (gibts auf der Microsoft-Homepage zum Download) auch auf deutsch vor. Schau mal bei Delphi-Treff bei Third-Party-Komponenten. da gibts ein gutes Tutorial...

mfg

Flo

[sventeq]

Zitat:

Zitat von ösichemiker

Sonst bind halt mal ein MS Agent ein und gib ihm den Text. Der liest dir mit dem GermanPack (gibts auf der Microsoft-Homepage zum Download) auch auf deutsch vor. Schau mal bei Delphi-Treff bei Third-Party-Komponenten. da gibts ein gutes Tutorial...

mfg

Flo

was ist den ein MS Agent? Und wie bindet man das ein?
Gruß Sven

[TeronG]

Zitat:

Zitat von sventeq

was ist den ein MS Agent? Und wie bindet man das ein?
Gruß Sven

Zitat:

Zitat von ösichemiker

Schau mal bei Delphi-Treff bei Third-Party-Komponenten. da gibts ein gutes Tutorial...

ARGHH ... :wall: :gruebel: :mrgreen:

[hathor]

http://www.delphipraxis.net/internal...492&highlight=

[sventeq]

Zitat:

Zitat von hathor

http://www.delphipraxis.net/internal_redirect.php?t=136492&highlight=

da gab es dann den Link zur Steffi...juhu...endlich in deutsch. Es hieß zwar "Steffi für Vista", aber sie ließ sich auch auf XP installieren und funktioniert einwandfrei.

Schönen Dank an alle

[sventeq]

Eine Kleinigkeit wär da noch. Sobald ich den Kopf drücke und die Sprachausgabe erfolgt, steht in der Titelleiste des Fensters der Text den ich ausgebe. Kann man das irgendwie abschalten?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  voice: OLEVariant;
begin
  text:='Autofahrt';
  voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak(text, 0);
end;

danke nochmal für Hilfe
Sven