Synteza

Mam pytanie odnośnie syntezy mowy a konktetnie programu udostępnionego przez wp jak zrobić żeby czytał on tekst z memo ???

Zawsze możesz zrobic to samo, tylko z syntalkiem. Gdzieś na 4p było napisane, gdzie to zrobić, ale jest możliwość, że gdzie indziej to widziałem, więc jak coś to pisz, to ci podeślę źródła.

syntalk jest płatny a mi chodzi konktetnie o syntezator mowy wp doSZEDŁem już do tego :

procedure TForm1.Button1Click(Sender: TObject);
var
ddedata:pchar;
s:string;
begin
  FillChar(s,sizeof(s),0);
  s:=memo1.text;
  ddedata:=@s[1];
  ShowMessage(ddedata);
  DDEClientConv1.PokeData('SSay|elo|0',ddedata);
  DDEClientConv1.ExecuteMacro('wpanaczIN',false);
  if DDEClientConv1.SetLink('rozmowy','synteza') then exit;
ShowMessage('Niestety jeżeli <ort>niemasz </ort>włączonego syntezatora - synteza mowy <ort>niebędzie </ort>działac!:(');

end;

problem tkwi w pokedata format wysyłany do syntezatora powinien być taki SSay|jakiś tekst|0 no właśnie i jak to zrobić zeby chodziło

może być nawet inny darmowy program do syntezy mowy :-8

Najpierw pobierz ten plik : www.ivo.pl/download/SpikerDemo2_5_meski.exe
potem przy instalacji zaznacz, że ma zainstalować tylko SAPI
potem zresetuj kompa
włącz Delphiego
wybierz Component->Import ActiveX Control
z list wybierz Microsoft Direct Text-to-Speech i zainstaluj to
potem w kodzie wystarczt jedna linijka:
SS.Speech('text który ma powidzieć')