Sprachausgabe

[Steku]

Noch zwei Links, die ich meiner Krabbelkiste gefunden habe,
vielleicht kannst du damit was anfangen...

http://www.planet-source-code.com/vb...d=905&lngWId=7
http://social.msdn.microsoft.com/For...b-b17dcb1e044d

Gruß
Steku

[blondervolker]

Delphi-Quellcode:

procedure TForm1.SpeedButton35Click(Sender: TObject);
var
  voice: OLEVariant;
begin
voice := CreateOLEObject('SAPI.SpVoice');
Spvoice1.Volume:= 100;
Spvoice1.Speak(DBMemo31.Text,SVSFlagsAsync);

end;

procedure TForm1.SpeedButton36Click(Sender: TObject);
begin
Spvoice1.Speak('',SVSFPurgeBeforeSpeak);
end;

procedure TForm1.SpeedButton37Click(Sender: TObject);
var
  voice: OLEVariant;
begin
voice := CreateOLEObject('SAPI.SpVoice');
Spvoice1.Volume:= 100;
Spvoice1.Speak(DBMemo62.Text,SVSFlagsAsync);
end;

Geht gut...