> Hi All,
>
> My new requirement is that i have to programitically backup my firebird
> database . I tried using IBOAdmin's backup service but found that it
> shows a error that Interbase client gds32.dll not not found in the path.
> Can any one suggest a best option for backup and restore a database
> file ..........
>
> If possible by with some code example
>
>
> Regards
>
> Niegil Thomas

I think they call this cross-posting and you are asked to not do it. Post
one message on one forum at a atime please.
You might get the drift of this code.
Alan

procedure TMain.acnBackupExecute(Sender: TObject);
var
sBackupName: String;
SearchFile: TSearchRec;
BackupPath: String[79];
iBackups: Integer;
begin
{#ToDo1 Check file count and warn past a certain number}
iBackups := 0;
BackupPath := ExcludeTrailingPathDelimiter(srBackupDir)+'\*.fbk';
kbmMemTableFileList.Open;
kbmMemTableFileList.EmptyTable;
if FindFirst(BackupPath, faArchive, SearchFile)=0 then
repeat
inc(iBackups);
kbmMemTableFileList.Insert;
kbmMemTableFileList.FieldByName('FileDate').AsDateTime :=
SearchFile.Time;
kbmMemTableFileList.FieldByName('FileName').AsString := SearchFile.Name;
until FindNext(SearchFile)<>0;
FindClose(SearchFile);
if not brIgnoreBUCount then begin
kbmMemTableFileList.SortOn('FileDate', []);
kbmMemTableFileList.First;
while iBackups>=riBackupCount do begin
DeleteFile(ExcludeTrailingPathDelimiter(srBackupDir)+'\'+kbmMemTableFi
leList.FieldByName('FileName').AsString);
DeleteFile(ChangeFileExt(ExcludeTrailingPathDelimiter(srBackupDir)+'\'
+kbmMemTableFileList.FieldByName('FileName').AsString,'.log'));
kbmMemTableFileList.Delete;
kbmMemTableFileList.Next;
Dec(iBackups);
end;
end;
StatusBar.Panels[0].Text := 'Backing up application database';
sBackupName := CreateBackupName;
if not DirectoryExists(srBackupDir) then begin
end;
fBackupName := ExcludeTrailingPathDelimiter(srBackupDir)+'\acsaa'+
sBackupName + '.fbk';
brBackupVerbose := True;
if (brBackupVerbose and (dlgVerbose=nil)) then begin
dlgVerbose := TdlgVerbose.Create(self);
dlgVerbose.Caption := 'Backup Database';
dlgVerbose.Memo1.Lines.Clear;
end;
with IBOBackupService1 do begin
BackupFile.Clear;
Params.Clear;
Params.Add('user_name=' + dmLocalStore.IB_Connection1.Username);
Params.Add('password=' + dmLocalStore.IB_Connection1.Password);
try
Verbose := brBackupVerbose;
Options := [];

LoginPrompt := false;
ServerName := '';
DatabaseName := dmLocalStore.IB_Connection1.Path;
Protocol := cpLocal;

BackupFile.Add(fBackupName);
Active := True;
Screen.Cursor := crHourGlass;
ServiceStart;
if (brBackupVerbose and (dlgVerbose<>nil)) then begin
while not eof do begin
Application.ProcessMessages;
Screen.Cursor := crHourGlass;
dlgVerbose.Memo1.Lines.Add(GetNextLine);
dlgVerbose.Memo1.Update;
end;
dlgVerbose.Memo1.Lines.Add('Backup file - ' + fBackupName);
dlgVerbose.Memo1.Lines.Add('Backup complete...');
dlgVerbose.WriteLog (ExcludeTrailingPathDelimiter(srBackupDir) +
'\acsaa' + sBackupName + '.log');
end;
finally
Active := False;
screen.cursor := crdefault;
end;
end;
StatusBar.Panels[0].Text := 'Backup complete';
msgbBackupFinished := True;
end;