[H111er]

السلام عليكم اخواني
اخواني لدي سؤال .. اتمنى لمن يعرف اجابته ان لا يبخل علي بها
سؤالي هو هل يمكن حفظ البيانات لتبقى حتى لو تم فرمتة الجهاز ؟
مثلا اذا اردنا نسوي برنامج يحفظ بيانات يريدها المستخدم .. ملفات مهمة مثلا ..
على ان تبقى حتى لو تمت فرمتة الجهاز ؟
شكرا مقدما

[m.sami.ak]

اخي العزيز...
[COLOR="#006400"]اي مكان على جهاز الحاسوب يتم ضياع البيانات التي بداخلة في حالة الفورمات
لكن
ممكن انك تستخدم التخزين في اي قرص غير القرص الذي يحتوي على الوندوز
وعند الفورمات تبقي القرص الذي خزنت علية البيانات كما هو لا تفرمته .[/COLOR]

[COLOR="#006400"] ممكن عن طريق الانترنت بعمل كود لرفع الملف على النت على هوست خاص بك
او قم با رسالها كرسالة الى ايميلك مع المرفق .[/COLOR]


وهذا الكود لرفع ملف على الانترنت

PHP كود :

Dim FileLength As Long
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim clsRequest As System.Net.FtpWebRequest
        clsRequest = DirectCast(System.Net.WebRequest.Create(URL), System.Net.FtpWebRequest)
        clsRequest.Credentials = New System.Net.NetworkCredential(Username, Password)
        clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
        Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()
        Dim ReadData(2047) As Byte, FileNumber As Integer
        Dim Counter As Long
        FileNumber = FreeFile()
        FileOpen(FileNumber, FilePath, OpenMode.Binary)
        FileLength = LOF(FileNumber)
        For I = 1 To FileLength \ 2048
            FileGet(FileNumber, ReadData)
            clsStream.Write(ReadData, 0, 2048)
            BackgroundWorker1.ReportProgress(Counter)
            Counter += 2048
        Next
        If FileLength Mod 2048 <> 0 Then
            Dim ReadData2((FileLength Mod 2048) - 1) As Byte
            FileGet(FileNumber, ReadData2)
            clsStream.Write(ReadData2, 0, (FileLength Mod 2048) - 1)
        End If
        clsStream.Close()
        clsStream.Dispose()
    End Sub

    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        Dim Percent As Integer = ((e.ProgressPercentage   / FileLength) * 100)
        Label1.Text = Percent & "%"
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
       MsgBox("Finshed")
    End Sub 


[COLOR="#800080"]إستبدل :
URL برابط الملف في إستضافة الـ FTP مثلا "ftp://mysite/Image.png"
Username اسم المستخدم لحساب الـ FTP
Password كلمة السر لحساب الـ FTP
FilePath مسار الملف المراد رفعه مثلا : "D:\Image.png"[/COLOR]

[H111er]

M.Sami.AK كتب :

اخي العزيز...
[COLOR="#006400"]اي مكان على جهاز الحاسوب يتم ضياع البيانات التي بداخلة في حالة الفورمات
لكن
ممكن انك تستخدم التخزين في اي قرص غير القرص الذي يحتوي على الوندوز
وعند الفورمات تبقي القرص الذي خزنت علية البيانات كما هو لا تفرمته .[/COLOR]
اها .. شكرا لك اخي افدتني كثيرا .. دمت في عون الله

[COLOR="#006400"] ممكن عن طريق الانترنت بعمل كود لرفع الملف على النت على هوست خاص بك
او قم با رسالها كرسالة الى ايميلك مع المرفق .[/COLOR]


وهذا الكود لرفع ملف على الانترنت

PHP كود :

Dim FileLength As Long
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim clsRequest As System.Net.FtpWebRequest
        clsRequest = DirectCast(System.Net.WebRequest.Create(URL), System.Net.FtpWebRequest)
        clsRequest.Credentials = New System.Net.NetworkCredential(Username, Password)
        clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
        Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()
        Dim ReadData(2047) As Byte, FileNumber As Integer
        Dim Counter As Long
        FileNumber = FreeFile()
        FileOpen(FileNumber, FilePath, OpenMode.Binary)
        FileLength = LOF(FileNumber)
        For I = 1 To FileLength \ 2048
            FileGet(FileNumber, ReadData)
            clsStream.Write(ReadData, 0, 2048)
            BackgroundWorker1.ReportProgress(Counter)
            Counter += 2048
        Next
        If FileLength Mod 2048 <> 0 Then
            Dim ReadData2((FileLength Mod 2048) - 1) As Byte
            FileGet(FileNumber, ReadData2)
            clsStream.Write(ReadData2, 0, (FileLength Mod 2048) - 1)
        End If
        clsStream.Close()
        clsStream.Dispose()
    End Sub

    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        Dim Percent As Integer = ((e.ProgressPercentage   / FileLength) * 100)
        Label1.Text = Percent & "%"
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
       MsgBox("Finshed")
    End Sub 


[COLOR="#800080"]إستبدل :
URL برابط الملف في إستضافة الـ FTP مثلا "ftp://mysite/Image.png"
Username اسم المستخدم لحساب الـ FTP
Password كلمة السر لحساب الـ FTP
FilePath مسار الملف المراد رفعه مثلا : "D:\Image.png"[/COLOR]

اها , شكرا لك اخي افدتني كثير .. دمت في عون الله

[kslawy]

هناك خدمات جديدة في البريد الإلكتروني مثل خدمة Drive Sky في بريد الهوتميل ، وخدمة Google Drive في بريد جي ميل
تمكنك هذه الميزة من رفع ملفات علي الإنترنت كأنك تخزنها في أي قرص خارجي عادي ، ولكن الفرق الوحيد أنه قرص علي الإنترنت .

[H111er]

اها ... ممكن تشرح اكثر عنها لو ما اثقل عليك

[Mido]

أخي يوجد طريقة لحفظ بياناتك على الانترنت و كأنها على حاسبك الشخصي تعرف هذه التقنية بالسحابة وهي مجانية بالنسبة لسعة محددة تحددها الشركة التي ستتعامل معها ومدفوعة(مبلغ زهيد) للسعات الأكبر و قد قامت شركة acer بالكشف عن حاسبها الجديد الذي يستطيع تكوين السحابة الخاصة به دون الاحتياج إلى سيرفر على الانترنت
نظريا هذه الطريقة منسبة للاحتفاظ بملفاتك بشكل آمن بعيدة عن التلف
لكن عمليا إذا كانت سرعة الانترنت بطيئة فإن رفع أو تحميل ملفاتك سيستغرق وقتا طويلا (يمكنك تخيل ذلك بالنسبة لوزن متوسط مثل 3 أو 4 غيغا على سبيل المثال!)
لذلك (من وجهة نظري الشخصية) قم بحفظ الملفات على قرص آخر غير قرص الويندوز (غالبا c) لكي تتجنب ضياع الملفات عند الفورمات
كما يوجد عدة طرق لاستعادة الملفات حتى بعد الفورمات شريطة عدم كتابة أي شيء مكان هذه الملفات على القرص الصلب