TIBBackupServiceのオプション (ID:44514)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 バックアップらしきことはできるようになりました。 が、元ＤＢのサイズ42.5MBに対し、出力できているのが29MBです。 IBConsoleだと44MBできています。 オプションも同じようにしています。 with IBBackup do begin try try Active := True; Verbose := True; //Options Options := []; if frmMain.cbxIgnoreChecksums.Checked then Options := Options + [IgnoreChecksums]; if frmMain.cbxIgnoreLimbo.Checked then Options := Options + [IgnoreLimbo]; if frmMain.cbxMetadataOnly.Checked then Options := Options + [MetadataOnly]; if frmMain.cbxNoGarbageCollection.Checked then Options := Options + [NoGarbageCollection]; if frmMain.cbxNonTransportable.Checked then Options := Options + [NonTransportable]; if frmMain.cbxConvertExtTables.Checked then Options := Options + [ConvertExtTables]; // BackupFile.Add(frmMain.edtBackupPath.Text + '\MANUAL' + FormatDateTime('yyyymmdd',now) + frmMain.edtFileName.Text); ServiceStart; frmMain.barInfo.SimpleText := FormatDateTime('hh:mm:ss',Now) + ':バックアップに成功しました。'; except frmMain.barInfo.SimpleText := FormatDateTime('hh:mm:ss',Now) + ':バックアップに失敗しました。'; end; finally Active := False; end; end;