F16 FileTime und FileDate in Delphi richtig anzeigen

pvs-deck

PowerUser

Geschlecht:
Alter: 54
Beiträge: 1343
Dabei seit: 02 / 2009

Betreff:

F16 FileTime und FileDate in Delphi richtig anzeigen

· Gepostet: 06.01.2020 - 20:17 Uhr · #1

Hallo rolf,

ich bekomme ja beim "F16_FindNext()" einen Verzeichniseintrag und im Record unter
SR.Dir.WrAccTime und SR.Dir.WrAccDate. Beides sind vom Datentyp WORD.

Wie ist das Datum / Zeit in dem Word gespeichert?

Bei der Uhrzeit könnte ich mir bei einem WORD eine BCD vorstellen

Code

BITs:
<15 14 13 12>  2  // h 10er
<11 10 09 08>  0  // h 1er
<07 06 05 04>  2  // m 10er
<03 02 01 00>  0  // m 1er

Aber wie ist das beim Datum aufgebaut?

Ich muss für den Filetransfer über USB das Datum und Uhrzeit in beide Richtungen erhalten, also muss ich das auf beiden Systemem erstellen können. Als String möchte ich das nur sehr ungerne machen.

Thorsten

rage

Benutzer

Geschlecht: keine Angabe
Alter: 65
Homepage: processanalytik.de
Beiträge: 237
Dabei seit: 02 / 2007

Betreff:

Re: F16 FileTime und FileDate in Delphi richtig anzeigen

· Gepostet: 07.01.2020 - 08:56 Uhr · #2

Guten Morgen,

Code

wFatDate
The MS-DOS date. The date is a packed value with the following format.
Bits   Description
0-4   Day of the month (1–31)
5-8   Month (1 = January, 2 = February, and so on)
9-15   Year offset from 1980 (add 1980 to get actual year)

wFatTime
The MS-DOS time. The time is a packed value with the following format.
Bits   Description
0-4   Second divided by 2
5-10   Minute (0–59)
11-15   Hour (0–23 on a 24-hour clock)

Quelle:
Dekodieren kann man das bequem mit Delphi.

Code

  var FileDate  : Integer;
        FDate     : TDateTime;
......
  LongRec(FileDate).Lo:=  Time;//(CMD.Data[0]*256)+CMD.Data[1];
  LongRec(FileDate).Hi:=  Date;//(CMD.Data[2]*256)+CMD.Data[3];
  Try
    FDate:=SysUtils.FileDateToDateTime(FileDate);
  except
    FDAte:=0;
  end;

LG Ralf

pvs-deck

PowerUser

Geschlecht:
Alter: 54
Beiträge: 1343
Dabei seit: 02 / 2009

Betreff:

Re: F16 FileTime und FileDate in Delphi richtig anzeigen

· Gepostet: 07.01.2020 - 10:30 Uhr · #3

Zitat geschrieben von rage

Guten Morgen,

Code

Quelle:
Dekodieren kann man das bequem mit Delphi.

Code

LG Ralf

Hallo Ralf,

klasse, das setzte ich später gleich mal um.

Danke

Thorsten

pvs-deck

PowerUser

Geschlecht:
Alter: 54
Beiträge: 1343
Dabei seit: 02 / 2009

Betreff:

Re: F16 FileTime und FileDate in Delphi richtig anzeigen

· Gepostet: 07.01.2020 - 22:44 Uhr · #4

Hallo Ralf,

hat funktioniert

Thorsten

Der an diesem Beitrag angefügte Anhang ist entweder nur im eingeloggten Zustand sichtbar oder die Berechtigung Deiner Benutzergruppe ist nicht ausreichend.

rage

Benutzer

Geschlecht: keine Angabe
Alter: 65
Homepage: processanalytik.de
Beiträge: 237
Dabei seit: 02 / 2007

Betreff:

Re: F16 FileTime und FileDate in Delphi richtig anzeigen

· Gepostet: 08.01.2020 - 10:45 Uhr · #5

Hey Thorsten,

freut mich.

LG Ralf

F16 FileTime und FileDate in Delphi richtig anzeigen

Registrierte in diesem Topic