Mon TimeStamp delphi est différent de timestamp php :(

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:

---

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 :)

D'après PHP.net :

Citation:

---

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).

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:

---

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;

---

Salut

Utilise DecodeDateTime à la place de DecodeTime:

Code:

---

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

---

@+ Claudius

Citation:

---

Envoyé par Cl@udius

Salut

Utilise DecodeDateTime à la place de DecodeTime:

Code:

---

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

---

@+ Claudius

---

ça fonctionne niquel, thx:)

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:

---

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 ;)

Oui mais à l'arrivée, le script php va te donner l'heure de la machine serveur alors que Delphi de la machine cliente.

Commence par les comparer avec l'heure fournie par Windows. Ensuite tu pourras dire si l'erreur est locale (Delphi) ou distante (et éventuellement poster sur un autre forum ou éventuellement en faire la remarque à ton provider).

(Pour info, (même si tous le monde s'en fout :mouarf:) le portable de ma femme a passé hier à l'heure d'été)

Citation:

---

Envoyé par Andnotor

(Pour info, (même si tous le monde s'en fout :mouarf:) le portable de ma femme a passé hier à l'heure d'été)

---

lol

pour revenir au sujet, je n'ai pas dis que delphi était uniquement client ...

dailleurs je n'ai pas abordé, la partie client car je suis sur le server là ...

l'appli delphi est installé sur le server, comme le php, donc sur la même machine ils sont exécuté, donc devrait retourner le même timestamp

Bon alors je dirais que DateTimeToUnix fait une conversion de l'heure en format Unix tout en gardant comme référence l'heure de ton système local, soit CET (+1) alors que php se base sur l'heure GMT (+0).

Edit: Je me demande si je ne me suis pas trompé de post.

non tu ne t'es pas trompé ... le poste de base c'est ici ... l'autre s'est un nouveau que j'ai fais, mais je me suis dis ensuite que je devrait remonter l'ancien

enfin bref ...

au début, j'ai cru comme toi, mais quand on regarde bien, la différence affiché est de 1 h

et en retranchant 3600 sec, au timestamp de php, je n'est toujours pas le DateTimeToUnix que je trouve avec delphi

je pense que DateTimeToUnix renvoie un nombre et la routine d'affichage (en date / heure) sait lire ce nombre ...

et pareil pour php

sauf que les 2 routines de lecture / affichage sont différentes

ce que j'aimerais c'est que les 2 langages utilise la même routine, et pour celà les 2 nombres doivent être égaux

Il faut plutôt les ajouter CET (+1). Et si il y a la même erreur sur l'heure d'été, tu te retrouves à -2 à la place de +2, d'où (peut-être) les 4 heures.