Discussion :

[Jipété]

Bonsoir,

je ne m'en sors pas avec les accents ou plutôt, Lazarus ne s'en sort pas : j'ai passé deux jours dessus, j'ai retourné tout le web, j'ai appliqué toutes les solutions données par tous ceux qui disent que pour eux ça a fonctionné mais chez moi c'est rien de chez rien.
Je gagne juste le message "Le fichier spécifié est introuvable" et le prog plante, quand j'essaye de lister le contenu d'un dossier contenant par exemple "Soir d'été.pdf".
Ce n'est pas un problème d'espace ou d'apostrophe car il me suffit de remplacer ces "é" maudits par de bêtes "e" pour que tout fonctionne, mais vous vous en doutez, ça ne m'arrange pas.

Vous faites comment, vous, pour lister correctement des objets avec des noms barbares ?

Là, une fois n'est pas coutume, je suis sous Windows (un vieux XP sp2 32 bits) avec un Lazarus 1.8.2.

Grand merci par avance,
:coucou

[acaumes]

Bonjour,
Si je me souviens bien, avec la 1.8.2 il doit avoir besoin des fonctions UTF8toSys et SystoUTF8 pour passer de la représentation LAZARUS (UTF8) à la représentation FPC(Ansi Windows).
Ce n'est plus utile depuis la V2 (Pour autant que je m'en souvienne).
Cordialement
EDIT Ajout du numéro de version qui avait sauté à cause du clavier (et probablement de l'interface entre la chaise et le clavier...)

[Jipété]

Bonjour,

... fonctions UTF8toSys et SystoUTF8 pour passer de la représentation LAZARUS (UTF8) à la représentation FPC(Ansi Windows).

Bizarre car j'avais trouvé ces fonctions, mais je n'ai pas dû utiliser la bonne, genre SysToUTF8 quand il me fallait UTF8ToSys. Ah, entre la chaise et le clavier se cachent de curieuses choses...

Pour éviter à ceux qui passeront ici de chercher, je rappelle qu'il faut ajouter LazUTF8 dans les uses.

Mais la chose ennuyeuse qui me reste sur les bras, c'est que si avec cette fonction ça fonctionne très bien quand elle est appelée bêtement depuis un bouton qui vise directement le fichier avec accents, ça ne fonctionne plus dans l'usine à gaz qui parcourt récursivement une arborescence temporaire à grands coups de FindFirst/FindNext/FindClose.
J'ai remplacé ces trois-là par des LazFileUtils.FindXxxxUTF8 sans aucune amélioration.

Une autre idée ?

[acaumes]

Salut!
Si je me souviens bien avec la 1.8.2 Lazarus est en UTF8 et FPC est en natif système d'exploitation.
Il faut donc que à chaque fois que tu passes de LAZARUS à FPC utiliser UTF8toSys et à chaque fois que tu passes de FPC à LAZARUS utiliser SysToUTF8.

Attention Tous les FileStream sont FPC... (Pour autant que je me souvienne)

FindFirst et consorts sont pour moi natifs et donc vont bien sur les fonctions FPC (Attention au répertoire que tu dois ajouter si ce n'est pas le répertoire courant) (à vérifier au débogueur éventuellemnt)
FindFirstUTF8 est une addition LAZARUS et il faut faire la conversion...

NB. Pourquoi ne pas passer à la version 2 qui est UTF8 de partout ? Je dois avouer que cela m'a bien arrangé parce que jongler entre les fonctions LAZARUS et celles de FPC n'est vraiment pas une sinécure...

Cordialement

[Jipété]

NB. Pourquoi ne pas passer à la version 2 qui est UTF8 de partout ? Je dois avouer que cela m'a bien arrangé parce que jongler entre les fonctions LAZARUS et celles de FPC n'est vraiment pas une sinécure...

Tu m'as convaincu, voilà qui est fait !

Ensuite j'ai ouvert mon projet maudit, ai viré tout ce qui concernait les passages utftosys et inversement, j'ai fait le plus propre possible, j'ai relancé l'exe et... patatras ! Le fichier avec accents n'est toujours pas trouvé !

Face à ça je ne vois pas quoi faire.

(et cet aprème faut que je bouge, malgré la pluie)

[acaumes]

Face à ça je ne vois pas quoi faire.

Si tu pouvais poster un peu de code on verrait peut être mieux...

Cordialement

[Jipété]

Code :

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

1
2
3
4
5
6
7
8
function LastWriteTime(const FileName: string): TFileTime;
var
  AttributeData: TWin32FileAttributeData;
begin
  if not GetFileAttributesEx(PAnsiChar(FileName), GetFileExInfoStandard, @AttributeData) then
    RaiseLastOSError;
  Result := AttributeData.ftLastWriteTime;
end;

Bon voilà, j'ai enfin trouvé où ça coince précisément, dans cette fonction sur l'instruction GetFileAttributesEx(PAnsiChar(FileName), alors qu'en pas-à-pas la souris sur FileName montre bien 'chemin\Soir d'été.pdf'.
Vues, les simples quotes pas de mon fait et bien visibles en pas-à-pas ? Et malgré ça, System error OS code 2, le fichier spécifié est introuvable.

Voilà pourquoi des petits programmes de test sans vérifier la date du fichier se passaient bien : rien à voir avec FindFirst/Next/Close.

Et j'ai un peu googlé GetFileAttributesEx, sans grand succès

C'est la tuile…

[jurassic pork]

hello Jipété,

Et j'ai un peu googlé GetFileAttributesEx, sans grand succès
C'est la tuile…

Pourquoi tu t'embêtes à utiliser une fonction qui ne tourne que sous windows alors que dans SysUtils tu as l'équivalent en multi-plateforme.
Pour avoir la dernière date de modification d'un fichier il y a la fonction FileAge. Exemple d'utilisation :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: String;
  fa: Longint;
  S : TDateTime;
begin
  if OpenDialog1.Execute then
   begin
     Filename := OpenDialog1.Filename;
     fa := FileAge(Filename);
     If fa<>-1 then
       begin
         S:=FileDateTodateTime(fa);
         Memo1.Append('Age du fichier ' + Filename + ' : ' +DateTimeToStr(S));
       end;
   end;
 
 
end;

Et cela fonctionne pour les fichiers avec accents :

Age du fichier D:\zic\Ange\Tome 87\06 - Sur la trace des fées.mp3 : 19/05/2010 17:09:20

Ami calmant, J.P (sans T)

[Jipété]

Bonjour,

ami JP tu me simplifies la vie !

Le seul problème je crois, c'est que je perds la conversion en LocalTime, mais ça n'est probablement pas trop important.

L'idée (vieille d'au moins 15 ans), c'était de nettoyer les fichiers temporaires de Windows (à l'époque) en conservant ceux qui ont moins de 24 h d'ancienneté.
Pourquoi ? Parce que Windows étant sujet à plantages et autres blocages faisant perdre le travail en cours, je m'étais dit qu'il serait intéressant de pouvoir examiner les fichiers temporaires au redémarrage, des fois que ça puisse sauver des heures de boulot.
Mais conserver tous les fichiers temporaires sous Windows ce n'est pas raisonnable, d'où l'idée de l'outil, qui nettoie c:\windows\temp et c:\utilisateurs\son_nom\local settings\temp.

Et pour ce faire, j'utilisais entre autres la fonction

Code :

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

1
2
3
4
5
6
7
8
9
function UTCFileTimeToDateTime(const FileTime: TFileTime): TDateTime;
begin
  Result := SystemTimeToDateTime(UTCFileTimeToSystemTime(FileTime));
end;
{http://stackoverflow.com/questions/10564741/elapsed-time-interval-in-delphi
You call LastWriteTime to get the last modified time in file time format.
Then call UTCFileTimeToDateTime to convert into TDateTime accounting
for the prevailing local time zone of the machine.
You can then compare that value with Now.}

mais je n'arrive pas à convertir la sortie de FileAge en TDateTime -- j'ai essayé de ruser en remplaçant TDateTime par un Double mais ça ne passe pas non plus, le compilo ne se laisse pas berner.

Bah, c'est pas bien grave, merci à tous.

[Lung]

Est-ce que FileDateToDateTime existe ?

Code :

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

FileDateToDateTime(FileAge(..))

[Jipété]

Est-ce que FileDateToDateTime existe ?

Code :

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

FileDateToDateTime(FileAge(..))

Oui, c'est d'ailleurs ça que j'utilise, après le post de JP.

Avant j'utilisais UTCFileTimeToDateTime(blabla...), mais cette fonction veut un TFileTime que je ne sais pas obtenir.

[jurassic pork]

regarde du côté des fonctions UniversalTimeToLocal et LocalTimeToUniversal dans dateUtils.
Exemple : avec :

Code :

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

1
2
3
4
5
6
         S:=FileDateTodateTime(fa);
         S1:= LocalTimeToUniversal(S);
         S2:= UniversalTimeToLocal(S);
         Memo1.Append('Age du fichier ' + Filename + ' : ' +DateTimeToStr(S));
         Memo1.Append('Age du fichier ' + Filename + ' : ' +DateTimeToStr(S1));
          Memo1.Append('Age du fichier ' + Filename + ' : '+DateTimeToStr(S2));

j'obtiens :

Age du fichier D:\zic\Ange\Tome 87\06 - Sur la trace des fées.mp3 : 19/05/2010 17:09:20
Age du fichier D:\zic\Ange\Tome 87\06 - Sur la trace des fées.mp3 : 19/05/2010 16:09:20
Age du fichier D:\zic\Ange\Tome 87\06 - Sur la trace des fées.mp3 : 19/05/2010 18:09:20

Ami calmant, J.P (sans T)

[Jipété]

Hi, JP !

Mais que deviendrai-je sans toi ?

Je ne connaissais pas ces fonctions, qui vont me faciliter la vie, si jamais il y a des blagues cet été.

Pour le moment, la première (celle que tu as donnée ce matin) me convient très bien dans le sens où elle me remonte le même horodatage que celui du fichier créé il y a une poignée de minutes, impeccable.