Local ou Distant

Version imprimable

02/02/2016, 14h08
copain68

Local ou Distant

Bonjour,

Comment peut on connaitre la localisation d'un répertoire?

ex si je sélectionne un dossier sur une machine distante cela doit être écrit "Distant"
et si je le sélectionne sur mon disque local cela doit être écrit "Local"

Merci pour vos aides.
02/02/2016, 14h56
free07

Bonjour,

Je ne sais pas si j'ai bien compris la question mais un dossier distant se caractérise par son chemin UNC et ce chemin UNC commence par \\

Cela fait la différence avec un dossier local.

Voilà j'ai trouvé ma réponse a ma question et je vous la partage:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
if pos('\\', cxShellComboBox1.Text)<>0 then
 begin
    form1.dxStatusBar1.Panels[2].Text:='Distant';
    form1.dxStatusBar1.Panels[1].Text:=cxShellComboBox1.Text;
 end
 else
 begin
   form1.dxStatusBar1.Panels[2].Text:='Local';
   form1.dxStatusBar1.Panels[1].Text:=cxShellComboBox1.Text;
 end;
   application.processmessages;
end;

03/02/2016, 08h13
guillemouze

Attention, si tu as un lecteur reseau, son chemin sera par exemple Z:\ alors que c'est un dossier reseau
11/02/2016, 11h08
ApproxDev

Bonjour,

Citation:

Envoyé par guillemouze

Attention, si tu as un lecteur reseau, son chemin sera par exemple Z:\ alors que c'est un dossier reseau

Dans ce cas-là, tu utilises System.SysUtils.ExpandUNCFilename('Z:\'). Pour un lecteur local, tu obtiendras Z:\; Et pour un lecteur distant, tu obtiendras une adresse UNC du genre \\monserveur\monrep.

Cordialement.
11/02/2016, 13h44
Andnotor
Vous ne tenez toujours pas compte de tous les cas:
- un chemin local pourrait très bien être exprimé en UNC ;
- un chemin est limité à MAX_PATH à moins qu'il ne soit préfixé par \\?\ et un long chemin UNC par \\?\UNC\.
\\ ne signifie donc pas forcément distant ;)

Cela dit, il y a une API pour cela : GetDriveType
Code:

1 2 3 4 function IsRemotePath(aPath :string) :boolean; begin Result := GetDriveType(PChar(IncludeTrailingPathDelimiter(aPath))) = DRIVE_REMOTE; end;
Il pourrait encore être judicieux de traiter le cas des chemins relatifs (ExpandFileName).
11/02/2016, 14h45
ApproxDev

Oui, si vraiment on veut être exhaustif, il faut alors passer par les API Windows comme les Volume Management Functions & autres WNetGetConnection function. Et encore, je crois me rappeler que certains serveurs samba réservent des surprises.

De l'énoncé de la question posée, on peut supposer que les connexions sont ordinaires (et usuelles).

Cordialement.