السلام عليكم ورحمة الله وبركاته
كيف يمكن امنع فتح ملف نصي من قبل مستخدم آخر عندما يكون الملف النصي مفتوح من قبل مستخدم آخر
عندي برنامج للتعامل مع الملفات النصية وانا اعمل على شبكة
الملفات النصية موجودة داخل مجلد خاص بها
اريد عندما يكون هناك مستخدم يتعامل مع احد الملفات النصي لا يستطيع اي مستخدم آخر فتح الملف النصي وذلك بارسال رسالة مثلا أن الملف المراد فتحة مفتوح من قبل مستخدم آخر
هذه عملية تدعى Locking أو القفل. يجب عليك متابعة حالة الملف (تسجيلها في قاعدة بيانات أو في ملف منفصل). في الغالب ستكون الحالات هي: مفتوحة (أي شخص يستطيع قراءتها ويستطيع كذلك "قفلها" ليقوم بالتعديل عليها) ومغلقة (تابعة لشخص معين يتم تسجيل اسمه ولا يسمح بالتعديل عليه، وربما يسمح بالقراءة).
السلام عليكم ورحمة الله وبركاته
يمكنك استخدام FileIOPermission للتحكم بالصلاحيات على الملفات مع استخدام CodeAccessPermission
.:: Wish to become better and better ::.
السلام عليكم ورحمة الله وبركاته
يمكنك استخدام FileIOPermission للتحكم بالصلاحيات على الملفات مع استخدام CodeAccessPermission
كيف يمكن ذلك ممكن مثال او كود
السلام عليكم ورحمة الله وبركاته
Imports System
Imports System.Security
Imports System.Security.Permissions
Imports System.IO
Namespace AuthenticationAuthorization
Module Program
Sub Main(string[] args)
Dim permission As CodeAccessPermission = New FileIOPermission(FileIOPermissionAccess.Read, "D:\test.txt")
permission.Assert()
Method()
CodeAccessPermission.RevertDeny()
Method()
Console.Read()
End Sub
Sub Method()
Try
Dim sr = As New StreamReader("D:\test.txt")
Console.WriteLine("File is opened")
catch
Console.WriteLine("Failed to open file")
End Try
End Sub
End Module
End Namespace
.:: Wish to become better and better ::.
السلام عليكم
سؤالي بارك الله فيكم
كيف استطيع الكتابة في ملف تكست والقراءة منه
Imports System
Imports System.Security
Imports System.Security.Permissions
Imports System.IO
Namespace AuthenticationAuthorization
Module Program
Sub Main(string[] args)
Dim permission As CodeAccessPermission = New FileIOPermission(FileIOPermissionAccess.Read, "D:\test.txt")
permission.Assert()
Method()
CodeAccessPermission.RevertDeny()
Method()
Console.Read()
End Sub
Sub Method()
Try
Dim sr = As New StreamReader("D:\test.txt")
Console.WriteLine("File is opened")
catch
Console.WriteLine("Failed to open file")
End Try
End Sub
End Module
End Namespace
اخي الكريم قمت بانشاء Module ووضعت الكود السابق به ظهر لي خطئين باللون الاحمر
ارجوا التوضيح الف شكر
اخي الكريم الحبيب 99
تفضل هذا مثل على التعامل مع الملفات النصية لعله يفيدك
العفو أخي ... لأن السي شارب علقت يدي خخخخخ
Sub Main(args() as string)
Dim sr As New StreamReader("D:\test.txt")
.:: Wish to become better and better ::.
الف شكر اخي الكريم VB Helper
عملت مثال لكن لم استطع من تطبيق الكود الموجود في المديول
ممكن تعدل علية لو تكرمت
السلام عليكم ورحمة الله وبركاته
أخي افترضت ان المشروع ConsoleApplication وليس Windows Application .
.:: Wish to become better and better ::.
اخي العزيز VB Helper ممكن توضح اكثر
بعد وضع الكود في مشروع ConsoleApplication
كيف اتعامل معه من خلال برنامجي ارجوا التوضييح اثابك الله
ونأسف على ازعاجك
شاكرين لكم حسن تعاونكم
السلام عليكم ورحمه الله وبركاته
مو مشكله اخي يمكنك استخدامه في اي حدث في برنامجك, مع استبدال ال Console بال MessageBox
.:: Wish to become better and better ::.
في الحقيقة لم استطع تنفيذ الامر
اخي جزاك الله خير انا عارف اني غلبتك معي
لكن اذا امكن تعدل على المثال او تعمل مثال
والف شكر على اهتمامك
السلام عليكم ورحمه الله وبركاته
قبل ما اعدل الملف
برنامجي لايسمح لاحد يصله من البرنامج؟؟ انت تريد ده ولا ماتريد حد يصله من الويندوز؟!!
.:: Wish to become better and better ::.
لا اريد احد يصله من البرنامج اثناء قيام احد المستخدمين بالتعامل مع الملف
وان كان الاثنان يكون افضل
السلام عليكم ورحمه الله وبركاته
انصحك باستخدام ACL
Access Control List
.:: Wish to become better and better ::.
الف شكر اخي الكريم جزاك الله خير
لا تزال المشكلة كما هي
من لديه الحل ارجوا افادتي عنه وإن امكن بمثال
السلام عليكم ورحمه الله وبركاته
اخي aftfm سأعطيك فكره اخرى وسهله مره!!
قم بإنشاء ملف نصي وعند فتح اي ملف من قبل اي مستخدم قم بخزن مساره, الان عندما يتم محاوله فتح اي ملف قم بفحص مساره ان وجد داخل ذاك الملف فقم باظهار رساله "الملف قيد الاستخدام" واذا تم غلقه احذف مساره من ذاك الملف
.:: Wish to become better and better ::.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
