Discussion :

[Just-Soft]

Salut

Je dois garder le chemin du fichier que je sélectionne via le composant OpenDialog mais je veux que le chemin soit toujours comme si j'accède à un poste réseau comme ceci :

\\PC-DEM-HADRI\PARTAGE\COMPTE RENDU DE MISSION.DOCX

Or si je parcours le DD local il me donne p.e ça :

C:\USERS\MAGIC\DESKTOP\DQE _BRANCHEMENT RS.ASSAINISS (CORRIGÉ, ZONE CHLEF).DOC

La confusion se prête quand j'installe mon application sur un autre poste, le chemin du second exemple pointe sur le disque dur local or que c'est faut alors le fichier n'est pas trouvé.

Je trouve que la meilleure façon est de forcer le chemin selon l'exemple 1 même si je suis en mode "monoposte" d'où ma question :
comment puis-je ajouter le nom du pc et formater mon chemin comme si je parcourais les postes du réseau ? y'a-t-il une fonction toute prête ?

je suis sous Delphi 2009.

Merci par avance.

[ShaiLeTroll]

Tu veux conserver le chemin UNC
Il existe une vieille fonction ScUNCFromLocalPath dans le API windows et une fonction plus moderne WNetGetUniversalName

Bonne Lecture !

[Just-Soft]

Tu veux conserver le chemin UNC
Il existe une vieille fonction ScUNCFromLocalPath dans le API windows et une fonction plus moderne WNetGetUniversalName

Bonne Lecture !

Merci Shai

• la vieille fonction agit comme ExpandFileName en local donc c'est pas ce que je souhaite
• l'autre fonction, en local, génère une l'erreur suivante

  cette connexion réseau n'existe pas

  évidemment puisque je suis en mode monoposte alors comment puis-je contourner le problème. voici le code que j'ai utilisé (je l'ai copié du net )
  
  

  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
  function TfmMain.GetUNCName(const LocalPath: string): string;
  var
    BufferSize: DWord;
    DummyBuffer: Byte;
    Buffer: Pointer;
    Error: DWord;
  begin
    BufferSize := 1;
    WNetGetUniversalName(PChar(LocalPath), UNIVERSAL_NAME_INFO_LEVEL, @DummyBuffer, BufferSize);
    Buffer := AllocMem(BufferSize);
    try
      Error := WNetGetUniversalName(PChar(LocalPath), UNIVERSAL_NAME_INFO_LEVEL, Buffer, BufferSize);
      if Error <> NO_ERROR then
        begin
          SetLastError(Error);
          RaiseLastWin32Error;
        end;
      Result := PUniversalNameInfo(Buffer)^.lpUniversalName
    finally
      FreeMem(Buffer);
    end;
  end;