Muss man CreateOLEObject ('SAPI.SpVoice') freigeben?

galagher · Verfasst: Do 14.09.06 19:36

Hallo!

Irgendwo hab' ich das hier aufgeschnappt:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var
  voice: OLEVariant;
  Text: String;
begin
  Text := 'This is a text';
  voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak(Text, 0);
  voice := Unassigned;  //Gehört das hierher oder nicht? Oder Voice.Free?

Es funktioniert mit und ohne Unassigned fehlerfrei. Ich frage mich aber, ob man voice überhaupt freigeben muss!

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

accessViolation · Beiträge: 68 Win Delphi 5 Enterpr.

Hallo!

Ich habe den Speicher immer mit voice.Free freigegeben.

Im übrigen würde die voice so deklarieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:

var   voice: TSpVoice;
// und dann:
begin
   voice := TSpVoice.Create;

Siehe auch hier www.microsoft.com/do...0&displaylang=en
Hilfedatei sapi.chm

Viele Grüße
DIetmar

galagher · Verfasst: Fr 15.09.06 10:54

accessViolation hat folgendes geschrieben:

Ich habe den Speicher immer mit voice.Free freigegeben.

Ok, das hilft mir!

accessViolation hat folgendes geschrieben:

Im übrigen würde die voice so deklarieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:

var   voice: TSpVoice;
// und dann:
begin
   voice := TSpVoice.Create;

Da erhalte ich "Undefinierter Bezeichner: 'TSpVoice'"

//Edit: Bei voice.Free gibt mein Programm die Meldung aus:
"Die Methode 'Free' wird vom Automatisierungsobjekt nicht unterstützt."

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

accessViolation · Beiträge: 68 Win Delphi 5 Enterpr.

Hast Du auch die SAPI richtig installiert? Such mal hier im Forum, ich glaube, wurde schon was drüber geschrieben.

galagher · Verfasst: Fr 15.09.06 14:28

accessViolation hat folgendes geschrieben:

Hast Du auch die SAPI richtig installiert?

Naja, Microsoft Sam und Mary sprechen, und der Code, den ich gepostet habe, funktioniert ja auch. Das hier habe ich gefunden:
www.delphipraxis.net/post407529.html

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme