السلام عليكم ورحمة الله وبركاته
كيف حالكم ان شاء الله طيبين. ياخواني انا اعمل على برنامج ارسل واستقبل ملفات وبرضوا فيها محادثة. بس لما ارسل ملف اسمه بالعربي مايقبل او ارسل رساله نصية بالعربي يطلع لي علامات ؟؟؟؟؟؟؟؟ بدلاً من النص العربي. بالعكس عنددما ارسل ملف اسمه باللغة الانجليزية او نص باللغة الانجليزي فانه يستقبله بالرحب والسعه.
هذا كود ارسل ملف
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 ولا يمكنني الانتقال الى اصدار اخر في الوقت الراهن. الف شكر على المرور