как расшифровать TTimeStamp

[impeee]

всем привет)

на удаленном сервере генерируется число вида '1392544270' посредством PHP, я парсю его с помощью idHTTP, получаю.. мне нужно преобразовать его во время, хоть какого-то приемлимого человеческого вида )) помогите, пожалуйста!

попробовал извратиться))

stamp: TTimeStamp;
...
 DateTimeToStr(TimeStampToDateTime(stamp))

ничего хорошого не вышло.. )

[Аватар]

....................

[impeee]

Сообщение от Аватар

....................

))

я получаю метку времени с сайта в формате WideString посредством парсинга, теперь его нужно перегнать как-то в TTimeStamp? но как?

[doktor255]

Uses: DateUtils
...
procedure TForm1.Button1Click(Sender: TObject);
var ADateTime: TDateTime;
AString: string;
begin
ADateTime := UnixToDateTime(1392544270);
DateTimeToString(AString, 'dd/mm/yy hh:mm:ss', ADateTime);
ShowMessage(AString);
end;

16.02.14 09:51:10
Время соответственно

DateTimeToString(AString, 'hh:mm:ss', ADateTime);

[impeee]

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

procedure TForm1.Button1Click(Sender: TObject);
var ADateTime: TDateTime;
AString: string;
begin
ADateTime := UnixToDateTime(1392544270);
DateTimeToString(AString, 'dd/mm/yy hh:mm:ss', ADateTime);
ShowMessage(AString);
end;

16.02.14 09:51:10

Время соответственно
DateTimeToString(AString, 'hh:mm:ss', ADateTime);

Спасибо большущее, добрый человек!

[Аватар]

 Label1.Caption:=DateTimeToStr(UnixToDateTime(StrToInt('1392544270')));

Не видел сообщения от doktor255

[impeee]

Сообщение от Аватар

 Label1.Caption:=DateTimeToStr(UnixToDateTime(StrToInt('1392544270')));

Не видел сообщения от doktor255

Все равно, большое спасибо!

[doktor255]

Тогда уж так....

Label1.Caption:=DateTimeToStr(UnixToDateTime(1392544270));

[Аватар]

Лучше это когда константа, а у ТС в строковом виде, все равно будет использовать StrToInt

[impeee]

Сообщение от Аватар

Лучше это когда константа, а у ТС в строковом виде, все равно будет использовать StrToInt

так и сделал )