La fonction FileExists fonctionnerait-elle à l'envers ?

Bonjour,

je suis en train de migrer doucement vers 64 bits, et ce n'est pas gagné, la preuve :

Code:

---

1 2 3 4 5 6

var Ini: TIniFile; begin Ini := TiniFile.Create(lowercase(ChangeFileExt(paramstr(0), '.ini'))); ShowMessage(Ini.FileName); // impeccable if not FileExists(Ini.FileName) then exit;

---

Vous avez compris, après le ShowMessage qui m'affiche une bonne valeur, la ligne suivante me fait sortir, donc FileExists retourne False et comment cela est-il possible ?
Il n'y a pas d'accents, pas d'espaces, pas de mix majuscules-minuscules, et le test échoue…

Une idée ? Une explication ?

Debian Buster 10.5, FPC 3.2, Laz 2.0.10

EDIT : c'était un problème de gestion de la casse du path du fichier, hé oui… /EDIT

Après des tests, il semblerait que le problème soit plutôt lié au TIniFile qu'à FileExists :

Code:

---

1 2 3 4

showmessage( p + ChangeFileExt(ExtractFileName(Application.ExeName), '.ini') + CRLF + ChangeFileExt(paramstr(0), '.ini') + CRLF + Ini.FileName);

---

Pièce jointe 577606

Code:

---

1 2 3

if not FileExists(p + ChangeFileExt(ExtractFileName(Application.ExeName), '.ini')) then exit; // OK if not FileExists(ChangeFileExt(paramstr(0), '.ini')) then exit; // OK if not FileExists(Ini.FileName) then exit; // KC

---

Et si je rajoute

Code:

---

1 2 3

showmessage(inttostr(length(p + ChangeFileExt(ExtractFileName(Application.ExeName), '.ini'))) + ' ' + inttostr(length(ChangeFileExt(paramstr(0), '.ini'))) + ' ' + inttostr(length(Ini.FileName)));

---

je vois simplement 54 54 54 -- j'espérais une différence, mais non.
Un truc de grand malade, l'informatique…

Citation:

---

Envoyé par Jipété

Après des tests, il semblerait que le problème soit plutôt lié au TIniFile qu'à FileExists

---

Confirmé en ajoutant ça :

Code:

---

1 2 3 4 5 6

myIni: string; begin Ini := TiniFile.Create(lowercase(ChangeFileExt(paramstr(0), '.ini'))); myIni := Ini.FileName; //... if not FileExists(myIni) then exit; // KC

---

Désolé pour le faux titre (bah, ça attirera les foules).

Plus qu'à remonter le bug, après confirmation sous Windows, si qqun veut bien s'y coller.

Citation:

---

Envoyé par Jipété

Confirmé en ajoutant ça :

Code:

---

1 2 3 4 5 6

myIni: string; begin Ini := TiniFile.Create(lowercase(ChangeFileExt(paramstr(0), '.ini'))); myIni := Ini.FileName; //... if not FileExists(myIni) then exit; // KC

---

Désolé pour le faux titre (bah, ça attirera les foules).

Plus qu'à remonter le bug, après confirmation sous Windows, si qqun veut bien s'y coller.

---

Salut attention avec Ini := TiniFile.Create(lowercase(ChangeFileExt(paramstr(0), '.ini'))); le fichier n'est pas de suite créé si il n'existe pas. Il faudra d'abord y écrire une donnée ini.WriteString('SECTION1','PARAMS1','1.0'); pour que le fichier soit écrit sur le disque.

Donc si ton fichier n'est pas présent au lancement c'est normal que "FileExists" retourne faux

A+

Citation:

---

Envoyé par BeanzMaster

Donc si ton fichier n'est pas présent au lancement c'est normal que "FileExists" retourne faux

---

Mais ce n'est pas le cas !
:ptdr:, tu as dû lire trop vite, ou c'est la chaleur : le fichier existe parfaitement puisque le ShowMessage montre bien 3 lignes identiques issues de

Code:

---

1 2 3 4

showmessage( p + ChangeFileExt(ExtractFileName(Application.ExeName), '.ini') + CRLF + ChangeFileExt(paramstr(0), '.ini') + CRLF + Ini.FileName);

---

En plus je sais qu'il est là puisqu'une fonction WriteValue fonctionne bien, en ouvrant ensuite le fichier (qui donc existe :P) avec un bloc-notes, je vois bien la valeur écrite dedans. :mrgreen:

Il y a une blague quelque part avec le TInifile…

Citation:

---

Envoyé par Jipété

Mais ce n'est pas le cas !
:ptdr:, tu as dû lire trop vite, ou c'est la chaleur : le fichier existe parfaitement puisque le ShowMessage montre bien 3 lignes identiques issues de

Code:

---

1 2 3 4

