I have a version of the Now function which works in Windows and returns UTC.

function NowUTC: TDateTime;
var
   system_datetime: TSystemTime;
begin
   GetSystemTime (system_datetime);
   Result := SystemTimeToDateTime (system_datetime);
end;

I've had an enquiry for a version of this for Lazarus, to run on the Raspberry Pi (Debian) but my Linux knowledge isn't up to writing an equivalent. I've searched and don't see GetSystemTime in FreePascal.

Can anyone help with this apparently simple problem?

Thanks,
David

2014-04-19 12:37 GMT-03:00 David Taylor :

I'm used this:

class function TDropboxOAuthUtil.GenerateTimeStamp: string;
{$IFNDEF FPC}
var
  VCurTime: TSystemTime;
{$ENDIF}
begin
{$IFNDEF FPC}
  GetSystemTime(VCurTime);
{$ENDIF}
  Result := IntToStr(DateTimeToUnix({$IFDEF
FPC}LocalTimeToUniversal(Now){$ELSE}
    SystemTimeToDateTime(VCurTime){$ENDIF}));
end;

El 19/04/14 17:37, David Taylor ha escrit:

Can anyone help with this apparently simple problem?

lazutf8sysutils has a NowUTC function already defined

Bye

El 19/04/14 20:55, Luca Olivetti ha escrit:

BTW, the name of the unit isn't really meaningful (NowUTC and GetTickCount64, the only 2 functions defined in that unit, don't seem to have any relation with utf8).

Bye

Oh, that's /most/ helpful! Many thanks

Luca Olivetti wrote

BTW, the name of the unit isn't really meaningful (NowUTC and GetTickCount64, the only 2 functions defined in that unit, don't seem to have any relation with utf8).

The idea was that one day it would contain utf8 versions of sysutils routines too + extra functions which are alternatives to rtl ones but not related to text encoding like the 2 you mention.

IMHO, these functions would be better located in the FPC RTL, as they are more "general" than what the Lazarus library is about.

Same might be true for UTF8 helper functions.

-Michael

Michael Schnell wrote

IMHO, these functions would be better located in the FPC RTL, as they are more "general" than what the Lazarus library is about. Same might be true for UTF8 helper functions.

Some years ago when the units were created I offered to add them to the RTL and they were rejected with the argumentation that the RTL does not support UTF-8 and doesn't plan to. So that's why they are located in LazUtils instead.