Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Support Forums » DBISAM General » View Thread |
Messages 1 to 5 of 5 total |
Open File Backups |
Wed, Apr 15 2009 9:11 PM | Permanent 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 PM | Permanent 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 PM | Permanent 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 AM | Permanent 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 PM | Permanent Link |
Abs | Can reverse engineering be used as a live backup?
I have tried it and it seems to work. Am I missing something? |
This web page was last updated on Saturday, April 27, 2024 at 08:52 PM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |