Metin Seslendirme sorun

[AliZairov]

Tekrar merhaba. Cümle olarak seslendirme uzun cümlelerde sorun oldu. Bende kelime kelime okutmak istedim biraz qarip oldu. Akışkanlık yok. Kelimleri döngüye sokarak 1san okutuyorum amma yine iyi olmuyo. Başka daha akışkan bir çözüm bulmam gerek. Bu konuda ne yapmak mümkün?

Kullandığım okuma döngü işlemi. Okuma adamı rahatsız ediyo gaz firen basılı gibi okuyo.

Kod: Tümünü seç

procedure GetWord(Text, Lang: string);
var
  I: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;
  GetTag(Text, SL);
  for I := 0 to SL.Count - 1 do
  begin
    zSearch(SL[I], Main.Text);
    zPlay(SL[I], Lang);
    XSleep(1250);
  end;
  with Main do
  begin
    Text.SelLength := 0;
    Text.SetFocus;
  end;
end;

[G.Arkas]

Okuma adamı rahatsız ediyo gaz firen basılı gibi okuyo.

Microsoft Speak API'mi kullanıyorsun?

[AliZairov]

Okuma adamı rahatsız ediyo gaz firen basılı gibi okuyo.

Microsoft Speak API'mi kullanıyorsun?

Yok Google text speech Apisi.

[Lord_Ares]

google denemedim ama, fikir olması açısından birde dikte api yi incele derim. Dikteapi diye yazarsan google da örneklerini görebilirsin. Fikir olması açısından belki işine yarayabilir.

[AliZairov]

Merhaba. Ben 7 dilde kullanacağım. Dikte istediğim olmaz. Bunu bitirip film alt yazılarını okuyan bi sistemede çevirmeği düşünüyorum. Zaten alt yazıları kendi sesimizle okuyoruz başkası bizim için okusa daha iyi olmazmı.