Satzgenerator

[nailor]

Irgendwo sind wir hier im Forum mal auf die Sache zu sprechen gekommen. Hier also meine aktuelle Version des Satzgenerators:

[moritz]

Zitat von Jelly:

ging ja fix... Auch einer von denen die tagtäglich im Forum rumhängen

Naja, hab nur mein Mailprogramm immer laufen. *g*

Gruß

Onz

[Stanlay Hanks]

Cool. Danke. Hab ich gar nicht gewusst, mit das dass so einfach geht.

Man liests ich Stanlay

[moritz]

Gerne geschehen.

[Stanlay Hanks]

Doch nicht so einfach... Ich zieh die Komponente Auf das Form, Mach nen Button und ein EditFeld: Dann geb ich beim onclick ereignis vom Button ein: DirectSS1.Speak(Edit1.Text); Dann drücke ich F9 und auf den Button und hab den schönsten OLE-Fehler.
"OLE-Fehler 80040302" Woran könnte das liegen.

[Darty]

Mach doch ne neues Thema dazu auf .. Hier ging ja um was anderes oder nicht ?

[Stanlay Hanks]

Stimmt. Tschuldigung...

[nailor]

Der Sinn des Programms (das mittlerweile sogar schon in neueren Versionen vorliegt) ist einzig und allein einer: Spass

Das mit der Speech: Ich hab nirgends WINXP, so dass ich auch keinen Bedarf hab, es zu proggen...

[moritz]

Achso. Es sollte also einfach ein "J4F"-Programm werden.

[Alexander]

das mit dem spech ist wirklich nicht schwer, habe mich gerade mal hingesetz:

Code:

uses StdCtrls, Comobj;
[...]
procedure TForm1.Button1Click(Sender: TObject);
var
  voice: OLEVariant;
begin
  voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak(edit1.Text, 0);
end;

[Alexander]

@onz: was machen die beiden *.exe? Sind das nur beispiele?