Récupérer le timestamp sous GNU pascal ET free pascal

Récupérer le timestamp sous GNU pascal ET free pascal - Delphi/Pascal - Programmation

Marsh Posté le 18-03-2007 à 17:52:52    

Bonjour,
 
Je suis en train de programmer un Sudoku en Pascal pour ma Fac (projet de fin d'année).
 
Actuellement je travaille avec l'environnement Dev Pascal (compilateur Free pascal), mais mon programme doit etre parfaitement portable, c'est à dire compilable aussi bien sous gnu pascal que sous free, sous Windows, Unix et Linux.
 
Pour le moment tout va bien (enfin je n'arrive pas à utiliser Dev pascal GNU, autre version de celle sur laquelle je bosse actuellement, suite à des problemes de chemins de dossiers, etc ... mais sous Unix (environnement SUN solaris), ca marche sans probleme avec gpc).
 
Le problème est le suivant : j'aimerais récupérer le Timestamp à la création d'un compte joueur, un autre lors de l'affichage de statistiques du joueur (ancienneté toussa :o ), ainsi qu'en récupérer 2 autres en début et fin de partie, pour récupérer la durée de celle ci (oui je sais on a du le deviner :D ).
Seulement je n'arrive pas à utiliser la commande GetTimeStamp, il me dit (le compilateur freepascal) que ca ne va pas, ou plus précisément :
 
"Identifier not found GETTIMESTAMP".
 
Alors qu'en me rendant sur cette page, on voit bien qu'il n'y a aucune unité utilisée, et que "ca marche" ...
 
Voici la source du fichier de test "test_time.pas" :
 

Code :
  1. Program temps;
  3. uses crt,sysutils,dos;
  5. Type TimeStamp =
  6.  record
  7.  DateValid,
  8.  TimeValid : Boolean;
  9.  Year  : Integer;
  10.  Month  : 1 .. 12;
  11.  Day   : 1 .. 31;
  12.  DayOfWeek : 0 .. 6;   { 0 means Sunday }
  13.  Hour  : 0 .. 23;
  14.  Minute  : 0 .. 59;
  15.  Second  : 0 .. 61;  { to allow for leap seconds }
  16.  MicroSecond : 0 .. 999999;
  17.  TimeZone : Integer;  { in seconds east of UTC }
  18.  DST   : Boolean;
  19.  TZName1, TZName2 : String[32];
  20.  end;
  22. Var  bidon : char;
  23.  h1,m1,s1,c1,h2,m2,s2,c2 : word;
  24.  h3,m3,s3 : integer;
  25.  t3_seconds : longint;
  26.  t1,t2 : TimeStamp;
  28. BEGIN
  30. bidon:='a';
  31. while bidon<>'e' do
  33. begin
  34. writeln('Veuillez taper sur n''importe quelle touche, sauf "e"');
  35. bidon:=readkey;
  36. GetTime(h1,m1,s1,c1);
  37. writeln('Veuillez a nouveau taper sur n''importe quelle touche, sauf "e"');
  38. bidon:=readkey;
  39. GetTime(h2,m2,s2,c2);
  40. h3:=3600*(h2-h1);
  41. m3:=60*(m2-m1);
  42. s3:=h3+m3+(s2-s1);
  43. writeln('Le temps qui s''est ecoule entre la premiere entree et la seconde est de : ');
  44. writeln(s3,' secondes.');
  45. writeln(' ');
  48. writeln('Veuillez taper sur n''importe quelle touche, sauf "e"');
  49. bidon:=readkey;
  50. GetTimeStamp (t1);
  51. writeln('Veuillez a nouveau taper sur n''importe quelle touche, sauf "e"');
  52. bidon:=readkey;
  53. GetTimeStamp (t2);
  54. t3_seconds:=(t2.Second)-(t1.Second);
  55. writeln('Le temps qui s''est ecoule entre la premiere entree et la seconde est de : ');
  56. writeln(t3_seconds,' secondes.');
  57. writeln(' ');
  59. writeln('Tapez "e" pour quitter, une autre touche pour recommencer');
  60. end;
  62. END.


 
Je fais donc appel à vous, j'aimerais en fait trouver une fonction/unité "universelle" qui puisse fonctionner avec n'importe quel compilateur, ou du moins une méthode pas trop compliquée pour faire ce que je veux, expliqué plus haut.
 
Merci d'avance à tout le monde :)


---------------
Gates gave you the windows. GNU gave us the whole house.
Reply

Marsh Posté le 18-03-2007 à 17:52:52   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed