DateTimeToUnix 1 stunde zurück

[venice2]

Zitat von mytbo:

Versuche es mal mit mORMot Unit SynCommons.pas.

Delphi-Quellcode:

var
  tlb: TTimeLogBits;
begin
  tlb.FromUTCTime;
  ShowMessage(tlb.Text(True));
  ShowMessage(IntToStr(tlb.ToUnixTime));
end;

Den Sourcecode habe ich jetzt nicht getestet. Wenns nicht passt, es gibt einige Zeitfunktionen in der Unit.

Bis bald...
Thomas

Danke aber wüsste nicht was ich damit anfangen sollte.

Ich muss ja die aktuelle zeit übergeben und mit ToUnixTime ist das nicht gegeben.
Die anderen habe ich schon geprüft und funktionieren auch nicht so wie sie sollen.

Die Zeit unter D 10.4 ist korrekt aber ich kann es so in D2010 nicht umsetzen.
Weil ich aber 32Bit und 64Bit gleichhallten möchte in der Funktionsweise muss ich so leider darauf verzischten.

Und nein ich will D 14.4 nicht für 32Bit verwenden da ich nicht einsehe das mein Kompilat um das 4 Fache in der Größe ansteigt.

DateTimeToUnixTime SynCommons
Funktioniert nicht einmal unter 10.4 korrekt. Nur mal so nebenbei.
Ich will nicht sehen was in einer Stunde läuft (The Voice of Germany) sondern das was jetzt läuft. (Auf Streife)
Siehe Shots!

EDIT:
Nicht das wir uns missverstehen.

DateTimeToUnixTime ist schon richtig es sendet die UnixZeit + 1 Stunde.
Nur DateTimeToUnix (DateUtils) schickt die UnixZeit und zieht die 1 Stunde ab abhängig vom gesetzten flag AInputIsUTC das ist der feine Unterschied.
Die Zeit wird also direkt nach UTC konvertiert.

[Klaus01]

Guten Morgen Emil,

dieser Code macht eigentlich das was Du möchtest.

Delphi-Quellcode:

function TzSpecificLocalTimeToSystemTime(lpTimeZoneInformation: PTimeZoneInformation; var lpLocalTime, lpUniversalTime: TSystemTime): BOOL; stdcall;
function TzSpecificLocalTimeToSystemTime; external kernel32 name 'TzSpecificLocalTimeToSystemTime';


implementation

// trennt die Lokale Zeit von der TimeZone
Function DateTimeToUtc(d:TDateTime):TDateTime;
var
 TZI:TTimeZoneInformation;
 LocalTime, UniversalTime:TSystemTime;
begin
  GetTimeZoneInformation(tzi);
  DateTimeToSystemTime(d,LocalTime);
  TzSpecificLocalTimeToSystemTime(@tzi,LocalTime, UniversalTime);
  Result := SystemTimeToDateTime(UniversalTime);
end;


function DateTimeToUnix(const AValue: TDateTime; AInputIsUTC: Boolean): Int64;
var
  LDate: TDateTime;
 begin
  if AInputIsUTC then
    LDate := AValue
  else
    LDate := DateTimeToUtc(AValue);
  Result := SecondsBetween(UnixDateDelta, LDate);
  if LDate < UnixDateDelta then
     Result := -Result;
 end;



procedure TForm1.Button1Click(Sender: TObject);
var
  lDate: TDateTime;
begin
  lDate := now;
  Memo1.Lines.Add('lokale Zeit:       ' + dateTimeToStr(lDate));
  Memo1.Lines.Add('standort Utc:      ' + dateTimeToStr(DateTimeToUtc(lDate)));
  Memo1.Lines.Add('lokale Zeit Unix:  ' + intToStr(DateTimeToUnix(lDate, true)));
  Memo1.Lines.Add('standort UTC Unix: ' + intToStr(DateTimeToUnix(lDate, false)));
end;

Code:

lokale Zeit:       20.12.2020 09:11:28
standort Utc:      20.12.2020 08:11:28
lokale Zeit Unix:  1608455488
standort UTC Unix: 1608451888

Grüße
Klaus

[venice2]

Guten Morgen Klaus
Danke für deine Mühe sieht gut aus werde es nochmal versuchen.

[venice2]

Das ist was ich bekomme..

