الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استقبال ؟؟؟؟؟؟؟ عندما ارسل نص عربي

بدأه C.mind في 12 ديسمبر 2009 · 2 رد · 1,369 مشاهدة · في برمجة الشبكات والتطبيقات الموزعة
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

كيف حالكم ان شاء الله طيبين. ياخواني انا اعمل على برنامج ارسل واستقبل ملفات وبرضوا فيها محادثة. بس لما ارسل ملف اسمه بالعربي مايقبل او ارسل رساله نصية بالعربي يطلع لي علامات ؟؟؟؟؟؟؟؟ بدلاً من النص العربي. بالعكس عنددما ارسل ملف اسمه باللغة الانجليزية او نص باللغة الانجليزي فانه يستقبله بالرحب والسعه.

هذا كود ارسل ملف

    Private Sub Send_File_Info()
        Try
            FileName = New FileInfo(OpenFileDialog1.FileName)
            FileSize = New FileInfo(OpenFileDialog1.FileName)
            SendBytes = Encoding.ASCII.GetBytes("FILEINFO|" & FileName.Name & "|" & _
                FileSize.Length)
            UDPClient.Send(SendBytes, SendBytes.LongLength)
        Catch ex As Exception

        End Try
    End Sub

وهذا كود استقبال رساله

 Private Sub Receive_Message()
        Dim ReceiveBytes As Byte() = REcUDPClient.Receive(RIEP)
        ReadyToReceiveFile = Encoding.ASCII.GetChars(ReceiveBytes)
        If ReadyToReceiveFile = "True" Then
            Call Start_File_Transfer()
        End If
        REcThread = New Threading.Thread(AddressOf Receive_Message)
        REcThread.Start()
    End Sub

علماً انني اشتغل على فيجوال بيسك 2003 ولا يمكنني الانتقال الى اصدار اخر في الوقت الراهن. الف شكر على المرور

#2

انا لست محترف لكن هذه المشكله واجهتنى قبل ذلك واستخدمت Encoding.Default حاول تجربها او تجرب غيرها

#3

استخدم 

Encoding.ut8f

مواضيع مشابهة