DirectoryExists im Netzwerk will nicht wie ich

[Marco Steinebach]

Hallo zusammen,
Ausgangssituation: ich habe eine VPN-Verbindung zu einem anderen PC und ein gemaptes Laufwerk.
Mein Programm soll mittels
DirectoryExists ('n:\blabla')
herausfinden, ob das Verzeichnis auf dem Netzwerk-Laufwerk erreichbar ist.
Das gibt aber nix, da DirectoryExists immer false zurückliefert.
Rufe ich den Explorer auf, gehe auf das Laufwerk und in das gewünschte Verzeichnis hinein, und starte anschließend mein Programm, ist alles schön.
Ich hab mich zwar schon durchgegooglt, und auch schon gefunden, daß ich nicht der einzige bin, aber kann mir vielleicht jemand sagen
1. warum das so ist
und wie man
2. verhindern kann, daß man erst mit dem Explorer in das Verzeichnis gehen muß, damit das Programm funktioniert?

Für Hilfe wäre ich echt dankbar.
Herzlich grüßt
Marco

[hathor]

Delphi 5 Standard...naja...
http://www.delphipraxis.net/1222644-post11.html
...in XE2 ist die Funktion wesentlich umfangreicher.

[Bernhard Geyer]

Der Windowsexplorer wird hier im Hintergrund einen Logon bzw. ein Connect auf ein im Moment nicht verbundenes LW durchführen. Diesen Connect müsstest du nachimplementieren.

[himitsu]

Vielleicht auch mal nachschauen ob, bzw. welchen ErrorCode das DirectoryExists zurück gibt?
Eventuell erfährt man da mehr, warum es nichts findet.

[roga]

Wie Bernhard bereits schrieb, über den Windows Explorer erfolgt das Login automatisch. Ich habe auch eine Weile nach einer Lösung gesucht:

Delphi-Quellcode:

function ConnectToNetwork(NetPath: WideString): DWORD;
var
  NetResource: TNetResourceW;
begin
  // Abschließendes "\" aus NetPath entfernen!
  if NetPath[Length(NetPath)] = '\' then Delete(NetPath, Length(NetPath), 1);
  ZeroMemory(@NetResource, SizeOf(TNetResource));
  with NetResource do
  begin
    dwType := RESOURCETYPE_ANY;
    lpLocalName := nil;
    lpRemoteName := PWideChar(NetPath);
    lpProvider := nil;
  end;
  Result := WNetAddConnection2W(NetResource, nil, nil, CONNECT_INTERACTIVE);
end;

Vorher wird noch geprüft, ob es sich um ein Netzwerkverzeichnis handelt:

Delphi-Quellcode:

if Copy(DBPath, 1, 2) = '\\' then
begin
  if ConnectToNetwork(DBPath) <> 0 then
    // keine Verbindung zum Netzwerkordner
  ...
end;

Ich hoffe, ich konnte Dir weiterhelfen.

roga

[Dejan Vu]

Zitat von Marco Steinebach:

...eine VPN-Verbindung zu einem anderen PC

Zitat von hathor:

Über alle USB Anschlüsse iterieren, um ein bestimmtes Gerät zu finden

Wer lesen kann, ist klar im Vorteil.

Zitat von hathor:

Delphi 5 Standard...naja...

Kann man mit dem modernsten Delphi das Problem besser lösen?
So mancher Beitrag ...naja...

[Sir Rufo]

Zitat von Dejan Vu:

Wer lesen kann, ist klar im Vorteil.

Den darfst dir selber als heutiges Tagesmotto auf den Bildschirm kleben

In dem explizit verlinkten Beitrag des Themas wird die aktuellste Version von DirectoryExists gezeigt (aus Delphi XE2). Die arbeitet etwas zuverlässiger.

Allerdings wird diese Funktion alleine es nicht schaffen die Verbindung herzustellen genau wie die andere Funktion es nicht schaffen wird, denn es handelt sich ja um ein gemapptes Laufwerk und da bringt ein Test auf '\\' am Anfang des Pfads irgendwie nichts.

Es braucht dort noch ein wenig mehr

[DeddyH]

Man müsste aber doch mit GetDriveType etc. herausfinden können, ob es sich um ein Netzlaufwerk handelt, dessen UNC-Pfad ermitteln und dann versuchen, sich zu verbinden, oder?

[p80286]

Zitat von Dejan Vu:

Zitat von Marco Steinebach:

...eine VPN-Verbindung zu einem anderen PC

Zitat von hathor:

Über alle USB Anschlüsse iterieren, um ein bestimmtes Gerät zu finden

Wer lesen kann, ist klar im Vorteil.

Da kann ich Dir nur zustimmen, die Überschrift ist ein wenig irreführend.

Aber davon abgesehen, gibt es zwei Arten von Netzlaufwerken?
Ich kenne Sie nur als h:\...z:\ und die sind verfügbar oder gar nicht vorhanden. Das beschriebene Verhalten kenne ich nur von Diskettenlaufwerken (oder Wechselplatten).

Gruß
K-H

[himitsu]

Zitat von Sir Rufo:

In dem explizit verlinkten Beitrag des Themas wird die aktuellste Version von DirectoryExists gezeigt (aus Delphi XE2). Die arbeitet etwas zuverlässiger.

Allerdings wird diese Funktion alleine es nicht schaffen die Verbindung herzustellen genau wie die andere Funktion es nicht schaffen wird, denn es handelt sich ja um ein gemapptes Laufwerk und da bringt ein Test auf '\\' am Anfang des Pfads irgendwie nichts.

Es braucht dort noch ein wenig mehr

Wobei genaugenommen das DirectoryExisits doch eigentlich richtig funktioniert.
"Im Moment ist dieser Pfad nicht existent" ... Ob er das wäre, nachdem man das Netzlaufwerk verbindet, ist eine andere Angelegenheit.

Wenn man direkt das Rootverzeichnis prüft, as kommt da denn bei raus?


Wer kennt noch die Geschichte "Meister, wie kann ich prüfen, ob der Computer mit dem Internet verbunden ist?" ?