Как преобразовать 20160911195120 в TDateTime?

@GringoV · Регистрация: 29.11.2014

Студворк — интернет-сервис помощи студентам

Использую Инди, после цикла

Delphi

...     
List;
 
                        Memo1.Lines.Clear;
 
 
                         for i := 0 to IdFTP.ListResult.Count-1 do
                         begin
                         Memo1.Lines.Add(IdFTP.ListResult[i]);
                         end;
...

получаю информацию о файлах на сервере в таком формате

Delphi

size=0;type=cdir;create=20160911195120;modify=20160912135842;windows.lastaccesstime=20160912135842;win32.ea=0x00002010; .
size=0;type=pdir;create=20160911195120;modify=20160912135842;windows.lastaccesstime=20160912135842;win32.ea=0x00002010; ..
size=0;type=dir;create=20160912102900;modify=20160912102900;windows.lastaccesstime=20160912102900;win32.ea=0x00002010; 2016
size=2360;type=file;create=20160912135842;modify=20160912135842;windows.lastaccesstime=20160912135842;win32.ea=0x00002020; cancel(1).png

С помощью регулярок вот это create=20160911195120 я преобразовал в список из

20160911195120
20160912102900
...
и так далее

Но как этот timestamp преобразовать в TDateTime?

Пробовал в таком духе

Delphi

...
var   LTime: TFileTime;
  Systemtime: TSystemtime;
 
 
 
      for i := 0 to Memo1.Lines.Count-1 do
                               begin
 
                               FileTimeToLocalFileTime( '20160911195120', LTime);
                               FileTimeToSystemTime( LTime, SystemTime );
 
                               Memo2.Lines.Add(
 
                                DateTimeToStr(
                                SystemTimeToDateTime( SystemTime)
                                              )
 
 
                              );
 
 
                               end;

Но не признает он это число. Как быть?

@droider · 12.09.2016, 19:31

Сообщение от GringoV

как этот timestamp преобразовать в TDateTime?

Delphi

1	SysUtils.TimeStampToDateTime(...);

@GringoV · 12.09.2016, 19:38 **[ТС]**

Попробовал

Delphi

1	System.SysUtils.TimeStampToDateTime(20160911195120);

Не понимает...
[dcc32 Error] uVisualFrame_PSFTPCLient.pas(696): E2010 Incompatible types: 'TTimeStamp' and 'Int64'

Может есть ещё какие-то варианты?

@TimKruz · 12.09.2016, 19:42

Эх, сразу видно, что кое-кто не изучал Pascal в школе...

Delphi

uses
  System.SysUtils;
 
var
  DT: TDateTime;
  F: TFormatSettings;
  S: String;
 
begin
  ReadLn(S);
  // Форматируем запись
  S := Copy(S, 1, 4) + '/' + Copy(S, 5, 2) + '/' + Copy(S, 7, 2) + ' ' +
    Copy(S, 9, 2) + ':' + Copy(S, 11, 2) + ':' + Copy(S, 13, 2);
  // Задаём формат для StrToDateTime
  GetLocaleFormatSettings(0, F);
  F.ShortDateFormat := 'yyyy/mm/dd';
  F.ShortTimeFormat := 'hh:nn:ss';
  F.DateSeparator := '/';
  F.TimeSeparator := ':';
  // Собственно конвертируем строку в TDateTime
  DT := StrToDateTime(S, F);
  WriteLn(DateTimeToStr(DT));
end.

Сообщение от droider

SysUtils.TimeStampToDateTime(...);

Чтобы использовать эту функцию, нужно сначала конвертировать строку в TimeStamp, а это довольно сложно.

Сообщение от GringoV

Не понимает...

И правильно делает - читай справку с описанием этой функции (поставить курсор в редакторе на неё -> нажать F1).

@FIL · 12.09.2016, 19:42

Если под 20160911195120 подразумевается 11.09.2016 19:51:20, то можно и самому простенький парсер написать.

@GringoV · 12.09.2016, 19:44 **[ТС]**

Ребята, спасибо Вам, что отписались!!! Сейчас буду пробовать, напишу здесь о результатах.
А Паскаль в школе - да))) Не до такой степени видимо изучал.

@droider · 12.09.2016, 19:47

Сообщение от GringoV

ещё какие-то варианты?

Delphi

uses 
DateUtils;
//...
Edit1.Text :=DateToStr(UnixToDateTime(20160911195120));

@GringoV · 12.09.2016, 19:58 **[ТС]**

DateToStr(UnixToDateTime) дает
04.11.51019

Я так понимаю, если это число разобрать 20160911195120, то получится что то вроде
2016 09 11 195120
YYYY MM DD

А вот 195120 типо 19 51 20 ?
HH MM SS??

Добавлено через 3 минуты
Попробовал

Delphi

1	DateTimeToStr(UnixToDateTime(20160911195120))

получилось
04.11.51019 13:45:20

@droider · 12.09.2016, 19:58

Сообщение от GringoV

не признает он это число. Как быть?

Delphi

....
for i := 0 to Memo1.Lines.Count-1 do
                               begin
 
                               FileTimeToLocalFileTime( Memo1.Lines[i], LTime);
                               FileTimeToSystemTime( LTime, SystemTime );
...

А так?

@TimKruz · 12.09.2016, 19:58

Сообщение от GringoV

Я так понимаю, если это число разобрать 20160911195120, то получится что то вроде
2016 09 11 195120
YYYY MM DD
А вот 195120 типо 19 51 20 ?
HH MM SS??

Это же очевидно. Никто не будет писать секунды между часами и минутами.
Вариант разбора этой строки я уже привёл (Copy() копирует символы из строки).

@GringoV · 12.09.2016, 20:08 **[ТС]**

TimKruz, может и очевидно. Ты прав, но вот что, перезалил файл на FTP, по идее, на сервере он должен создаться вот прямо сейчас, получил
20160912170550 = 2016 09 12 17 05 50

А на часах 12:09:2016 22:07

Кто врёт?))

@droider · 12.09.2016, 20:10

Не по теме:

Сообщение от droider

А так?

Понял сам, что не пройдет :)

@GringoV · 13.09.2016, 00:37 **[ТС]**

droider, так не сканает, потому что у FileTimeToLocalFileTime в первом аргументе другой тип

Delphi

1	Winapi.Windows.PFileTime

Добавлено через 4 минуты
Короче, я понял, что можно распарсить, но время он не по локали показывает, у меня GMT+5,
20160912171528

а на часах 22 15

Разница ровно в 5 часов

Выходит либо руками эту разницу относительно GMT 0 учитывать, чтобы корректно время считать, либо с помощью правильной функции преобразовывать, но какой?

Блин, первый раз с этим сталкиваюсь.

Добавлено через 5 минут
По идее вот этот код

Delphi

                                FFileTime.dwLowDateTime:=20160911195120;
                                FFileTime.dwHighDateTime:=20160911195120;
 
                            
                               FileTimeToLocalFileTime( FFileTime, LTime );
                               FileTimeToSystemTime( LTime, SystemTime );
 
                               Memo2.Lines.Add(
 
                                DateTimeToStr(
                                SystemTimeToDateTime( SystemTime)
                                              )
 
 
                              );
end;

близок к правде, но я не знаю, что указать в

Delphi

1 2	FFileTime.dwLowDateTime FFileTime.dwHighDateTime

Потому что если оставить как есть, он считает ерунду
01.01.1601 5:00:00
и как ни странно - вот эту разницу в 5 часов показывает))))

Можно, конечно из этого всего слепить решение, но хотелось бы узнать как правильно - никто не знает?

Добавлено через 3 часа 57 минут
В общем, народ, решение такое...

Delphi

procedure TVisualFrame_PSFTPClient.bTestClick(Sender: TObject);
var
    FFileTimeLocalized:TFileTime;
    FFileTime:TFileTime;
    FLocalFileTime:TFileTime;
 
 
    SystemTimeLocalized:TSystemtime;
 
    SystemTime:TSystemtime;
 
 
    datetime: TDateTime;
    IndyString:String;
 
begin
 
IndyString:='20160912210450'; // <<Example
 
datetime := EncodeDateTime(StrToInt(Copy(IndyString, 1, 4)),
                            StrToInt(Copy(IndyString, 5, 2)),
                            StrToInt(Copy(IndyString, 7, 2)),
                            StrToInt(Copy(IndyString, 9, 2)),
                            StrToInt(Copy(IndyString, 11, 2)),
                            StrToInt(Copy(IndyString, 13, 2)), 0);
 
 
