Tatsächlicher Status eines Netzlaufwerks prüfen

[mobed]

Guten Tag zusammen.

Ich habe da mal eine Frage.
Ich bast'le momentan an einem Progamm, dass mir Updatedateien von (m)einem Fileserver (samba) auf die lokale Festplatte kopiert. Dabei arbeite ich mit Netzlaufwerken (sind für das tägliche Arbeiten einfach bequemer und somit vorhanden).
Nun zu meinem Problem.
Ich habe neben den "normalen" Netzwerkclients mit Kabel auch einige W-Lanclients. Das Problem ist, dass mir die Netzlaufwerk als "aktiv" (ohne rotes Kreuzchen) im Explorer angezeigt werden, aber wenn ich eine Einstellungsdatei (Textfile) aus meinem Programm heraus öffnen möchte, funktioniert das nicht.
Erst wenn ich im Explorer das Netzlaufwerk doppelklicke funktioniert auch das öffnen der Einstellungsdatei.

Wie kann ich das Laufwerk prüfen ob es wirklich online/aktiv ist, bzw. den tatsächlichen Status prüfen? Oder wie kann ich die eigentlich schon bestehende Verbindung "aktivieren"?

Leider habe ich mit der Suchfunktion keine Lösung für mein Problem gefunden


Mfg
mobed

[Christian Seehase]

Moin mobed,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Als Betriebssystem wirst Du wahrscheinlich XP einsetzen, und hierbei die Standardeinstellungen für das Netzwerk-Timeout verwenden.
Standardmässig trennt XP nach 15 Minuten die Verbindung, und stellt sie, bei Bedarf, wieder her. Unter 2000 war das zwar auch schon so, aber hier wurde ein getrenntes Laufwerk wenigstens als getrennt markiert.

Womit versuchst Du denn auf die Datei zuzugreifen?

[mobed]

Tag auch,

wow geht das schnell hier. :thumb:

Ich versuche wie folgt auf die Datei zu zugreifen:

Delphi-Quellcode:

AssignFile(SETFILE, 'settings.txt');
{$I-}
Reset(SETFILE);
{$I+}

IF IOResult<>0 then
Begin
  Action;
End
else
Begin
  Action;
End;

Wenn der IO-Handle 0 zurück gibt, lese ich mir im Elszweig die Einstellungen in die entsprechenden Variablen und lasse das Programm weiter laufen.
Wenn der IO-Handle nicht 0 zurück gibt, gebe ich im Hauptfenster eine Fehlermeldung aus.

Ich muss dazu sagen, ich bin delphi- und Pascalanfänger und habe es "nur" in der Hochschule mal ein Semester gehört und ein paar kleinere Anwendungen gebastelt.

Und ja, du hast recht ich benutze xp mit den Standard einstellungen für die Netzlaufwerke zu meinem samba-server.

Schon eine Idee?

Mfg
mobed

[mobed]

Schade, keine Vorschläge? Ideen? Fragen? :cry:

Na ja, vielleicht am Wochenende.

[Klaus01]

Guten Morgen,

wenn ein Prüfung auf DirectoryExists nicht funktioniert
kannst Du es auch mit API Mitteln versuchen den Status zu ermitteln.

Grüße
Klaus

[shmia]

Zitat:

Zitat von mobed

Schade, keine Vorschläge? Ideen? Fragen? :cry:
Na ja, vielleicht am Wochenende.

Oder kurz vorher ;-)
Ich habe festgestellt, dass wenn man mit VBScript die Dateien abruft

Code:

   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(path)

dass dann das Netzlaufwerk wieder verbunden wird.
Also ist meine starke Vermutung dass man mit FindFirst und FindClose das Betriebssystem veranlassen muss, das Netzlaufwerk wieder zu aktivieren.
Bitte lass es mich wissen, ob das funktioniert hat.

[mobed]

Hi,

danke erst mal.
Ich werde es heute im Lauf des Tages mal testen.
Ich bin kein so großer Programmierer aber ich denke ich bekomme es hin.

Mfg
mobed

[mobed]

Hi,

leider hat es bis jetzt nicht funktioniert. :cry:
Mein code sieht wie folgt aus:

Delphi-Quellcode:

if (FindFirst('X:\*.st', faAnyFile, sr) = 0) then
Begin
  FindClose(sr);
  <do something>;
End
else
Begin
  FindClose(sr);
  <do something else>;
End;

Habe ich einen Denkfehler drin? Oder einen falschen Ansatz?
Unrer C habe ich es mal geschafft, mit "Gewallt" das Laufwerk zu verbinden.
Dazu habe ich eine Textdatei mit einem execute-Befehl durch den Explorer öffnen lassen. :wall:
Die Holzhammermethode hat aber auch zu Problemen geführt, wenn Tatsächlich keine Verbindung bestand. :kotz:

Noch Ideen?

Mfg
mobed

[mobed]

*~*~* Hochholen *~*~*