UNC-Pfade und die Prüfung/Berechtigung

[TheProfi]

Moin,

hab folgendes Problem.
Ich möchte gerne in einem Edit UNC-Pfade eingeben und diese auf Existens prüfen. Dabei könnte es sein, dass diese Netzwerkressource noch nicht verbunden, bzw. nicht die Berechtigungen vorhanden sind.

Beispiel: \\Servername oder \\Servername\<Freigabe>

Diese Eingabe soll nun geprüft werden, wenn man Return drückt.

1. Gibt es den Server schon
2. Habe ich die Rechte dafür, wenn nicht, dann Dialog zur Eingabe von Benutzername und Passwort (wie im Explorer)

Hintergrund ist, das die Kunden schneller einen UNCPfad eingeben können als es sich durch eine ShellExplorerSicht zu klicken...
Mit meiner lösung kann man rudimentär die Eingaben prüfen. ich damit aber nicht prüfen ob eine Netzwerkverbindung besteht, ob Rechte angefordert werden müssen, etc.

Delphi-Quellcode:

procedure TForm3.ePfadKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if Key = vk_return then
   begin
      if TPath.IsUNCPath(ePfad.Text) then
      begin
         if directoryexists(ePfad.Text) then
         begin
            cxShellListView1.path := ePfad.Text;
         end
         else
            showmessage('not found');
      end
      else
         showmessage('kein gültiger UNC Pfad');
   end;

end;

Gibt es dafür APIs, Delphilösungen?

[Luckie]

Das sind drei Schritte:
1. Prüfen, ob der Server erreichbar ist
2. Prüfen, ob es den Pfad gibt. Das kann man eventuell mit FileExists machen. Bin mir aber nicht sicher, ob die API auch UNC Pfadangaben annimmt.
3. Berechtigungen prüfen. Dass sollte mit dieser Funktion gehen: http://michael-puff.de/Programmierun...leAccess.shtml

[TheProfi]

Hi Luckie,

jo fast...

Ich möchte eigentlich nur auf Server und/oder Server\Verzeichnis prüfen. Wenn der Server oder das Verzeichnis ok ist, befülle ich dann den Ininitalpfad für die Shell.

\\servername
\\192.168.44.1
\\servername\<freigabe> oder verzeichnis
\\192.168.44.1\<freigabe> oder Verzeichnis

die CheckAccessToFile prüft nur Dateien und bei UNC und IP ist das Ergebnis immer False.

0. die quasi korrekte Eingabe checke ich mit if TPath.IsUNCPath(ePfad.Text) or TPath.DriveExists(ePfad.Text) then
1. Dann müßte die Prüfung kommen ob der Server mit den Benutzerrechten erreichbar ist und ob eine Authorisierung notwendig ist...
Wenn man im Explorer einen UNC Pfad einträgt und keine Netzwerkverbindung existiert, schmeisst der Explorer einen Verbindungsdialog raus, wo man sich mit Benutzer und PW anmelden muss... mir würde es reichen das eine Info kommt, das keine netzwerkverbindung existiert...
2. Dann kann ich prüfen ob der Verzeichnispfad existiert. Den Rest macht die Shell..