Probleme mit Sprachaausgabe (sapi sdk 5.1)

[Bummi]

Ich habe gerade kein Delphi < 2010 zur Hand, der beschrieben Fehler lässt sich mit 2010 nachstellen und folgendermaßen umgehen.

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var
  voice: OLEVariant;
  SavedCW: Word;
begin
  voice := CreateOLEObject('SAPI.SpVoice');
  // asynchron
  voice.Speak('Hello world!', 1);
  Showmessage('Hallo');

  // synchron
  SavedCW := Get8087CW;
  try
    Set8087CW(SavedCW or $4);
    voice.Speak('Hello World!', 0);
  finally 
    Set8087CW(SavedCW);
  end;
  Showmessage('Hallo');
end;

[blondervolker]

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.

[blinder007]

dank euch, beide lösungen funktionieren hervoragend - jetzt werde ich wohl erstmal mit englisch rumprobieren, habe auch schonmal seiten irgendwo gesehen mit deutschen sprachen und das kann man auch irgendwie einstellen, damit beschäftige ich mich aber später - hauptsache das funktioniert