Satzgenerator

[nailor]

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

[synex]

Hmm also soweit hab ich keinen Bug entdeckt :lol:
aber ehrlichgefragt, wozu braucht man sowas??

[Stanlay Hanks]

Ich find das ja auch ganz nett, (ich könnte es wahrscheinlich nicht), aber dein Programm macht ja eigentlich "nur" folgendes:

Es sucht sich ein Subjekt und stellt es an den Anfang.
Dann kommt ein Prädikat das darauf folgt.
Danach eine Adverbiale oder ein Adjektiv,´und dann ein fertiger Grund (der nicht eigens zusammen gestellt wird). Außerdem sind alle deine Prädikate nur in der 3.Person. Wie gesagt, nett für zwischendurch, aber wo ist der Sinn? :wink: :bounce1:

Man liest sich, Stanlay

[Alexander]

nach dem Sinn frage ich mich allerdings auch, aber nun gut meine Programme machne auch nciht immer Sinn.
Hätte noch mal eien verrückte Idee. Du könntest ja die Spech-API oder so ähnlich nutzen um den Satz auch noch vorzulesen.
Gibt es glaub ich aber nur unter XP....

[Stanlay Hanks]

@Alexander. Gibt es diese Möglichkeit wirklich (Ich hab das schon mal bei den Sprachausgabeoptionen on XP gelesen)??? Kennst du da eine Möglichkeit? Das wäre hochinteressant. Ist aber wahrscheinlich ziemlich schwierig, oder?

man liest sich, Stanlay
:coder:

[moritz]

Ja, es gibt eine Möglichkeit:
Delphi starten -> Component ->Import ActiveX Control -> Microsft Direct Text-to-Speech -> Install

[moritz]

Noch was:
Das Programm ist vom Design her nur mäßig, wfür es gut ist weiß ich nicht. Ansonsten:
Das mit der Sprachengine ist nicht schwer.

[Jelly]

Zitat:

Zitat von Onz

Ja, es gibt eine Möglichkeit:
Delphi starten -> Component ->Import ActiveX Control -> Microsft Direct Text-to-Speech -> Install

Hi,

diese ActiveX ist bei mir nicht vorhanden. Wie heisst denn eventuell die OCX Datei damit ich danach suchen kann?

Gruss,
Tom

[moritz]

Hi

Lad dir
http://www.onz24.de/files/speech1.exe
und
http://www.onz24.de/files/speech2.exe
runter und installier beide. Jetzt müsste sie da sein.

[Jelly]

Hi,

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

Danke vorerst. Werd das Ding mal installieren und kucken.

Gruss,
Tom

[moritz]

Zitat:

Zitat von Jelly

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

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 :bounce1:

[moritz]

Gerne geschehen. :cat:

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

Delphi-Quellcode:

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 ? :roll:

[Stanlay Hanks]

Stimmt. Tschuldigung... :oops:

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

[moritz]

Die Beiden exe's enthalten die M$-Sprachengine. Man braucht die beiden Files für die Sprachausgabe. Hier eine Funktion, mit der man Prpft, ob die Sprachengine installiert ist:

Delphi-Quellcode:

    function SoundInstalled:boolean;stdcall;
    var pfad:string;
    begin
      result:=true;
      ShellGetFolderPath(CSIDL_WINDOWS,pfad);
      if not(fileexists(pfad+'\speech\XVoice.dll')) then
        result:=false;
      if not(fileexists(pfad+'\speech\speech.dll')) then
        result:=false;
      if not(fileexists(pfad+'\speech\WrapSAPI.dll')) then
        result:=false;
      if not(fileexists(pfad+'\lhsp\Voice\GEDvf160.dll')) then
        result:=false;
    end;

[edit=fkerber]Code-Tags zu Delphi-Tags geändert. Mfg, fkerber[/edit]

[nailor]

ich hab mal in meinem archiv gekramt... und hier ist der quellcode zum tool und auch noch zu zwei aktuelleren versionen...

[Xzeer]

"Niemand wäscht Bücher um aufzufallen."

Echt nicht... :gruebel:

Ich glaube um aufzufallen machen manche Leut eecht viel... :lol:

[Ruio]

Warum braucht das Programm eigentlich Admin-Rechte?

[nailor]

Zitat:

Zitat von Ruio

Warum braucht das Programm eigentlich Admin-Rechte?

Keine Ahnung, was für ein Betriebssystem verwendest du? Ich hab das 2003 unter Windows ME programmiert, da war das noch kein Kriterium... Falls du rausfindest, woran es liegt und es ändern willst, nur zu :)

[Ruio]

Ich hab Windows Vista. Woran es liegt weiß ich auch nicht :roll:

[p80286]

Mal so j4F gefragt,
bei Satzgenerator denk ich an ELIZA.
Die Dame mit einer Sprachausgabe....................

wär das was ?

Gruß
K-H

p.s.
nein ich hab keine Zeit dazu, nur so als Anregung gedacht.

[Mithrandir]

Erinnert mich ein wenig an den Schlagzeil-o-mat ;)

[fui-tak]

Hallo, wo wir hier gerade über die Sprachausgabe sprechen. Gibt es die Stimme auch für deutsche Texte?