Hallo,
ich hab noch was gefunden aus meinem Projekt Memo vorlesen(bis vorhin ging es noch
:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
voice: OLEVariant;
begin
voice := CreateOLEObject('
SAPI.SpVoice');
Spvoice1.Volume:= 100;
Spvoice1.Speak(Memo1.Text,SVSFlagsAsync);
end;
// Auf Spvoice Word im Objektinspektor anklicken
// Memo1 Text beim vorsprechen anzeigen
//HideSelection auf False setzen im Objektinspector!
procedure TForm1.SpVoice1Word(ASender: TObject; StreamNumber: Integer;
StreamPosition: OleVariant; CharacterPosition, Length: Integer);
begin
Memo1.SelStart:=CharacterPosition;
Memo1.SelLength:= Length;
end;
end.