showmessage( p + ChangeFileExt(ExtractFileName(Application.ExeName), '.ini') + CRLF + ChangeFileExt(paramstr(0), '.ini') + CRLF + Ini.FileName);

---

---

Non, non j'ai bien lu et j'ai fais le test sous Win
En fait non, car ici tu déduis le nom du fichier dans une chaîne, cela ne signifie pas qu'il existe.

Citation:

---

Envoyé par Jipété

En plus je sais qu'il est là puisqu'une fonction WriteValue fonctionne bien, en ouvrant ensuite le fichier (qui donc existe :P) avec un bloc-notes, je vois bien la valeur écrite dedans. :mrgreen:

Il y a une blague quelque part avec le TInifile…

---

Justement le fichier est écrit que lorsque tu utilise une des fonctions "Write", le fichier n'est pas créer (écrit sur le disque') avec "Create". Mais bon une fois qu'il est là, cela ne devrait pas poser de problème :weird:

je ne pense pas que ce soit dans inifiles car on voit ça :

Code:

---

1 2 3

constructor TCustomIniFile.Create(const AFileName: string; AOptions : TIniFileOptions = []); begin FFileName := AFileName;

---

A mon avis c'est la fonction "lowercase" qui pose probleme (d'encodage) avec les "_". Plusieurs solutions à essayer :
1) Avec une variable :

Code:

---

1 2 3 4 5 6

Var IniFileName : String; begin IniFileName := lowercase(ChangeFileExt(paramstr(0), '.ini')); Ini := TiniFile.Create(IniFileName); if not FileExists(IniFileName) then exit;

---

Si ici ça fonctionne c'est qu'il y a bien un soucis quelque part dans IniFile avec la variable FFileName (EDIT : ou c'est du fait que dans le Create c'est le const du paramètre "AFileName: string" qui "embrouille" l'assignation via la fonction LowerCase)

2) Essayes : lowercase(ChangeFileExt(paramstr(0), '.ini'), loInvariantLocale);
3) Rajoutes l'unité LazUTF8 et utilises la fonction "UT8LowerCase" à la place.
4) Rajoutes les unités "LazUTF8" et "LazFileUtils" et à la place de "FileExists" essayes avec "FileExistsUTF8"

A+

Citation:

---

Envoyé par Jipété

Pièce jointe 577606

---

Tiens un truc bizarre, que je viens de remarquer dans ta capture, on dirait qu'il manque un caractère dans la dernière ligne. On voit un écart d'alignement à la fin sur cette dernière :weird::calim2:

Bonsoir.

Il ne manque pas de caractères sur la dernière ligne, le décalage vient du fait que la ligne est toute en minuscule alors que les deux premières on une majuscule (wFrames).

Citation:

---

Envoyé par ddaime

Bonsoir.

Il ne manque pas de caractères sur la dernière ligne, le décalage vient du fait que la ligne est toute en minuscule alors que les deux premières on une majuscule (wFrames).

---

Bonsoir

Oulala je suis fatigué moi, bien vue :plusser:

Ton soucis vient de là JP ! Vue que linux est sensible à la casse :mouarf: On est tous les deux dans les choux pour le coup :ptdr::ptdr::ptdr:

Merci ddaime :ccool:

A+

Citation:

---

Envoyé par BeanzMaster

Oulala je suis fatigué moi, bien vu :plusser:

---

C'est la chaleur.
Moi, en fin de journée, je n'arrive plus à réfléchir. :aie:

Citation:

---

Envoyé par BeanzMaster

Ton souci vient de là JP ! Vu que linux est sensible à la casse :mouarf: On est tous les deux dans les choux pour le coup :ptdr::ptdr::ptdr:

---

Et effectivement, malgré la copie d'écran, cette différence F/f je ne l'ai pas vue, même si j'avais remarqué le défaut d'alignement au bout à droite.
Et pour tout dire, j'avais carrément ouvert le png dans Gimp + zoom à 200 % pour tout regarder attentivement, et F/f est passé à la trappe. Incroyable !

Quant à l'existence du fichier .ini, j'allais péter un câble car il existe depuis des années, là c'est un autre programme que je migre de 32 à 64 bits.

Bien vu, ddaime :ccool:

Testé et validé :

Code:

---

1 2 3 4 5

//Ini := TiniFile.Create(LowerCase(ChangeFileExt(paramstr(0), '.ini'))); // des fois on se prend ^^^^^^^^^ les pieds dans le tapis sans savoir pourquoi ni comment Ini := TiniFile.Create( ChangeFileExt(paramstr(0), '.ini') ); // +1 ! if not FileExists(Ini.FileName) then exit; // et mon fichier .ini est bien détecté. // tout va bien, on continue

---

Si un modo passe par là, il peut, s'il le souhaite, supprimer toute cette discussion, qui n'a plus lieu d'être.