F16 FileTime und FileDate in Delphi richtig anzeigen

pvs-deck

PowerUser

Gender:
Age: 53
Homepage: pvs-deck.de
Posts: 1341
Registered: 02 / 2009

Subject:

F16 FileTime und FileDate in Delphi richtig anzeigen

· Posted: 06.01.2020 - 20:17 · #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

Gender: n/a
Age: 65
Homepage: processanalytik.de
Posts: 237
Registered: 02 / 2007

Subject:

Re: F16 FileTime und FileDate in Delphi richtig anzeigen

· Posted: 07.01.2020 - 08:56 · #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

Gender:
Age: 53
Homepage: pvs-deck.de
Posts: 1341
Registered: 02 / 2009

Subject:

Re: F16 FileTime und FileDate in Delphi richtig anzeigen

· Posted: 07.01.2020 - 10:30 · #3

Quote by 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

Gender:
Age: 53
Homepage: pvs-deck.de
Posts: 1341
Registered: 02 / 2009

Subject:

Re: F16 FileTime und FileDate in Delphi richtig anzeigen

· Posted: 07.01.2020 - 22:44 · #4

Hallo Ralf,

hat funktioniert

Thorsten

Attachments


Filename:	07-01-_2020_22-42-03.jpg
Filesize:	160.75 KB
Title:	SDDisk
Information:	SDDisk
Download counter:	103

rage

Benutzer

Gender: n/a
Age: 65
Homepage: processanalytik.de
Posts: 237
Registered: 02 / 2007

Subject:

Re: F16 FileTime und FileDate in Delphi richtig anzeigen

· Posted: 08.01.2020 - 10:45 · #5

Hey Thorsten,

freut mich.

LG Ralf

F16 FileTime und FileDate in Delphi richtig anzeigen

Attachments

Registered users in this topic