تهیه فایل پشتیبان از دو پوشه و محتوای آن { (cab) و یا روش دیگه }

یک برنامه می نویسم که با بانک اکسس کار می کنه و دو تا پوشه هم دارم که در یکی از آنها عکس های اشخاص و در دیگری فایل های صوتی مربوط به اشخاص رو ذخیره می کنم

حالا می خوام از تمام این اطلاعات فایل پشتیبان تهیه کنم !

با دیتابیس اکسس مشکلی ندارم ( می تونم ازش پشتیبان تهیه کنم )

ولی این دو پوشه با محتویاتش می مونه که نمی دونم از چه روشی براشون استفاده کنم ؟ می خواستم از روش کپی استفاده کنم ( یعنی در هر بار پشتیبانی گرفتن هر دو پوشه رو هم کپی کنم ) ولی خیلی درد سر داره برای همین می خوام وقتی که فایل پشتیبان ساخته می شه کلا یک فایل باشه ( مانند فایل CAB )

این رو هم جستجو کردم ولی چیز زیادی نفهمیدم یک سایت یافتم با آدرس زیر :

کد:

---

http://sourceforge.net/project/showfiles.php?group_id=45786

---

که کامپوننت هایی در این زمینه ارائه می ده ولی دقیقا نفهمیدم که کدام رو باید دانلود کنم ( به خاطر دایال آپی بودن هم نتونستم ریسک کنم ) اگه لینکی و یا کامپوننتی و یا روش دیگه ای داریم ممنون می شم که بگید


( کلا می خوام علاوه بر بانک اکسس از دو تا پوشه که محتوای یکی عکس و محتوای دیگری فایل صوتی است همه با هم در یک فایل جمع شن تا هنگام برگرداندن با مشکلی مواجه نشیم )

سلام رفیق.
اول بگو ببینم چطور از Access پشتیبان میگیری؟
حالا جواب شما:
من از کامپوننته ZipForg برای اینکار استفاده میکنم
تازه رو پشتیبانمم پسورد هم میزارم.
یه کامپوننت backup هم هست. که من روش بالا رو بهتون پیشنهاد میکنم.
اینم سورس تابع

کد:

---

