Datenbankpath aus der Registry lesen!

[Christian Seehase]

Moin m-werk,

dann will ich die Punkte noch mal ausführlicher beschreiben:

1. Du hattest geschrieben REG.OpenKey(....,true).
   Da der Pfad aber existieren muss, macht das true keinen Sinn, denn damit gibst Du ja an, dass der Key erzeugt werden soll wenn er noch nicht existiert. Dies muss er aber. Also wäre es schon mal sinnvoll REG.OpenKey(....,false) zu schreiben.
   Sollte REG.OpenKey(....,false) schiefgehen, konnte der Key nicht geöffnet werden. Geht REG.OpenKey(....,true) schief, konnte er weder geöffnet noch erzeugt werden.
   Ein else Zweig, der dies Abfängt (unabhängig davon, ob true oder false)
   
   
   Code:

   if REG.OpenKey('Software\Arius\SettingsDB', True) then 
   begin 
     a:=REG.ReadString('DBPath'); 
   end
   else
   begin
     MessageBox(self.Handle,PChar(SysErrorMessage(GetLastError)+#13#10+'Wert: '+GetLastError),'FEHLER',MB_ICONERROR or MB_OK);
     // Programm geordnet beenden
   end;

   könnte da schon weiterhelfen. Die Meldung zeigt jetzt nur den Systemfehlertext und den Fehlercode an, für den Fall, das REG.OpenKey schiefgeht.
   Da nicht immer sichergestellt ist, dass ein User auch Schreibberechtigungen hat wäre es besser mit REG.OpenKeyReadOnly zu arbeiten.
   
2. Ist die erste Klippe, REG.OpenKey, umschifft, kommt die nächste:
   
   
   Code:

   begin 
     try
       a:=REG.ReadString('DBPath'); 
     except
       // MessageBox wie oben
       // Programm geordnet beenden
     end;
   end

   Es ist ja nicht auszuschliessen, dass das Auslesen des Wertes nicht klappt.
   
3. So, wenn bis jetzt alles gutgegangen ist, könnte es ja nun aber auch sein, dass jemand unfreundlicher Weise die Datenbank inzwischen gelöscht hat, oder den Pfad umbenannt.Jetzt fehlt noch eine Abfrage, ob denn nun der Pfad überhaupt noch existiert, so dass das Konstrukt besser so aussehen sollte
   
   Code:

   begin 
     try
       a:=REG.ReadString('DBPath');
       // Unit Filectrl mit einbinden
       if not DirectoryExists(a) then
       begin
         // MessageBox wie oben
         // Programm geordnet beenden
       end;
     except
       // MessageBox wie oben
       // Programm geordnet beenden
     end;
   end

Also gesamt:

Code:

begin 
  inherited Create;
  REG:=Tregistry.create; 
  try 
    REG.RootKey := HKEY_CURRENT_USER; 
    // eventuell noch folgende Zeile, damit ausschliesslich Lesezugriff angefordert wird
    // das vermeidet Probleme mit Zugriffsrechten unter 2000ff
    REG.Access  := KEY_READ;
    if REG.OpenKeyReadOnly('Software\Arius\SettingsDB') then 
    begin 
      try
        a:=REG.ReadString('DBPath'); 
        if not DirectoryExists(a) then
        begin
          MessageBox(self.Handle,PChar(SysErrorMessage(GetLastError)+#13#10+'Wert: '+GetLastError),'FEHLER',MB_ICONERROR or MB_OK);
          // Programm geordnet beenden
        end;
      except
        MessageBox(self.Handle,PChar(SysErrorMessage(GetLastError)+#13#10+'Wert: '+GetLastError),'FEHLER',MB_ICONERROR or MB_OK);
        // Programm geordnet beenden
      end;
    end
    else
    begin
      MessageBox(self.Handle,PChar(SysErrorMessage(GetLastError)+#13#10+'Wert: '+GetLastError),'FEHLER',MB_ICONERROR or MB_OK);
      // Programm geordnet beenden
    end;
  finally 
    FreeAndNil(REG);
  end; 
.....

Die Texte in den Messageboxen sind natürlich nur Vorschläge. Zum Testen ausreichend, aber für einen Anwender sollten sie denn doch aussagekräftiger ausfallen.