backUp

أعتقد أنك تقصد النسخ الاحتياطي

فإن كنت تريد نقل الملفات التابعة لقاعدة البيانات من مكان إلى مكان اخر

فإليك هذه الطريقة

procedure CopyTree(dir, dest: string);
var
  sfos: TSHFileOpStruct;
begin
  FillChar(sfos, SizeOf(sfos), 0);
  dir := dir + '*.*'#0;
  dest := dest + '*.*'#0;
  with sfos do
  begin
    wnd := 0;
    wfunc := FO_COPY;
    pFrom := PChar(dir);
    pTo := PChar(dest);
    fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION or FOF_SIMPLEPROGRESS;
    fAnyOperationsAborted := false;
    hNameMappings := nil;
    lpszProgressTitle := nil
  end;
  SHFileOperation(sfos)
end;

end.

استدعيه

CopyTree('c:workdir', 'h:backup

شكراً لك أخي العزيز ، سأجربه و أخبرك بالنتيجة (f)

هذا المكون من torry

وستجد الكثير في الموقع

www.torry.net

dbbckp.zip

شكراً شكراً (f)(f)(f)(f)(f)(f)

إلى الأخ رضا :

الكود السابق لم ينسخ قاعدة البيانات ، و بالنسبة للمكون فهو لايعمل على دلفي 7 و عندما حاولت تنزيله طلب مني Proxies ؟؟؟ فما الحل برأيك

شكراً لك

اقتباس

فإن كنت تريد نقل الملفات التابعة لقاعدة البيانات من مكان إلى مكان اخر  

فإليك هذه الطريقة  

مينا لاحظ ماكتبت

الكود السابق ينسخ مجلد بكامل محتوياته وأنا متاكد منه قبل أن اضعه:)

بالنسبة للمكون

لم اجربه على الدلفي 7 لان لايوجد لدي delphi7

وهو يعمل على 4 و 5 كم مكتوب مع الreadme

إذا كنت لا تريد أن تجني فائدة البحث في الموقع الذي اعطيتك إياه

عن مكون اخر سابحث لك انا عن واحد اخر

فقط اكتب back up

وسيظهر لك عدة مكونات اختر واحدا منها

لقد بحثت في الموقع السابق و لكن لم أجد أي مكون متوافق مع الدلفي 7 ، كل المكونات الموجودة هي لنسخ دلفي أقدم ، و كلها تحتاج إلى Proxies، و لقد بحثت عن الـ proxies و لم اجده ؟؟؟؟

و بالنسبة للكود معك حق فقد عدلت فيه قبل أن أنفذه لذلك لم يعمل ،؛يث أنني بدلاً من *.* وضعت mdb.* !!:o:o

لسة مجربه على delphi 5 :D

وهو يعمل

إذا مو مستعجلة بعد بكرة بعملك

واحد على d7