Function TFMain.BackupData(ArchiveName:String) :Boolean;
Var DirApp,TextDlg,TextDlg1,FarsiDate,s1,s2,s3,s4:String;
size:Longint;
Begin
    try
      s1:=Trim(ArchiveName);
      s2:='13'+copy(s1,3,2);
      s2:= s2+'/'+copy(s1,5,2);
      s2:= s2+'/'+copy(s1,7,2);
      if FarsiCalendar.CheckDate(s2) then
      Begin
      s3:=FarsiCalendar.WhatDayIsIt(s2);
      S4:=MonthNames[strtoInt(copy(s1,5,2))];
      End;
        dirApp:=ExtractFileDir(Application.ExeName);
        Archiver.FileName :=DirApp+'\Archive\'+Trim(ArchiveName+'.zip');
        if Not DirectoryExists(dirApp+'\Archive') then
            ShowMsg(' æÔå ÂÑÔíæ ÇØáÇÚÇÊ íÇÝÊ äÔÏ ','',11);

            //-------
      if FileExists(Archiver.FileName)then
      Begin
          size := mcdb.GetDirSize(DirApp+'\Archive\'+Trim(ArchiveName+'.zip'));
          if size<100 then
              DeleteFile(DirApp+'\Archive\'+Trim(ArchiveName+'.zip'))
          else
          Begin

            TextDlg:=' ÔÊíÈÇä ' +// BytesFriendly(size)+'  ÈÇ ÍÌã '+
            s3+' '+copy(s1,7,2)+' '+S4+' '+'13'+copy(s1,3,2);    // TextDlg:= IntToStr( Archiver.Size )+'  ÈÇ ÍÌã '+FileZipName+' ÝÇíá ' ;
            TextDlg1:=  'ãæÌæÏ ãí ÈÇÔÏ.ÂíÇ ÌÇíÒíä ÔæÏ¿ ';
            MsgDlgFileExist.Text:=TextDlg+TextDlg1;

            if MsgDlgFileExist.ShowModal= mrOk then
              if DeleteFile(Archiver.FileName) then
                  DoZip(dirApp,ArchiveName+'.zip');
          End;
      End
      else
        DoZip(dirApp,ArchiveName+'.zip');
    Except
      Result:=false;
      Exit;
    End;
    Result:=True;
End;

---

موفق باشید و پولدار.

ممنون از کدی که گذاشتی می رم که امتحانش کنم ولی قبل از رفتن درباره سوال شما که گفتید " چطوری از اکسس پشتیبان می گیرم " والله کار خواصی نمی کنم یک کپی از فایل می گیرم و اون رو فشرده می کنم قبلا در این باره جستجو کردم و تنها راهی که همه تائیدش می کردن همین بود برای همین هم من از این روش استفاده می کنم اگه کدی چیزی خواستی بگو .

راستی من وقتی جستجو کردم این کامپوننت رو پیدا کردمZipForge v.5.01 Personal Edition نیاز به رجیستر که نداره ؟ اندازش هم برای دلفی هفت 2.6 مگ بود دارم دانلودش می کنم

حالا برم روی کد شما کار کنم ببینم چی می شه حله لیگ .

سلام
من از FlexCompress استفاده مي كنم كه هم سرعتش خوبه هم كار كردن باهاش بسيار ساده است و از چندين الگوريتم زيپ جهت فشرده سازي استفاده مي كنه و از ProgressBar هم پشتيباني كامل مي كنه. شما مي تونيد به راحتي فايل ديتابيستون، همراه با پوشه هاي مورد نظرتون رو با اين كامپوننت زيپ كرده و در يك فايل DLL قرار بدين. و به راحتي هم باز گرداني كنيد. راحت تر از اين ديگه نيست. البته تعريف ZipForge رو هم شنيدم ولي باهاش كار نكردم.
FlexCompress در انجمن معرفي شده.
موفق باشين

خوب عزیز منم همین چیزیز گفتم که خودت داری میگی!!!
منم برا Access دقیقا از همین روش که گفتید استفاده میکنم D:
وقتی فایل Access رو کپی بعد فشرده میکنی، پس میتونی پوشه هم فشرده کنی.
من چیزه بیشتری نگفتم فقط پیشنهاد استفاده از ZipForg رو دادم.
اگه خواستی کد کامل رو برات میزارم.
نسخه من نیاز به هیچی نداره تازه Full Source هم هست .
بیشتر امکانات برنامه WinZip رو داره! از Progress bar گرفته تا سطح فشرده سازی...
موفق و پیروز باشید.

نقل قول:

---

نوشته شده توسط picher_s [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خوب عزیز منم همین چیزیز گفتم که خودت داری میگی!!!
منم برا access دقیقا از همین روش که گفتید استفاده میکنم d:
وقتی فایل access رو کپی بعد فشرده میکنی، پس میتونی پوشه هم فشرده کنی.
من چیزه بیشتری نگفتم فقط پیشنهاد استفاده از zipforg رو دادم.
اگه خواستی کد کامل رو برات میزارم.
نسخه من نیاز به هیچی نداره تازه full source هم هست .
بیشتر امکانات برنامه winzip رو داره! از progress bar گرفته تا سطح فشرده سازی...
موفق و پیروز باشید.

---

دوست عزيز چرا از كوره در ميري.:47: مگه من چي گفتم؟:42: من كه نگفتم شما اشتباه ميگي. خوب منم پيشنهاد دادم. حالا چرا جوش مياري؟:18:

نقل قول:

---

نوشته شده توسط romixery [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دوست عزيز چرا از كوره در ميري.:47: مگه من چي گفتم؟ من كه نگفتم شما اشتباه ميگي. خوب منم پيشنهاد دادم. حالا چرا جوش مياري؟:18:

---

سلام
عزیز من که با شما نبودم معذرت اگه ناراحتیدید:42:
من با as13851365 بودم.

منظوری هم نداشتم بخدا .

ما دوستون داریم:40: مگه نه؟

دیروز مدیر(ه فحش...) مون گفته از 19-17 هم بیاید سرکار!
من از 7 تا 2:30 سرکارم.3 میرسم تا نهار میخورم میشه 3:30 یعد از 1 ساعت دوباره باید بیام اداره!!!
اصلان دیگه نمی تونم برنامه بنویسم! به هیچ کاری نمیرسم.
بازم معذرت.:42:
همیشه پولدار باشی :31:

سلام
دوستان من چندان دلفی بلد نیستم ولی یک راه ساده دیگر هم وجود دارد ... !
کافیست یک exe کوچک 300 کیلویی را استفاده کنید:
forum.p30world.com/showthread.php?p=3219452#post3219452

نقل قول:

---

دوستان من چندان دلفی بلد نیستم ولی یک راه ساده دیگر هم وجود دارد ... !
کافیست یک exe کوچک 300 کیلویی را استفاده کنید:
forum.p30world.com/showthread.php?p=3219452#post3219452

---

ممنون دوست عزیز کار من با کامپوننت ZipForg راه افتاده و الان هیچ مشکلی ندارم کامپوننت خیلی خوبی هست و کارکردن باهاش هم خیلی راحتتر .