Discussion :

[SergioMaster]

Bonjour,

avant de chercher un contournement via mes données est-il possible d'obtenir le chemin complet d'un fichier à partir d'un chemin réseau ?

par exemple :
serveur = nom du poste (adresse ip 192.168.1.10)
images = un répertoire partagé, pas forcément à la racine par exemple D:\Shared\Images
objectif : récupérer à partir de \\Serveur\images\log\monlogo.jpg -> \\192.168.1.10\D:\Shared\Images\log\monlogo.jpg

ExpandUNCFileName('\\Serveur\images\log\monlogo.jpg') me renvoi la même valeur
si je sais comment récupérer l'ip de serveur (gethostbyname) comment faire pour le reste ?

[ShaiLeTroll]

ExpandUNCFileName cela se limite aux informations locales I:\log\monlogo.jpg en \\Serveur\images\log\monlogo.jpg parce que localement tu as monté le lecteur I: sur le chemin \\Serveur\images
C'est juste une résolution locale comme le ferait "net use" en ligne de commande

C'est un peu limite en terme de sécurité de connaitre la structure interne du serveur
Si je partage un dossier Bidule, je n'ai pas forcément envie que l'on sache depuis l'extérieur que c'est dans \\a.b.c.d\C:\Truc\Machin\Chose\Bidule
Pour une question de droits, si tu as accès au partage Bidule, je ne vois pas en quoi tu aurais de savoir où est Bidule et d'obtenir l'arborescence

imagine que cela soit derrière ton partage un serveur Samba sur Linux, tu pourrais toujours rêver pour en récupérer le chemin

[fbalien]

Bonjour SergioMaster

pour le détail du partage tu as NetShareGetInfo avec le niveau 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 _SHARE_INFO_2 = record
    shi2_netname: LPWSTR;
    shi2_type: DWORD;
    shi2_remark: LPWSTR;
    shi2_permissions: DWORD;
    shi2_max_uses: DWORD;
    shi2_current_uses: DWORD;
    shi2_path: LPWSTR;
    shi2_passwd: LPWSTR;
  end;
 
  PSHARE_INFO_2= ^_SHARE_INFO_2;
 
function NetShareGetInfo(servername: LPWSTR;netname : LPWSTR;level: DWORD;buf: pSHARE_INFO_2) : longword; stdcall;external 'netapi32.dll';

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function PartageToChemin(strServeur : string ; strPartage : string ; var strChemin : string) : boolean;
 
//  ___________________________________________________________________________
// | Function  PartageToChemin                                                 |
// |___________________________________________________________________________|
// |  Permet de trouver le chemin d'un partage sur un serveur                  |
// |___________________________________________________________________________|
// | Entrée | strServeur : string                                              |
// |        |   nom du serveur sur le quel faire l'operation                   |
// |        | strPartage : string                                              |
// |        |   Nom du partage                                                 |
// |________|__________________________________________________________________|
// | Sortie | Result : boolean                                                 |
// |        |   Vrai si ok          |
// |        | var strChemin : string                                           |
// |        |   Chemin du partage                                              |
// |________|__________________________________________________________________|
 
var
  Share: PSHARE_INFO_2;
begin
  result := false;
  strChemin := '';
  erreur := NetShareGetInfo(PWideChar(WideString(strServeur)) ,
                        PWideChar(WideString(strPartage)) ,2,@share);
  result := erreur =0;
  strChemin := share^.shi2_path ;
end;

[ShaiLeTroll]

Sur mon Partage "Albums", cela m'a bien retourné "C:\Shai\MP3\Albums"
Sur un vrai Serveur, Erreur N°5 : ERROR_ACCESS_DENIED
Sur un Partage "Divers" sur un poste d'un collègue, Erreur N°5 : ERROR_ACCESS_DENIED
C'est rassurant que cela soit protégé !

Ne pas oublier le NetApiBufferFree(@share) et la gestion de l'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function NetShareGetInfo(servername: LPWSTR;netname : LPWSTR;level: DWORD;buf: pSHARE_INFO_2): DWORD; stdcall; external 'netapi32.dll';
function NetApiBufferFree(buf: Pointer): DWORD; stdcall; external 'netapi32.dll';
 
function PartageToChemin(const AServeur : string; const APartage: string ; out AChemin: string): Boolean;
var
  res: DWORD;
  BufPtr: PSHARE_INFO_2;
begin
  res := NetShareGetInfo(PChar(AServeur), PWideChar(APartage), 2, @BufPtr);
  if res = ERROR_SUCCESS then
  begin
    Result := True;
    AChemin := BufPtr^.shi2_path;
    NetApiBufferFree(BufPtr);
  end
  else
  begin
    Result := False;
    AChemin := IntToStr(res);
  end;
end;

[SergioMaster]

@ShaiLeTroll on est d'accord pour la sécurité c'est pas top, mais l'objectif est surtout de contourné le problème le temps de mettre en place un colonne/ un paramètre ad-hoc au niveau de l'application. Actuellement, je ne peut faire tourner le programme sur le "serveur"
@fbalien merci

[ShaiLeTroll]

@Sergio,
J'ai remis un peu en forme PartageToChemin de fbalien pour gérer le retour d'erreur et la libération
cela fonctionne bien si l'on a les droits, si tu es administrateur de ton serveur, tu pourrais peut-être te débrouiller pour te donner les droits qu'il faut !

Si tu as la JEDI Windows API (JWA), tu trouveras la déclaration dans JwaLmShare

[fbalien]

merci ShaiLeTroll pour la mise en forme
Apres il est toujours possible d'utiliser juste avant
l'api LogonUser avec l'option LOGON32_LOGON_NEW_CREDENTIALS
puis un RevertToSelf

[SergioMaster]

Bonjour,

merci de votre intérêt a tous les deux.
étrangement, impossible de tester cette affaire avec mes deux postes, l'un en Vista PC-de-MASTER et l'autre en W10, celui qui teste. Cela ne vient pas de la fonction, mais de mon réseau, il m'est impossible de créer un raccourci réseau sur le poste Vista (problème de nom de poste ou de mauvais partage je vais investiguer)
Toutefois, prenant en compte les problèmes de sécurités que cela impliquait, je suis en train de

mettre en place un un paramètre ad-hoc au niveau de l'application.

en fait deux lignes dans une table.
du coup je n'utilise plus que la fonction PathisUNCServerShare pour savoir si le chemin récupéré est un chemin de partage et faire le nécessaire (construire le chemin à partir de mes données) uniquement en cas de besoin (si j'exécute sur le poste qui partage ces fichiers). Solution pas exceptionnelle mais, sauf à modifier la structure de certaines tables et une dizaines de programmes, la plus simple. (J'en prendrai compte lors du développement de la prochaine version

[SergioMaster]

Finalement PathisUNCServerShare n'est pas adapté
en effet si quelque chose comme \\Serveur\dossier renvoi true, ce n'est pas le cas de \\serveur\dossier1\dossier2.
Du coup je me suis penché sur les expressions régulières

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
var RegEx : TRegEx;
begin
RegEx.Create('^(?:[\\]{2}[^\\]*){1}(?:\\[^\\:]*)+$');
if RegEx.IsMatch(FdEnteteIMAGELOGO.AsString)
then
 begin
  ..
 end

l'expression n'est pas une expression "complète" de validation d'un chemin UNC windows, me permet juste de tester
\\serveur >> faux
\\serveur\lalet\test.txt >> vrai
\\192.168.0.1\lalet\test.txt >> vrai
\\192.168.0.1\C:\lalet\test.txt >> faux
\\192.168.0.1\C:\ >> faux