Sprachausgabe

[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...