Discussion :

[litlebasic]

--------------------------------------------------------------------------

bonjour, j ai decouvert le delphi il ya tous juste quelque jours et j ai besoin de la procedure function GetFileTimes(const FileName: string; var Created: TDateTime;", qui permet de recuperer la date de creation d un fichier.
Cette procedure vient de la FAC http://delphi.developpez.com/faq/?pa...r#datesfichier

....par contre je ne comprend pas tous le code (et oui les debutants....).

Les instructions : - if GetTimeZoneInformation(TimeZoneInfo) <> $FFFFFFFF then
Bias := TimeZoneInfo.Bias / 1440; // 60x24
- try
- finally,
sont encore tres abstraites pour moi....

De meme pourquoi retirer "biais" des trois donnees ? d ou vien ce bias?

merci a tous

[Rayek]

Je vais répondr epour le Try ... Finally

Instructions try...finally

Dans certains cas, il est indispensable que certaines parties d'une opération s'effectuent, que l'opération soit ou non interrompue par une exception. Si, par exemple, une routine prend le contrôle d'une ressource, il est souvent important que cette ressource soit libérée quelle que soit la manière dont la routine s'achève. Vous pouvez, dans ce genre de situations, utiliser une instruction try...finally.

en gros tu ouvres le fichier dans ton programme, donc il faut impérativement que celui ci soit fermé, même s'il y a une erreur.

[TicTacToe]

+1
J'ajouterai aussi que le code peut être interrompu volontairement par un 'break' ou un 'continue', et le code après le finally est qd même exécuté (exemple, incrémementer le compteur de boucle absolument, sous peine de tourner en rond pendant longtemps).

[Tardiff Jean-François]

Bonjour,

Les date/time du fichiers sont au formats Microsoft, Vous désirez des dates au format Delphi suivant votre heure local (française/anglaise etc..).

Je ne connais pas le format utiliser par microsoft dans ses fichiers, mais a prioris le format microsoft foit être en heure GMT ou UTC. Dans ce cas il faut decaller cete date pour avoir la date sur votre ordinateur (suivant l'heure que vous utiliser).

Bias doit être ce décallage entre l'heure local (française dans votre cas) et l'heure international.

Je n'en suis pas sur, mais au vus du code se serait logique.

[Bejaia-In]

Si pour l'instant tu ne saisi pas le sens de tout le code cité, c'est normal et pas du tout grave.
Tu peux utiliser cette fonction facilement de cette façon :
1- tu recopie la fonction "GetFileTimes" telle quelle est dans l'unité où tu l'utiliseras.
2- tu recopie aussi la fonction que je te donne ici dans la même unité.
3- tu peux appeler depuis ton code cette dernière fonction qui te donne la date de création du fichier mentionné.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function DateFichier:TDateTime;
var NomFichier:string; DateCreation,DateAccession,DateModification:TDateTime;
begin
 NomFichier:='Nom du fichier complet ou relatif';// A CHANGER IMPERATIVEMENT.
 try
 if not FileExists(NomFichier) then Abort;//Vérifie l'existance du fichier.
 GetFileTimes(NomFichier,DateCreation,DateAccession,DateModification);
 Result:=DateCreation;
 except
  ShowMessage('Fichier inexistant');
  raise // redéclenche l'exeption.
 end;
end;

Tu vois dans ce code a quoi sert TRY/EXCEPT ?
Tu peux améliorer cette fonction selon tes besoins.