DateTimeToSystemTime(datetime,SystemTime);
SystemTimeToFileTime(SystemTime,FFileTime);
FileTimeToLocalFileTime(FFileTime,FFileTimeLocalized);
 
FileTimeToSystemTime(FFileTimeLocalized,SystemTimeLocalized);
 
ShowMessage( 'GMT Localized '+
DateTimeToStr(
SystemTimeToDateTime( SystemTimeLocalized))
 
);
 
 
ShowMessage( 'GMT 0 (Not Localized) '+
DateTimeToStr(datetime)
);
 
 
 
end;

Добавлено через 1 минуту
Всем спасибо за обсуждение и помощь! Удачи в кодинге. Тема закрыта.

Добавлено через 15 секунд
Всем спасибо за обсуждение и помощь! Удачи в кодинге. Тема закрыта.

Добавлено через 15 минут
Тоже самое в виде функции

Delphi

function IndyStringToLocalizeDateTimeString(IndyString:string):string;
var
    FFileTimeLocalized:TFileTime;
    FFileTime:TFileTime;
    FLocalFileTime:TFileTime;
 
 
    SystemTimeLocalized:TSystemtime;
 
    SystemTime:TSystemtime;
 
 
    datetime: TDateTime;
 
 
begin
 
//IndyString:='20160912210450'; // <<Example
 
datetime := EncodeDateTime(StrToInt(Copy(IndyString, 1, 4)),
                            StrToInt(Copy(IndyString, 5, 2)),
                            StrToInt(Copy(IndyString, 7, 2)),
                            StrToInt(Copy(IndyString, 9, 2)),
                            StrToInt(Copy(IndyString, 11, 2)),
                            StrToInt(Copy(IndyString, 13, 2)), 0);
 
 
DateTimeToSystemTime(datetime,SystemTime);
SystemTimeToFileTime(SystemTime,FFileTime);
FileTimeToLocalFileTime(FFileTime,FFileTimeLocalized);
 
FileTimeToSystemTime(FFileTimeLocalized,SystemTimeLocalized);
 
//Localized DateTime
Result:= DateTimeToStr(SystemTimeToDateTime( SystemTimeLocalized));
 
 
{
ShowMessage( 'GMT Localized '+
DateTimeToStr(
SystemTimeToDateTime( SystemTimeLocalized))
 
);
 
 
ShowMessage( 'GMT 0 (Not Localized) '+
DateTimeToStr(datetime)
);
 
}
 
end;

@FIL Модератор 3488 / 2611 / 741 Регистрация: 19.09.2012 Сообщений: 7,972
	12.09.2016, 19:42	5
	Если под 20160911195120 подразумевается 11.09.2016 19:51:20, то можно и самому простенький парсер написать. 0

@GringoV 16 / 16 / 1 Регистрация: 29.11.2014 Сообщений: 227
	12.09.2016, 19:44 [ТС]	6
	Ребята, спасибо Вам, что отписались!!! Сейчас буду пробовать, напишу здесь о результатах. А Паскаль в школе - да))) Не до такой степени видимо изучал. 0

@TimKruz 142 / 40 / 14 Регистрация: 16.06.2016 Сообщений: 239
	12.09.2016, 19:58	10
	Сообщение от GringoV Я так понимаю, если это число разобрать 20160911195120, то получится что то вроде 2016 09 11 195120 YYYY MM DD А вот 195120 типо 19 51 20 ? HH MM SS?? Это же очевидно. Никто не будет писать секунды между часами и минутами. Вариант разбора этой строки я уже привёл (Copy() копирует символы из строки). 0

@GringoV 16 / 16 / 1 Регистрация: 29.11.2014 Сообщений: 227
	12.09.2016, 20:08 [ТС]	11
	TimKruz, может и очевидно. Ты прав, но вот что, перезалил файл на FTP, по идее, на сервере он должен создаться вот прямо сейчас, получил 20160912170550 = 2016 09 12 17 05 50 А на часах 12:09:2016 22:07 Кто врёт?)) 0

@droider
	12.09.2016, 20:10 #12
	Не по теме: Сообщение от droider А так? Понял сам, что не пройдет :) 0