我有一个服务器设备配置,我需要使用UDP更改装备日期配置.服务器是用
Java和设备编写的,用Delphi编写.
所以,数据流是这样的：
Java服务器(Java日期) – > UDP(整数日期) – >德尔福设备(德尔福日期)
问题是,当我将日期作为整数传递时,java会计算1970年的毫秒数和德尔福数秒.我将日期传递给以下日期：today.getTime()/ 1000,但设备将此视为2008年的日期,当时我们在2012年.
我可以更改Java代码,但设备是第三方,我无法访问它的源代码.
Java和Delphi日期解析之间存在差异,允许这种差异吗？
编辑：
感谢MДΓΓБДLL,我注意到我乘以1000而不是除以它,我现在有一个更好的约会,但仍然是错误的(在2033年是某种情况,现在是在2008年).
解决方法
Unix时间戳与Java中使用的时间戳相同.另一方面,Delphi的TDateTime基于18/22/18上午12:01的开始日期(它是COM兼容性的东西),因此需要进行一些转换.这些功能会做到;我还添加了一段快速的测试代码,以显示转换在两种方式下都能正常工作.
const
UnixStartDate = 25569.0;
function DateTimeToUnixTime(const ADateTime: TDateTime): Cardinal;
begin
Result := Round(ADateTime - UnixStartDate) * 86400;
end;
function UnixTimeToDateTime(const UnixDate: Cardinal): TDateTime;
begin
Result := UnixDate / 86400 + UnixStartDate;
end;
procedure TForm1.Button1Click(Sender: TObject);
var StartDate: TDateTime;
UnixDate: Cardinal;
begin
StartDate := Date();
Memo1.Lines.Add('Start Date: ' + DateToStr(StartDate));
UnixDate := DateTimeToUnixTime(StartDate);
Memo1.Lines.Add('DateTimeToUnixTime = ' + IntToStr(UnixDate));
Memo1.Lines.Add('UnixTimeToDateTime = ' + DateToStr(UnixTimeToDateTime(UnixDate)));
end;
