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)

[Jeankiki]

Salut JP.Nuage,

Tu devrais essayer le code suivant

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
 
var
  sr: TSearchRec;
begin
  if FindFirst('\\LABTOP\DEDE\*.*', faAnyFile, sr) = 0 then
  begin
    repeat
      if not((sr.Name = '.') or (sr.Name = '..')) then
      begin
        if sr.Name = 'GERLOC.FDB' then
          ShowMessage(sr.Name);
      end;
    until FindNext(sr) <> 0;
  end;
  FindClose(sr);
end;

Cependant, fait attention à la CASSE, il semblerait que FindFirst y soit sensible.
Je viens de faire un test sur un fichier et si je mets tout en majuscule alors qu'il y a des minuscules dans le nom, il ne le trouve pas

Jeankiki

[JP.NUAGE]

J'ai essayé le code fort aimablement proposé par Jeankiki. J'ai vérifié que tout était en majuscules, je vois bien le fichier par l'explorateur Windows. J'ai fait l'essai avec PORTABLE, LABTOP (NomNetBios) et 192.168.1.12, après vérification grâce à IPSCAN32 des noms et des adresses.

RIEN

Je ne rentre même pas dans la boucle de recherche du nom. Seule chose qui a attiré mon attention : lors de l'essai avec LABTOP, le temps de recherche est, me semble-t-il, un peu plus long.

A désespérer !

[Jeankiki]

Salut,

Ou alors tu as un problème de droit sur le dossier ou un firewall qui bloque. As-tu déja essayé de mettre les fichiers en question dans un dossier en local sur ton pc afin de voir s'il trouve le fichier ?
Ne pourrais-tu pas nous donner la partie de code exacte que tu utilises afin d'y voir plus claire.

Jeankiki

[Linkin]

As-tu le même résultat en lançant une recherche Windows correspondante au filtre que tu a mis?

[JP.NUAGE]

Pas de problème je mets le code. Je précise que par l'explorateur WINDOWS je vois le fichier. Par IBExpert ou Flamerobin j'accède à la base. Par mon programme je peux aussi accéder à la base. Je viens de vérifier que je peux la traiter. Je me suis aussi assuré en lui donnant un nom unique sur le réseau que je ne lisais pas une base ayant le même nom mais en local (adresse mal codifiée par exemple). Pour le test ce n'est pas celle qui est ouverte par le programme.

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
procedure TFRM_Accueuil.FormShow(Sender: TObject);
var
   xDate1, xDate2 : String;
   xExiste1, xExiste2 : Boolean;
   xInfo : TSearchRec;
begin
 
   xDate1 := '\\LABTOP\DEDE\GERLOC.FDB';       
   xDate2 := '\\192.168.1.12\DEDE\GERLOC.FDB';    
   xExiste1 := FindFirst(xDate1,faAnyFile,xInfo)=0;
   xExiste2 := FindFirst(xDate2,faAnyFile,xInfo)=0;
   FindClose(xInfo);
   if (not xExiste1) and (not xExiste2) then
      begin
         ToolBar1.Visible := false;
         NouveauDossier.Enabled := false;
         DossierEncours.Enabled := false;
      end;
 
end;

Et dans ce code xExiste1 et xExiste2 sont toujours à false. L'adresse 192.168.1.12 est bonne : vérifiée et c'est par elle que j'accède à ma base. La base GERLOC est dans le même répertoire que la base qui me sert pour le programme (\\192.168.1.12\DEDE)

[Jipété]

Salut.

Mon grain de sel (bon, je vais peut-être dire une grosse bêtise, mais qui ne tente rien...)
Extrait de l'aide Delphi sur FindFirst :

FindFirst renvoie 0 si un fichier a été localisé avec succès

Donc dans ton code, xExiste1 := 0 donc False si FindFirst trouve le fichier...

Moi j'aurais fait

Code :

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

if FindFirst(xDate1,faAnyFile,xInfo)=0 then xExiste1 := True;

Revois le code de Jeankiki...

[SergioMaster]

Donc dans ton code, xExiste1 := 0 donc False si FindFirst trouve le fichier...

Moi j'aurais fait

Code :

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

if FindFirst(xDate1,faAnyFile,xInfo)=0 then xExiste1 := True;

non , XExiste1 est bien égal a True si FindFirst=0

Code :

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

1
2
3
4
5
 
 xExiste1 := (FindFirst(xDate1,faAnyFile,xInfo)=0);
// est la même chose que 
  if FindFirst(xDate1,faAnyFile,xInfo)=0 then xExiste1 := True
                                                             else xExiste1:=False     ;

notons que je mets des parenthèse en plus , mais ça ne change rien
autre chose dans ta proposition où il y a juste :=true , Xexiste1 ne sera pas forcément initialisé à false d'où l'utilisation du else .

bon, je vais faire un gros effort physique , brancher un hub et démarrer mon vieux pc pour tester ça !

[EDIT] 7h55
ma mousse ? pour l'effort

je viens de tester ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
var fr : TSearchRec;
    existe : Boolean;
begin
if FileExists('\\192.168.0.10\bad\gerloc.fdb') then showmessage('Existe');
existe:=FindFirst('\\192.168.0.10\bad\gerloc.fdb',faAnyFile	,fr)=0;
if existe then showmessage('Existe Aussi');
FindClose(fr);
end;

et les deux avec succès

donc ? quelle particularités as tu ?

[JP.NUAGE]

Bon ENFIN la solution ! Je vais essayer d'être clair et de rendre à chacun ce qu'il a apporté ! Mais d'abord merci à tous

A) evarisnea a raison avec une précision : le chemin doit être partagé JUSQU'AU REPERTOIRE. Mon disque était bien partagé, mais pas assez.....si j'utilise la codification

Code :

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

\\192.168.1.12\REPERTOIR\BASE.FDB

B) Cl@udius peut dormir tranquille : il n'est pas nécessaire de partager le répertoire de la base de donnée à condition de codifier (Merci à SergioMaster) comme suit :

Code :

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

\\192.168.1.12\c\REPERTOIRE\BASE.FDB

mais dans ce cas, le C doit être partagé !

Remarque : il n'y a pas les : sinon ca ne passe pas

Et comme l'a dit Sergio Master ceci fonctionne aussi bien par FileExiste que par FindFirst

[SergioMaster]

petite erreur de ta part , si tu partage C:\ ainsi que les sous répertoires
alors la base peut toujours être détruite et Cl@udius a raison ,
une Base de Donnée en réseau ne devrait pas se trouver dans un répertoire partagé