Forum: Object-Pascal / Delphi-Language
Delphi
by nicodex,
17. Apr 2009
Ansonsten halt manuell: function WebKitTimeToStr(AWebKitTime: TWebKitTime): string;
const
MaxWebKitTimeStrLength = Length('18446744073709551615');
DecimalToCharacter: array of Char = '0123456789';
var
Index: Integer;
begin
SetLength(Result, MaxWebKitTimeStrLength);
for Index := MaxWebKitTimeStrLength downto 1 do
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by nicodex,
17. Apr 2009
Keine Ahnung, bei mir geht folgendes unter Delphi 2009:procedure TForm1.Button1Click(Sender: TObject);
resourcestring
StrWebKitTimeConvertError = 'Failed to convert WebKitTime to DateTime.';
var
DateTime: TDateTime;
begin
if WebKitTimeToDateTime(StrToInt64(Edit1.Text), DateTime) then
DateTimePicker1.DateTime := DateTime
else
raise...
Forum: Object-Pascal / Delphi-Language
Delphi
by nicodex,
17. Apr 2009
type
TWebKitTime = UInt64;
function WebKitTimeToDateTime(const AWebKitTime: TWebKitTime;
out ADateTime: TDateTime): Boolean;
var
SystemTime: TSystemTime;
begin
Result := FileTimeToSystemTime(TFileTime(AWebKitTime * 10), SystemTime);
if Result then
Forum: Object-Pascal / Delphi-Language
Delphi
by nicodex,
17. Apr 2009
Nö, 19:16 (20:16 ist die lokale Zeit bei dir).
Windows verwendet ein ähnliches Zeitformat für TFileTime - nur in 100 Nanosekunden anstatt Mikrosekunden:
type
TWebKitTime = UInt64;
function WebKitTimeToDateTime(const AWebKitTime: TWebKitTime;
out ADateTime: TDateTime): Boolean;
var