Firebird Backup/Restore mit FIBPlus

[Freiwilderer]

hi chemiker,
danke für deine Antwort.

läuft so irgendwie immer noch nicht
also meine Ursprungsdatenbank hat 36MB
wenn ich die dann gesichert habe sind es noch 61KB (was ich für ziemlich klein halte)
nach einem restore, den ich gerade ausprobiert habe, hat die DB dann eine größe von ca 1MB

hab die while not eof schleife rausgenommen, weil die ja wohl eh nur zum protokollieren is, sonst aber alles so weit übernommen.

hier nochmal meine backupprocedure, vielleicht sieht da jemand noch n fehler...:

Delphi-Quellcode:

procedure TfrmDatensicherung.BT_StartClick(Sender: TObject);
begin
  with FIB_Backup do
  begin
    BackupFile.Clear;
    Params.Clear;
    if Pos('/3050:',ED_DBPfad.Text) > 0 then  // Lokaler oder UNC Pfad?
     begin
      DatabaseName := Copy(ED_DBPfad.Text,Pos('/3050:',ED_DBPfad.Text)+6,Length(ED_DBPfad.Text));
      ServerName   := Copy(ED_DBPfad.Text,1,Pos('/3050:',ED_DBPfad.Text)+4);
      Protocol     := TCP;
     end
    else
     begin
      ServerName:= 'localhost';
      DatabaseName := ED_DBPfad.Text;
      Protocol := Local;
     end;

    LoginPrompt:= FALSE;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active:= TRUE;
    try
      Verbose := True;
      Options:= [IgnoreLimbo,NonTransportable];
      BackupFile.Add(ED_Sicherungspfad.Text);
      ServiceStart;
    finally
      Active:= FALSE;
    end;
  end;
end;

mfg