+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : MemoryMappedFile (/showthread.php?tid=20921)
MemoryMappedFile - silverlight - 04-07-17
معلومة سريعة
الدوت نت به كلاس اسمه MemoryMappedFile هذا الكلاس يسمح لمن يستخدمه انه يكتب اي بيانات الي ملف و يقرأ نفس البيانات من نفس الملف
و هذا الملف الذي يتم يناؤه بهذا الكلاس بشكل عام يتم إنشاؤه في ذاكرة الكمبيوتر
و هذا مثال بسيط عن كيفية كتابة تكست الي ملف و القراءة منه في نفس الوقت باستخدام هذا الكلاس
PHP كود :
Private Function MapString(fileName As String, value As String, Optional capacity As Long = 1024) As String
Dim result As String = ""
SyncLock New Object
Using mmf = MemoryMappedFile.CreateNew(fileName, capacity)
Using viewStream As MemoryMappedViewStream = mmf.CreateViewStream()
Dim writer As BinaryWriter = New BinaryWriter(viewStream)
writer.Write(value)
End Using
Using viewStream As MemoryMappedViewStream = mmf.CreateViewStream()
Dim reader As BinaryReader = New BinaryReader(viewStream)
result += reader.ReadString()
End Using
End Using
End SyncLock
Return result
End Function
الكود التالي يوضح كيفية استخدام الدالة أعلاه
PHP كود :
' يمكنك استخدام اسم الملف باي اسم تريده و ليس شرطا ان بكون له امتداد
Dim s As String = MapString("any file name", "Visual basic For Arab")
ما لفت انتباهي في هذا الكلاس أنك طالما تستطيع كتابة string فأنت تستطيع كتابة اي شئ اخر مثل مصفوفة String او Dictionary أو حتي DataTable
الكود التالي يوضح كيفية استخدام الكلاس في كتابة مصفوفة
PHP كود :
Private Function MapList(fileName As String, value As List(Of String), Optional capacity As Long = 1024) As List(Of String)
Dim result As List(Of String) = Nothing
SyncLock New Object
Using mmf = MemoryMappedFile.CreateNew(fileName, capacity)
Using viewStream As MemoryMappedViewStream = mmf.CreateViewStream()
Dim writer As BinaryWriter = New BinaryWriter(viewStream)
writer.Write(value.Count)
For Each current As String In value
writer.Write(current)
Next
End Using
Using viewStream As MemoryMappedViewStream = mmf.CreateViewStream()
Dim reader As BinaryReader = New BinaryReader(viewStream)
result = New List(Of String)()
Dim count As Integer = reader.ReadInt32()
For i As Integer = 0 To count - 1
Dim s As String = reader.ReadString()
result.Add(s)
Next
End Using
End Using
End SyncLock
Return result
End Function
الكود التالي يوضح كيفية الاستفادة من الدالة أعلاه
والكتابة الي تكست بوكس
PHP كود :
Dim strings As String() = MapList("anyfileNam", New List(Of String) From {"Mohammed", "Abu Bakr", "Omar", "Othman", "Ali"}).ToArray
For Each s As String In strings
Me.TextBox1.AppendText(s + Environment.NewLine)
Next
عموما الاسلوب هذا ممكن استخدامه بأساليب كثيرة
مثلا ممكن تكتب الدوال في فضاء اسماء مختلف و تقرأ من فضاء أسماء أخر تماما
بدون أن تقوم بإظهار المصفوفة أو String كما في الأمثلة أعلاه
يمكنكم الإطلاع علي مزيد من التفاصيل عن الكلاس في الرابط التالي
الدوال اعلاه مختلفة قليلا عن الكود الموجود في الرابط الخاص بمايكروسوفت
طبعا مايكروسوفت مستحيل تشرح شئ بالتفصيل المناسب للناس
المرجع
الرابط
أتمني يكون الموضوع مفيدة للبعض منكم