Delphi-Quellcode:

    ShowMessage('TimeStart = ' + IntToStr(TimeStart) +
      #13#10 + 'TimeEnd = ' + IntToStr(TimeEnd) +
      #13#10 + 'lokale Zeit: ' + DateTimeToStr(IncHour(Now, 0)) +
      #13#10 + 'standort Utc: ' + DateTimeToStr(DateTimeToUtc(IncHour(Now, 0))));

Daten die ausgewertet werden..

Delphi-Quellcode:

    gEpg[iRun].ry_u := docPrograms.I['ry_u'];
    if gEpg[iRun].ry_u <> 0 then
      SEnd[iRun] := UnixToDateTime(gEpg[iRun].ry_u); // End Zeit

    gEpg[iRun].s:= docPrograms.I['s'];
    if gEpg[iRun].s <> 0 then
      sStart[iRun] := UnixToDateTime(gEpg[iRun].s); // Start Zeit

Siehe Pics Daten sind alle Falsch das ist was ich nicht verstehe.
Falsche Programme falsche Zeit.

Unter 14.4
Siehe blaue Pic (Was macht 14.4 anders? )

Der String der gesendet wird

Delphi-Quellcode:

    SendStr := FProvRec.URL +
      cPathEPG +
      FProvRec.PWRHASH +
      '?end=' + inttostr(TimeEnd) +
      '&start=' + inttostr(TimeStart) +
      '&format=json' + '&details=True';

Daten die Initialisiert werden für den SendStr

Delphi-Quellcode:

    TimeStart := DateTimeToUnix(IncHour(Now, 0), false);
    TimeEnd := DateTimeToUnix(IncDay(Now, 1), false);

stimmen die Zeiten nicht dann lade ich die falschen EPG Daten.

[Klaus01]

in 10.4 sieht UnixToDateTime so aus:

Delphi-Quellcode:

function UnixToDateTime(const AValue: Int64; AReturnUTC: Boolean): TDateTime;
begin
  if AReturnUTC then
    Result := IncSecond(UnixDateDelta, AValue)
  else
    Result := TTimeZone.Local.ToLocalTime(IncSecond(UnixDateDelta, AValue));
end;

Da es TTimeZone in D2010 noch nicht gibt, muss dies wieder ersetzt werden.

Delphi-Quellcode:

function TzSpecificLocalTimeToSystemTime(lpTimeZoneInformation: PTimeZoneInformation; var lpLocalTime, lpUniversalTime: TSystemTime): BOOL; stdcall;
function SystemTimeToTzSpecificLocalTime(lpTimeZoneInformation: PTimeZoneInformation; var lpUniversalTime,lpLocalTime: TSystemTime): BOOL; stdcall;

implementation

function TzSpecificLocalTimeToSystemTime; external kernel32 name 'TzSpecificLocalTimeToSystemTime';
function SystemTimeToTzSpecificLocalTime; external kernel32 name 'SystemTimeToTzSpecificLocalTime';

Function UtcToLocalDateTime(d:TDateTime):TDateTime;
var
 TZI:TTimeZoneInformation;
 LocalTime, UniversalTime:TSystemTime;
begin
  GetTimeZoneInformation(tzi);
  DateTimeToSystemTime(d,UniversalTime);
  SystemTimeToTzSpecificLocalTime(@tzi,UniversalTime,LocalTime);
  Result := SystemTimeToDateTime(LocalTime);
end;

->>

Delphi-Quellcode:

function UnixToDateTime(const AValue: Int64; AReturnUTC: Boolean): TDateTime;
begin
  if AReturnUTC then
    Result := IncSecond(UnixDateDelta, AValue)
  else
    Result := UtcToLocalDateTime(IncSecond(UnixDateDelta, AValue));
end;

Grüße
Klaus

[venice2]

Ja nur was möchtest du mir jetzt sagen es funktioniert nicht habe ich anhand der Bilder dokumentiert.
Ach so das ist die andere Funktion.. werde es testen. Danke.

Der vergleich mit deiner Änderung..
Irgendwie will das nicht.

EDIT:
Habe es nochmal geprüft und festgestellt das dort noch ein Fehler war.
Hatte bei
TimeStart := DateTimeToUnix(IncHour(Now, 0), false);

true anstatt false.

Jetzt scheint es zu gehen.. werde es weiterhin noch beobachten.
Bin dir sehr zu dank verpflichtet ohne dich hätte ich es aufgegeben. (hast meinen Tag gerettet)
Bei Sportschau fehlt die Endzeit ist aber ein Fehler in der Json die fehlt dort! Kann da nichts machen.