procedure TFrm_Yedekleme.Btn_YedekleClick(Sender: TObject);
var
gun, ay, yil : Word;
gun_ay_yil : string;
begin
DecodeDate(Date, yil, ay, gun);
gun_ay_yil := IntToStr(gun) + '_' + IntToStr(ay) + '_' + IntToStr(yil);
Memo1.Lines.Clear;
// fmSqlMonitor.btClearClick(nil);
with IBBackupService1 do begin
Active := True;
Screen.Cursor := crHourGlass;
try
// CloseAllTables;
DatabaseName := DM.IBDatabase1.DatabaseName;
BackupFile.Clear;
BackupFile.Add(ExtractFilePath(Application.ExeName) + '\Yedek\petrol_' + gun_ay_yil +'.gbk');
ServiceStart;
While not Eof do
Memo1.Lines.Add(GetNextLine);
MessageDlg('Yedekleme başarıyla tamamlandı!', mtInformation, [mbOK], 0);
finally
Active := False;
// OpenAllTables;
Screen.Cursor := crDefault;
end;
end;
end;

object IBBackupService1: TIBBackupService
ServerName = 'localhost'
Params.Strings = (
'user_name=SYSDBA'
'password=masterkey')
LoginPrompt = False
TraceFlags = []
Verbose = True
BlockingFactor = 0
DatabaseName = 'D:\xxxxx\aaaaaa.gdb'
Options = [IgnoreLimbo, NonTransportable]
Left = 104
Top = 104
end