Discussion :

[Coussati]

sur mon prog delphi et sur mon site, je détecte le timestamp pour avoir la date et l'heure précise

pour delphi j'utilise :

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
TS : TTimeStamp;
a : TDateTime;
Begin
  TS:=DateTimeToTimeStamp (Now);
 
  With TS do
    begin
     edit1.Text := (inttostr(time));
     edit2.Text :=  (inttostr(Date));
    end;
 
  ts.Time := strtoint(edit1.Text);
  ts.Date := strtoint(edit2.Text);
  edit3.Text := DateTimeToStr(TimeStampToDateTime(ts));
End;

(mettez 3 edit sur la fiche)

mais là il detect 2 nombres (edit 1 et 2)

j'ai gardé ça parce que je n'ai pas trouvez comment faire autrement et il me donnait un bon résultat en edit3

en php j'utilise la fonction time() qui me donne 1 seul résultat (plus long le nombre)


donc j'aimerais trouver le même nombre en delphi et en php

je pense que le mieux serait de faire en delphi ce que le php fait ...

je vous demande de l'aide

[Reisubar]

D'après PHP.net :

Description
int time ( void )
Returns the current time measured in the number of seconds since the Unix Epoch (January 1 1970 00:00:00 GMT).

C'est donc plus une fonction du genre DateTimeToUnix(Now) que tu cherches (cf l'aide Delphi et DateUtils).

[Coussati]

merci pour les précisions

j'ai essayé de faire la conversation des 2 sens et je bute sur la date et le jour

comment je peux trouver ?

j'ai déjà réussi pour l'heure :

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
 
 
var
begin
  edit3.Text := inttostr(DateTimeToUnix(Now));
end;
 
 
var
 myDate : TDateTime;
 myHour, myMin, mySec, myMilli : Word;
begin
  myDate := UnixToDateTime(strtoint(edit3.Text));
  DecodeTime(myDate, myHour, myMin, mySec, myMilli);
  ShowMessage('Time now = '+TimeToStr(myDate));
  ShowMessage('Hour     = '+IntToStr(myHour));
  ShowMessage('Minute   = '+IntToStr(myMin));
  ShowMessage('Second   = '+IntToStr(mySec));
  ShowMessage('MilliSec = '+IntToStr(myMilli));
end;

[Cl@udius]

Salut

Utilise DecodeDateTime à la place de DecodeTime:

Code :

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

  DecodeDateTime(myDate, myYear, myMonth, myDay, myHour, myMin, mySec, myMilli);

@+ Claudius

[Coussati]

Salut

Utilise DecodeDateTime à la place de DecodeTime:

Code :

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

  DecodeDateTime(myDate, myYear, myMonth, myDay, myHour, myMin, mySec, myMilli);

@+ Claudius

ça fonctionne niquel, thx

[Coussati]

dsl de remonter ce sujet, mais mon problème n'est pas résolus

c'est vrai que je trouve bien la date / heure, mais les nombres trouvé ne sont pas totalement les mêmes

j'effectue à l'instant un teste à quelque secondes d'intervalle, sur le même pc :

delphi : DateTimeToUnix(Now) = 1238175179

php : time() = 1238189577

en faisant la différence je trouve : 14398

je rappel que le problème se situe au niveau de l'heure

en delphi, pour lire j'utilise ce que claudius m'a conseillé (DecodeDateTime) et je trouve bien la date / heure de mon pc

en php, j'utilise le script suivant :

Code :

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

1
2
3
4
5
6
7
8
 
<?php
 
  $t = time();
 
  echo date('d/m/Y à H\hi', $t);
 
?>

je trouve bien la date, mais l'heure est en avance d'une heure

ou est le problème me direz vous ? pour le décalage il suffit de retranche 3600 sec (dans la partie php) oui je suis d'accord ... mais le soucis c'est que les nombres trouvé delphi / php ne sont pas pareil !!! et pas à 3600 sec près mais à 14398 !!!

je veux tout d'abord trouver en delphi et en php le même nombre !

je vosu remercie d'avance