تقييم الموضوع :
  • 1 أصوات - بمعدل 1
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] arabic text to speech
#1
السلام عليكم اخواني الاعزاء

انا تعبت كثيراً في البحث عن كود يقوم بتحويل النص المكتوب بالعربي الى صوت دون ان اصل الى نتيجة .....

ارجو من الاخوة الاعزاء مساعدتي في هذا الموضوع ... ودمتم لخدمة الناس
الرد }}}}
تم الشكر بواسطة: mohgam3395
#2
السلام عليكم
صادفت نفس المشكلة يوما وهذا ما توصلت اليه
ضع webbrowser control في مشروعك وقم بتمرير هذا الرابط اليه مع تغيير النص الذي تريده ان ينطق "http://translate.google.com/translate_tts?tl=ar&q=اهلا بك معنا" على ان يكون مشروعك يعمل بالانترنت
ملحوظة
هناك مشكلة في web breowser control قد لا تحبدها مثلي وهي كون هذا الاخير يعطيك النص المراد نطقه لتحميله على شكل mp3 والاستماع اليه على عكس firefox او chrome
الرد }}}}
تم الشكر بواسطة: Sajad
#3
انا اشكر اهتمامك بالموضوع ... الا اني اجد مشكلة مع النص العربي لا يتم نطقه . علماً انه يعمل مع اللغةالفرنسية والانكليزية كما يلي ....

اللغة الانكليزية
كود :
WebBrowser1.Navigate("http://translate.google.com/translate_tts?tl=en&q=good")

اللغة الفرنسية

[code] WebBrowser1.Navigate("http://translate.google.com/translate_tts?tl=fr&q=très bon")
الرد }}}}
تم الشكر بواسطة:
#4
الرد }}}}
تم الشكر بواسطة:
#5
عجبتني حركة google translate دقايق واجهز لكم دالة
الرد }}}}
تم الشكر بواسطة:
#6
تفضلوا التطبيق



بما انه بالسي شارب سأضع الدالة الرئيسية لجلب الصوت وتشغيله >

PHP كود :
Private Sub DownloadAndPlay()
    Try
        
'main delecration'
        
Dim soundData As Byte()
        
Dim url As String String.Format("http://translate.google.com/translate_tts?tl={0}&q={1}"comboBox1.Text.ToLower(), textBox1.Text.Trim())

        
'create requset'
        
Dim rq As HttpWebRequest TryCast(WebRequest.Create(url), HttpWebRequest)
        
rq.UserAgent "Mozilla/5.0 (Windows NT 6.1; rv:27.0) Gecko/20100101 Firefox/27.0"

        'read response'
        
Dim response As HttpWebResponse TryCast(rq.GetResponse(), HttpWebResponse)
        
Using stream As New BinaryReader(response.GetResponseStream())
            
soundData stream.ReadBytes(CInt(response.ContentLength))
            
stream.Close()
            
response.Close()
        
End Using


        
'create voice file in windows-temprary folder'
        
Dim tempFilePath As String CreateTempFile(soundData)

        
'play temprary-file sound'
        
PlaySound(tempFilePath)

    Catch 
ex As Exception
        MessageBox
.Show(ex.Message)
    
End Try
End Sub

Private Function CreateTempFile(data As Byte()) As String
    
'sound format is mpeg'
    
Dim soundFileName As String System.IO.Path.GetTempPath() & Guid.NewGuid().ToString() & ".mpeg"
    
File.WriteAllBytes(soundFileNamedata)
    Return 
soundFileName
End 
Function

Private 
Sub PlaySound(file As String)
    
'initlize player'
    
Dim player As New WMPLib.WindowsMediaPlayer()
    
player.settings.volume 100
    player
.settings.autoStart True
    AddHandler player
.PlayStateChangeAddressOf player_PlayStateChange
    player
.URL file
End Sub

Private Sub player_PlayStateChange(NewState As Integer)
    
Application.DoEvents()
    If 
NewState CInt(WMPLib.WMPPlayState.wmppsMediaEndedThen
        
'release everything'
        
toolStripProgressBar1.Style ProgressBarStyle.Blocks
    End 
If
End Sub 


طبعا لاتنسوا اضافة مكتبة Windows Media Player المسؤولة عن تشغيل الاصوات (موجود في تاب COM في Add Reference)




الملفات المرفقة
.rar   WordSpeaker.rar (الحجم : 169.89 ك ب / التحميلات : 230)
الرد }}}}
تم الشكر بواسطة: Sajad
#7
Star 
الشاكي لله .... الشاكي لله ..... الشاكي لله ...... الشاكي لله ........ الشاكي لله



لا استطيع كيف اشكرك اخي العزيز
http://www.vb4arb.com/vb/images/icons/heart.gif
الرد }}}}
تم الشكر بواسطة: الشاكي لله
#8
شكراً لك اخي العزيز على ردك الجميل وهو يفي بالغرض ....

لي سؤال اخر هل هناك طريقة او كلاس يقوم بذلك دون الاتصال بالانترنيت
الرد }}}}
تم الشكر بواسطة:
#9
السلام عليكم

نعم اخي العزيز هنالك دوال وفئات تقوم بالمهمة بدون الاتصال بالانترنت وهي عن طريق مجال الاسماء Speech التي تستطيع ان تضيفها الى المشروع عن طريق Add Reference ومن ثم تكتب الكود التالي:

PHP كود :
using System.Speech.Synthesis;
var 
spk = new SpeechSynthesizer();
            
spk.Speak(textBox1.Text); 

تحياتي
الرد }}}}
تم الشكر بواسطة:
#10
مشكور اخي Sajad على هذه الاضافة الرائعة ولكنه لا ينطق الجملة المكتوبة باللغة بالعربية
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة كتابة نص في text box kofa 3 33 منذ 2 ساعة مضت
آخر رد: kofa
  تقسيم text الى عدة listbox rabeh.ram 4 107 22-11-16, 12:06 AM
آخر رد: rabeh.ram
  الكتابة فى ملف text Mohamed20 1 66 31-10-16, 11:39 PM
آخر رد: silverlight
  عندما TextBox1.DataBinding.Add("text" , DataSet1 , Table.Field) Text كيف للصور thevirus 2 80 29-10-16, 06:31 PM
آخر رد: thevirus
  هل يمكن قراءة سطر/كلمة معين من ملف text على سيرفر موقع أسامة 3 223 13-04-16, 01:52 AM
آخر رد: hassan
  Textbox Text Length أسامة 5 273 17-03-16, 03:42 PM
آخر رد: hassan
  Save ListBox To Text File أسامة 14 460 06-03-16, 02:32 PM
آخر رد: silverlight
  [VB.NET] كيفية حفظ عناصر DataGridView الى ملف نصى text file الماجيك مسعد 5 300 18-01-16, 04:55 PM
آخر رد: الماجيك مسعد
  [سؤال] شباب هل من الممكن عمل برنامج voice speech ينطق بالعربية احمد عبد الحكيم 5 902 18-01-16, 04:36 AM
آخر رد: الماجيك مسعد
Question tooltip wrap text abuzzouz 2 213 27-11-15, 06:09 AM
آخر رد: abuzzouz

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم