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.