0

TFDFBNBackupおよびを使用しTFDFBNRestoreて、ローカル ファイルからリモート サーバーとの間でバックアップを作成および復元することはできますか?

gbak などのローカル サービス マネージャー コマンド ライン ツールを使用してこれを実行できることはわかっていますが、新しい Firemonkey アプリケーション (Windows、OSX、Linux) ではこれらのツールを使用したくありません。機能をアプリケーションに完全にコンパイルしたいのですが、ファイル共有ではなく、Firebird 接続ベースでのみサーバーにアクセスできます。

4

1 に答える 1

1

Arioch の提案のおかげで解決でき、うまくいきました。バックアップファイルを圧縮する gbak サービスを使用しました。nbackup フレーバーでも動作するはずです。

以下に、概念実証としてエラー処理を行わないコード例をいくつか示します。バックアップは完全に信頼できる場合にのみ意味があるため、この概念を運用目的で実装する場合は、高度なエラー検出と処理が必要です。

また、サーバー上の firebird.conf を変更して、データベースが存在するフォルダー内の外部ファイル アクセスを許可する必要があります。Windows でいくつかのデータベースのバックアップを作成し、ローカル マシンに転送されたファイルのバイナリ比較を作成しました。

この例では、ラベルとプログレス バーをフィードしています。進行状況を表示するには、バックアップ コンポーネントを詳細に設定する必要がありますが、これによりサーバーでのバックアップが遅くなりますが、ユーザーにフィードバックを提供できることを好みます。

procedure TForm1.Button1Click(Sender: TObject);
var
  count: int64;
  fs: TFileStream;
  x: integer;

  procedure dropBackupTable;
  begin
    with FDQuery do
    begin
      sql.text := 'execute block as ' + 'begin ' +
        'if (exists(select 1 from rdb$relations where rdb$relation_name=''BACKUP'')) then ' +
        'execute statement ''drop table backup'';' + 'end';
      execute;
    end;
  end;

begin

  lbl.text := 'Online backup on server...';
  dropBackupTable;
  pb.Value := 2;
  pb.Max := 2000;
  with FDIbBackup do
  begin
    host := '192.168.2.14';
    database := 'r:\databases\office.fdb';
    port := 1216;
    UserName := 'SYSDBA';
    Password := '???????';
    BackupFiles.Clear;
    BackupFiles.add('r:\databases\back.fbk');
    Backup;
  end;

  lbl.text := 'Copying backup file...';

  with FDQuery do
  begin
    sql.text := 'create table backup external ''r:\databases\back.fbk'' (x integer)';
    execute;
    sql.text := 'select count(*) from backup';
    open;
    count := fields[0].AsInteger;
    close;
    pb.Max := count div 1024;
    pb.Value := 0;
    sql.text := 'select * from backup';
    open;
    fs := TFileStream.create('d:\temp\local.fbk', fmCreate, (fmShareDenyRead or fmShareDenyNone));
    count := 0;
    while not eof do
    begin
      inc(count);
      x := fields[0].AsInteger;
      fs.write(x, sizeOf(x));
      if count > 1023 then
      begin
        pb.Value := pb.Value + 1;
        application.processmessages;
        count := 0;
      end;
      next;
    end;
    close;
    fs.free;
    pb.Value := 0;
  end;

  dropBackupTable;

  lbl.text := 'Ready.';
end;

procedure TForm1.FBBackProgress(ASender: TFDPhysDriverService; const AMessage: string);
begin
  if pb.Value = pb.Max then
    pb.Value := 2
  else
    pb.Value := pb.Value + 1;
  application.processmessages;
end;
于 2018-12-11T23:22:05.947 に答える