Responsive Voice ile Gerçekçi İnsan Sesleri..

Delphi ile ilgili faydalı site adreslerini buraya gönderebilirsiniz.
Cevapla
habibustun
Üye
Mesajlar: 8
Kayıt: 04 Eki 2021 10:46
İletişim:

Responsive Voice ile Gerçekçi İnsan Sesleri..

Mesaj gönderen habibustun »

Delphi kullanarak Türkçe metin okumanın bir yolu.

Aşağıdaki HTML kodunu TWebBrowser bileşeninize yükleyin..

Kod: Tümünü seç

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<meta charset="UTF-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge" />
</head>
<body>
  <textarea id="mesaj"></textarea>
  <script src="https://code.responsivevoice.org/responsivevoice.js"></script>
  <input id="Play" onclick="responsiveVoice.speak(document.getElementById('mesaj').value, 'Turkish Male');" type="button" value="Play" />
</body>
</html>

Kod: Tümünü seç

procedure TForm1.BTNSeslendirClick(Sender: TObject);
begin
  WebBrowser1.OleObject.Document.GetElementByID('mesaj').Value :=
  'Delphi Forum. Ağzının tadını bilenlerin Delphi forumu';
  WebBrowser1.OleObject.Document.GetElementByID('Play').click();
end;
kaynak: https://responsivevoice.org/
Benim için, öğrenmek ve kendini geliştirmek önemlidir. Bu nedenle, yeni teknolojiler ve programlama dilleri hakkında araştırmalar yapmayı, okumayı ve öğrenmeyi seviyorum. Bu alandaki çalışmalarıma devam etmek istiyorum ve gelecekte de bu alanda birçok başarıya imza atmayı hedefliyorum.
Cevapla