Java.Date -> Delphi.TDateTime

[bwilms]

Hallo,

habe folgendes Problem:

Ich habe ein Serversystem, dass auf eine Anfrage Suchergebnisse versendet. Die Kommunikation läuft über TCP/IP mit einem eigenen Protokoll. Dieses Protokoll besteht aus Records, die in Delphi definiert wurden. Nun wird dort als Datumswert ein TDateTime (double 64bit signifikante Stellen=bit 15-16) benutzt! (D.h. Tage seit dem 31.12.1899 stehen vor dem Komma, der Bruchteil des Tages hinter dem Komma).

Nun möchte ich in meinem Applet eine Anfrage nach Datum und zeit stellen. Möchte dazu zwei TextFelder nutzen. Eins für Datum und eins für Uhrzeit.

Jetzt kommt das Problem: Wie bekomme ich nun das Datum vom String in die Floatzahl gewandelt??? Das Datum soll in einem byte-array[8] gesetzt werden!

Kann mir da jemand helfen??

 

[dotlens]

Den String kannst du in eine zahl parsen und zu dem Datum hinzurechnen....

schau dir die Funtkion parseFloat an:
http://java.sun.com/j2se/1.4.2/docs/api/java/lang/Float.html

 

[bwilms]

Und wie bekomme ich das dann in mein bytearray? So dass die ersten 4bytes die nachkomma-stellen sind und die letzten 4 bytes die vorkommastellen? So wie in Delphi??? Wenn ich dort ein bytearray der größe 8 anlege und dann einen pointer vom typ TDateTime darauf verweise, dann möchte ich das auswerten können!

 

[niemand]

Du könntest den String zunächst mit StringTokenizer in Vor- und Nachkommastellen zerlegen und anschließend die Einzelstrings in je ein Array stecken, bzw. direkt parsen.

[edit]Irgendwie sehe ich das Problem nicht so ganz, entschuldige[/edit]

cu

 

[bwilms]

Weiß nicht, ob ich es vielleicht falsch erklärt habe:

Der Server (progr. in Delphi) empfängt Nachrichten, die als Record definiert sind

z.B.

  TRecorderMessage = record
    ID, Size: Cardinal;
  end;

  TMsgSearchReq = record
    Header: TRecorderMessage;
    MaxEntries: Integer;
    ID: Cardinal;
    Start, Stop: TDateTime;
    Stream: Integer;
    Status: Cardinal;
  end;

TDateTime ist ein double wert! Die nachricht ist im gesamten 40byte lang. Das setzen der anderen Werte, so dass diese in delphi korrekt ausgwertet werden, ist kein problem. aber das setzen der Zeitwerte macht probleme!

ich definiere mir ein bytearray der größe 40 und setze die integer bzw cardinal-werte an die passende positionen im array! nun müßte ich noch die start und stopzeit für die suche definieren! Aber das bekomme ich nicht hin!

Wie kann ich nun den double-wert so setzen, dass das in delphi passt???

Wenn ich in Delphi das Datum 13.01.2005 11:39:11 in ein TDateTime wandel, dann sieht das folgendermassen aus:

Double-Wert: 38365,4855551852
Byte-Array[0..7] #19 #07 #AB #89 #AF #BB #E2 #40 (Hex-Werte)

Für jede hilfe dankbar!

Sowieso schon mal danke an euch, für die schnellen antworten.
Endlich mal ein forum, wo man nicht erst nach 1 Woche ne antwort bekommt!