[fpc-pascal] getting system time in linux

[Jan De Bleser]

Thanks Rainer,
In the end I solved it using UnixToDateTime(FpTime), which is easier of 
course...

Rainer Stratmann schreef:
> Am Freitag, 10. April 2009 16:47 schrieb Jan De Bleser:
>
> You can try this. Not all uses are needed, you have to find out.
> Rainer
>
> uses
>  crt,
>  {$ifdef linux}
>  baseunix,
>  unix,
>  termio, // serial
>  linux,
>  sysutils,
>  dateutils,
>  unixutil;
>  {$else}
>  windows;
>  {$endif}
>
> procedure mylo_os_gettime( var hour , minute , second , sec1000 : word );
> var
> {$ifdef linux}  // LINUX
>  datetime : tdatetime;
> {$else}
>  st : systemtime;
> {$endif}
> begin
>  {$ifdef linux} // LINUX
>  datetime := time;
>  hour     := hourof( datetime );
>  minute   := minuteof( datetime );
>  second   := secondof( datetime );
>  sec1000  := millisecondof( datetime );
>  {$else}        // WINDOWS
>  getlocaltime( st );
>  hour    := st.whour;
>  minute  := st.wminute;
>  second  := st.wsecond;
>  sec1000 := st.wmilliseconds;
>  {$endif}
> end;
>
> procedure mylo_os_getdate( var year , month , day : word );
> var
> {$ifdef linux}
>  datetime : tdatetime;
> {$else}
>  st : systemtime;
> {$endif}
> begin
>  {$ifdef linux}
>  datetime := date;
>  year     := yearof( datetime );
>  month    := monthof( datetime );
>  day      := dayof( datetime );
>  {$else}
>  getlocaltime( st );
>  year   := st.wyear;
>  month  := st.wmonth;
>  day    := st.wday;
>  {$endif}
> end;
>
>
>
>   
>> Hi,
>>
>> How is it possible to get the system time in linux?
>> It used to be possible by using 'getsystemtime' of the unit oldlinux,
>> but this unit is no longer available on my compiler...
>>
>> The thing I want to use it for is: I get a packet form libpcap, with the
>> time of receival in system time.
>> I want to convert this time to system time by doing something like:
>> rcvTime := packet.rcvTime + (now - getSystemTime)
>>
>> Kind regards,
>>
>> Jan
>> _______________________________________________
>> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
>> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>>     
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>   

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20090410/2621b47f/attachment.html>