Wild media server (UPnP, DLNA, HTTP)

Code: Select all

function TimeStamp1970ToDateTime(aTimeStamp: Integer): TDateTime;
begin
  Result := (aTimeStamp / (24 * 60 * 60)) + EncodeDate(1970, 1, 1)
end;

function DateTimeToTimeStamp1970(aDateTime: TDateTime): Integer;
begin
  Result := Round((aDateTime - EncodeDate(1970, 1, 1)) * 24 * 60 * 60)
end;

Code: Select all

function DateTimeToUnixTimestamp(dtValue: TDateTime): integer;
  const
    iGMTOffset = 2;   // GMT +2
  var
    h, m, s, ms: integer;
  begin
    DecodeTime(dtValue,h,m,s,ms);
    Result := Int(dtValue - EncodeDate(1970, 1, 1)) * 86400 + (h - iGMTOffset) * 3600 + m * 60 + s;
  end;