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@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
