DateTimeToUnix 1 stunde zurück

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