Pfad des Alias einer Datenbank ermitteln.

[Jens Hartmann]

Über eine Backup Komponente der ich den Backuppfad angeben muss.

Delphi-Quellcode:

procedure TfDBSave.btnSaveTestClick(Sender: TObject);
var
  FormCaption : string;
begin
  try
    FormCaption := Caption;
    Caption:= 'Backup läuft !';
    try
      with ibBackUpPSSecur do
      begin
        ServerName:= 'LOCALHOST';
        Params.Add('user_name=SYSDBA');
        Params.Add('password=masterkey');
        LoginPrompt := False;
        Active:= True;
        try
          Verbose:= False;
          Options:= [];
          DataBaseName:= 'PSSecur';
          BackupFile.Clear;
          BackupFile.Add(edtExeName.Text+'\PSSecurdat.bak');
          ServiceStart;
        finally
          Active:= False;
        end;
      end;
    finally
      Caption:= FormCaption;
    end;
  finally
    ibBackUpPSSecur.Active := False;
  end;
end;

Ich weiß, das gefällt einigen auch nicht mit Interbase und Firebird, aber es funtioniert sehr gut.

Gruß Jens