Icon View Thread

The following is the text of the current message along with any replies.
Messages 1 to 5 of 5 total
Thread Open File Backups
Wed, Apr 15 2009 9:11 PMPermanent Link

"Al Vas"
Hi,

We have a client who would like to regularly backup our application for
fallback procedures.  Can anyone recommend a tool that will back up DBISAM
files even whilst they are being used?  This is V3.30.

Thanks

Alex
Thu, Apr 16 2009 4:09 PMPermanent Link

"Jeff Cook"
Al Vas wrote:

> Hi,
>
> We have a client who would like to regularly backup our application
> for fallback procedures.  Can anyone recommend a tool that will back
> up DBISAM files even whilst they are being used?  This is V3.30.
>
> Thanks
>
> Alex


Hi Al

We have used VCLZip for a number of years with no problems.  Some snips
of code we use follows.  We use a transaction to lock the database
during the backup.  You are welcome to the full code for the module if
you decide to go that way.

Cheers

Jeff
==================================================
   with VCLZip1 do
   begin
     s := edtFileName.Text;
     ZipName := s;
     RootDir := ExtractFileDir(apmDM.APMPath);
     FilesList.Clear;
     RelativePaths := True;
     PackLevel := 9;
     BufferedStreamSize := $40000;
     case rdoAction.ItemIndex of
       0: begin
           ZipComment := 'Full backup performed by Aspect Property
Manager'
             + #13#10#13#10 + CompanyName + #13#10#13#10;
           if chkIncludePhotos.Checked then
             ZipComment := ZipComment + '(Including Photos)'
           else ZipComment := ZipComment + '(Excluding Photos)';
           FilesList.Add(RootDir + '*.*');
           if chkIncludePhotos.Checked then
             ExcludeList.Clear
           else ExcludeList.Add(RootDir + 'Data\Photos.*');
           Common.Log('Starting a backup: ZipComment is "' + ZipComment
             + '"' + #13#10'FilesList is "' + FilesList.CommaText + '"'
             , '', 'Backup');
           ForceDirectories(ExtractFilePath(ZipName));
         end;
..
..
..
..
     apmDM.APM.StartTransaction;
     case rdoAction.ItemIndex of
       0: begin
           DeleteFile(ZipName);
           if s = '' then
             Action := 'Full backup to ' + edtFileName.Text +
'cancelled'
           else
           begin
             NumberZipped := Zip;
             apmDM.APM.Rollback;
             MessageDlg('Full backup complete'
               + #13#10#13#10 + IntToStr(NumberZipped)
               + ' compressed files saved in ' + ZipName,
mtInformation, [mbOK], 0);
             Action := 'Full backup to ' + edtFileName.Text;
           end;
           ModalResult := mrOK; //Close;
         end;
..
..
..
..

--
Jeff Cook
Aspect Systems Ltd
www.aspect.co.nz
+
Joan and Jeff Cook
The Cooks Oasis
www.cookislandsoasis.com
Fri, Apr 17 2009 3:24 PMPermanent Link

"Jerry Clancy"
Al,

Though there is an element of risk (e.g., while in use and the .dat and .idx
could be out of sync for microseconds), I use xcopy in a batch file run
overnight as a scheduled task to blow changed files to external disks. My
worst case, I figure, would be I'd have to run Verify or Repair on restore,
if ever necessary but, then, our apps don't risk creating billion dollar
checks or blowing Apollo out of the sky if they go flaky. Never been a
problem yet. FWIW.

Have also done zips and then xcopied the zips. The zip will generate
warnings in the "in use" cases.

Jerry

"Jeff Cook" <jeffc@aspect.co.nz> wrote in message
news:C91A1BC3-23FA-4CD9-971A-4814229A93F0@news.elevatesoft.com...
> Al Vas wrote:
>
>> Hi,
>>
>> We have a client who would like to regularly backup our application
>> for fallback procedures.  Can anyone recommend a tool that will back
>> up DBISAM files even whilst they are being used?  This is V3.30.
>>
>> Thanks
>>
>> Alex
>
>
> Hi Al
>
> We have used VCLZip for a number of years with no problems.  Some snips
> of code we use follows.  We use a transaction to lock the database
> during the backup.  You are welcome to the full code for the module if
> you decide to go that way.
>
> Cheers
>
> Jeff
> ==================================================
>    with VCLZip1 do
>    begin
>      s := edtFileName.Text;
>      ZipName := s;
>      RootDir := ExtractFileDir(apmDM.APMPath);
>      FilesList.Clear;
>      RelativePaths := True;
>      PackLevel := 9;
>      BufferedStreamSize := $40000;
>      case rdoAction.ItemIndex of
>        0: begin
>            ZipComment := 'Full backup performed by Aspect Property
> Manager'
>              + #13#10#13#10 + CompanyName + #13#10#13#10;
>            if chkIncludePhotos.Checked then
>              ZipComment := ZipComment + '(Including Photos)'
>            else ZipComment := ZipComment + '(Excluding Photos)';
>            FilesList.Add(RootDir + '*.*');
>            if chkIncludePhotos.Checked then
>              ExcludeList.Clear
>            else ExcludeList.Add(RootDir + 'Data\Photos.*');
>            Common.Log('Starting a backup: ZipComment is "' + ZipComment
>              + '"' + #13#10'FilesList is "' + FilesList.CommaText + '"'
>              , '', 'Backup');
>            ForceDirectories(ExtractFilePath(ZipName));
>          end;
> .
> .
> .
> .
>      apmDM.APM.StartTransaction;
>      case rdoAction.ItemIndex of
>        0: begin
>            DeleteFile(ZipName);
>            if s = '' then
>              Action := 'Full backup to ' + edtFileName.Text +
> 'cancelled'
>            else
>            begin
>              NumberZipped := Zip;
>              apmDM.APM.Rollback;
>              MessageDlg('Full backup complete'
>                + #13#10#13#10 + IntToStr(NumberZipped)
>                + ' compressed files saved in ' + ZipName,
> mtInformation, [mbOK], 0);
>              Action := 'Full backup to ' + edtFileName.Text;
>            end;
>            ModalResult := mrOK; //Close;
>          end;
> .
> .
> .
> .
>
> --
> Jeff Cook
> Aspect Systems Ltd
> www.aspect.co.nz
> +
> Joan and Jeff Cook
> The Cooks Oasis
> www.cookislandsoasis.com
Sat, Apr 18 2009 10:49 AMPermanent Link

David
I modified the server to add our own backups.

http://activebiometrics.com/products/activeserver/files/BIGblocks_image_7_1.
png

Just to be on the same side, I make users disable the DB before backups.


On 4/15/09 9:11 PM, in article
5FEC4BF7-152C-4059-AE6A-27ED790559E4@news.elevatesoft.com, "Al Vas"
<noreply@noreply.com> wrote:

> Hi,
>
> We have a client who would like to regularly backup our application for
> fallback procedures.  Can anyone recommend a tool that will back up DBISAM
> files even whilst they are being used?  This is V3.30.
>
> Thanks
>
> Alex
>

Sat, Apr 18 2009 2:13 PMPermanent Link

Abs
Can reverse engineering be used as a live backup?
I have tried it and it seems to work. Am I missing something?
Image