Discussion :

[JP.NUAGE]

Bonjour à toutes et à tous

Envoyé par Linkin en février :
FindFirst gère le \\ordi\dir\...

J'ai essayé :

Code :

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

1
2
3
4
\\MAITRE\REPERTOIRE\BASE.FDB
\\MAITRE\C:\REPERTOIRE\BASE.FDB
\\192.168.1.xx\REPERTOIRE\BASE.FDB
\\192.168.1.xx\C:\REPERTOIRE\BASE.FDB

et aucun ne me permet de savoir si la base existe.

[qi130]

Ca dépend peut-être de la version de Delphi

[Jeankiki]

Salut,

Heu, pardon, je n'ai peut être pas suivi depuis le début. Mais tu veux dire que tu n'arrives pas a trouver le fichier avec un chemin réseau en utilisant un FindFirst?

[Linkin]

Avec ce code sous Delphi 7, je n'ai pas de souci:

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
 
var
  lSearchRecord : TSearchRec;
  lResultat : Integer;
  lFileName: String;
begin
      lResultat := FindFirst('\\Serveur\Documents\test.jpg',faAnyFile,lSearchRecord);
 
      while lResultat = 0 do
      begin
        if (lSearchRecord.Attr and faDirectory) <= 0 then
        begin
            lFileName := lSearchRecord.Name;
        end;
        lResultat := FindNext(lSearchRecord);
      end;
      SysUtils.FindClose(lSearchRecord);

Mais si c'est un fichier unique un FileExists devrait suffire, non?

[evarisnea]

J'ai essayé :

Code :

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

1
2
3
4
\\MAITRE\REPERTOIRE\BASE.FDB
\\MAITRE\C:\REPERTOIRE\BASE.FDB
\\192.168.1.xx\REPERTOIRE\BASE.FDB
\\192.168.1.xx\C:\REPERTOIRE\BASE.FDB

et aucun ne me permet de savoir si la base existe.

il faut aussi s'assurer que le chemin soit partagé

[Cl@udius]

Salut

il faut aussi s'assurer que le chemin soit partagé

A la lecture de ce thread c'est bien ce qui me dérange.
Le dossier dans lequel sont placés tes bases de données n'est pas censé être partagé, surtout pas. Imagine qu'un utilisateur supprime accidentellement une BDD.

Quelle est la finalité de ce FindFirst ? Si c'est uniquement pour s'assurer de la présence de la base, une simple tentative de connexion fera l'affaire.

@+ Claudius

[JP.NUAGE]

Et bien, j'ai du boulot pour répondre !

1) A Jeankiki : exact, je n'arrive pas à trouver de fichier
2) A Linkin : merci pour la réponse, je vais essayer ton code
3) A Cl@udius : c'est pour savoir si le fichier existe, en effet, mais ce n'est pas vraiment une base, c'est un backup. Je ne pense donc pas qu'un essai de connexion fasse l'affaire
4) A evarisnea : toujours pas de flamboyants ? ( C'est un petit clin d'oeil)
Et enfin
5) A qi130 : D7 est ma version !

Merci à tous, je teste avant de clore

[evarisnea]

3) A Cl@udius : c'est pour savoir si le fichier existe, en effet, mais ce n'est pas vraiment une base, c'est un backup. Je ne pense donc pas qu'un essai de connexion fasse l'affaire

ça pourrait faire l'affaire tu sais, car l'erreur remontée lorsque le fichier n'existe pas :

Unsuccessful execution caused by a system error that precludes
successful execution of subsequent statements.
I/O error for file "C:\FichierQuiNExiste.Pas".
Error while trying to open file.
Le fichier spécifié est introuvable.

est différente de celle remontée lorsque le fichier n'est pas une base de donnée valide :

Connection authorization failure.File C:\FichierNonBDFirebird.XXX is not a valid database.

ce qui prouve qu'on peut savoir si oui ou non un fichier existe en essayant de s'y connecter.

4) A evarisnea : toujours pas de flamboyants ? ( C'est un petit clin d'oeil)

toujours pas


tu n'as pas répondu à la question de savoir si le chemin est partagé car je ne pense pas que FindFirst fonctionne sans partage ...

[JP.NUAGE]

Voilà mon code (je vous ai épargné les déclarations) :

PORTABLE est le nom du Poste SERVEUR, LABTOP est le nom qui apparaît entre parenthèses dans l'Explorateur windows

Code :

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

1
2
3
4
5
6
7
   xDate1 := '\\LABTOP\DEDE\GERLOC.FDB'; 
   xDate2 := '\\PORTABLE\DEDE\GERLOC.FDB'; 
   xDate3 := '\\192.168.1.12\DEDE\GERLOC.FDB';
   xExiste1 := FindFirst(xDate1,faAnyFile,xInfo)=0;
   xExiste2 := FindFirst(xDate2,faAnyFile,xInfo)=0;
   xExiste3 := FindFirst(xDate3,faAnyFile,xInfo)=0;
   SysUtils.FindClose(xInfo);

Dans ce test j'ai fait un essai avec une base Firebird

Tous les xExiste sont à false.

Je confirme que le chemin est partagé.

Je pingue sur 192.168.1.12, et bien sûr par programme, je me connecte à la base



Et sans vouloir vexer quiconque, tester l'existence par un test sur une erreur ne me satisfait pas beaucoup (mais celà est personnel)