Fecha de conversión en Java a entero y luego a Delphi Time

Question

Tengo una configuración de equipo de servidor donde necesito cambiar la configuración de fecha de equipamiento, usando UDP. El servidor está escrito en Java y el equipo, en Delphi.

Así, el flujo de los datos es la siguiente:

Java server (Java date) -> UDP (integer date) -> Delphi equipment (Delphi date)

El problema es que cuando paso de la fecha como un entero, java calcula milisegundos desde 1970, y Delphi, segundo. Paso la fecha como sigue: today.getTime()/1000, pero el equipo entiende esto como una fecha de 2008, cuando estamos en 2012.

Puedo cambiar el código de Java, pero el equipo es de terceros y no tengo acceso a su código fuente

¿Hay diferencia entre el análisis de fechas de Delphi y Java que permite esta discrepancia?

EDIT: Gracias a MДΓΓ БДLL Noté que estaba multiplicando por 1,000 en lugar de dividir por ella, ahora tengo una fecha mejor, pero sigue siendo incorrecto (en algún tiempo fue en el 2033, ahora es en 2008).

Answer 1

Una marca de tiempo Unix es la misma que la utilizada en Java. Por otro lado, TDateTime de Delphi se basa en una fecha de inicio de 12:01 am el 30/12/1899 (es una cuestión de compatibilidad COM), por lo que es necesaria cierta conversión. Estas funciones lo harán; También agregué un fragmento rápido de código de prueba para mostrar que la conversión funciona correctamente en ambos sentidos.

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; 

Answer 2

unidad de Delphi DateUtils tiene UnixToDateTime() y DateTimeToUnix() funciones para la conversión entre TDateTime y Unix marcas de tiempo, que se expresan como segundos desde la época Unix (ene 1 1970 00:00:00 GMT):

// 1325606144 = Jan 3 2012 3:55:44 PM GMT 

uses 
    DateUtils; 

var 
    DT: TDateTime; 
    Unix: Int64; 
begin 
    DT := UnixToDateTime(1325606144); 
    // returns Jan 3 2012 3:55:44 PM 

    Unix := DateTimeToUnix(EncodeDate(2012, 1, 3) + EncodeTime(15, 55, 44, 0)); 
    // returns 1325606144 
end; 

La clase de Java Date, por otro lado, se basa en milisegundos de la época Unix en su lugar. Eso es fácil de tener en cuenta, sin embargo:

uses 
    DateUtils; 

function JavaToDateTime(Value: Int64): TDateTime; 
begin 
    Result := UnixToDateTime(Value div 1000); 
end; 

function DateTimeToJava(const Value: TDateTime): Int64; 
begin 
    Result := DateTimeToUnix(Value) * 1000; 
end; 

alternativa:

uses 
    SysUtils, DateUtils; 

// UnixDateDelta is defined in SysUtils... 

function JavaToDateTime(Value: Int64): TDateTime; 
begin 
    Result := IncMilliSecond(UnixDateDelta, Value); 
end; 

function DateTimeToJava(const Value: TDateTime): Int64; 
begin 
    Result := MilliSecondsBetween(UnixDateDelta, Value); 
    if Value < UnixDateDelta then 
    Result := -Result; 
end; 

De cualquier manera:

// 1325606144000 = Jan 3 2012 3:55:44 PM GMT 

var 
    DT: TDateTime; 
    Java: Int64; 
begin 
    DT := JavaToDateTime(1325606144000); 
    // returns Jan 3 2012 3:55:44 PM 

    Java := DateTimeToJava(EncodeDate(2012, 1, 3) + EncodeTime(15, 55, 44, 0)); 
    // returns 1325606144000 
end; 

Answer 3

Por lo que sé la fecha de Java se basa en UTC lo que también tienen para convertir la hora local desde/a UTC. Estas funciones usan milisegundos, adapte el código a sus necesidades.

function TzSpecificLocalTimeToSystemTime(
    lpTimeZoneInformation: PTimeZoneInformation; 
    lpLocalTime, lpUniversalTime: PSystemTime): BOOL; stdcall; external 'kernel32.dll'; 

function SystemTimeToTzSpecificLocalTime(
    lpTimeZoneInformation: PTimeZoneInformation; 
    lpUniversalTime, lpLocalTime: PSystemTime): BOOL; stdcall; external 'kernel32.dll'; 

function JavaToDelphiDateTime(const dt: int64): TDateTime; 
var 
    t: TSystemTime; 
begin 
    DateTimeToSystemTime(25569 + (dt/86400000), t); 
    SystemTimeToTzSpecificLocalTime(nil, @t, @t); 
    Result := SystemTimeToDateTime(t); 
end; 

function DelphiToJavaDateTime(const dt: TDateTime): int64; 
var 
    t: TSystemTime; 
begin 
    DateTimeToSystemTime(dt, t); 
    TzSpecificLocalTimeToSystemTime(nil, @t, @t); 
    Result := Round((SystemTimeToDateTime(t) - 25569) * 86400000) 
end; 

Answer 4

Obtener el paquete superobect JSON de www.progdigy.com y extraer el JavaToDelphiDateTime funciones y V.V. de los archivos de origen.

Actualizado hace 3 Mar 2014:

Progdigy.com ya no sirve a estos archivos. Obtenga los archivos de Google. El archivo ZIP oficial 1.2.4 en la sección de descarga http://code.google.com/p/superobject/downloads/list data de 2010, pero los archivos individuales en http://code.google.com/p/superobject/source/browse tienen actualizaciones hasta octubre de 2012.

Usted debe usar esos archivos actualizados porque hubo un oscuro error en las conversiones de fecha y hora que ocurren alrededor del cambio al horario de verano en leapyears.