<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">2014-04-19 12:37 GMT-03:00 David Taylor <span dir="ltr"><<a href="mailto:david-taylor@blueyonder.co.uk" target="_blank">david-taylor@blueyonder.co.uk</a>></span>:<br>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">I have a version of the Now function which works in Windows and returns UTC.<br>


<br>
function NowUTC: TDateTime;<br>
var<br>
  system_datetime: TSystemTime;<br>
begin<br>
  GetSystemTime (system_datetime);<br>
  Result := SystemTimeToDateTime (system_datetime);<br>
end;</blockquote></div><div><br></div><div>I'm used this:</div><div><br></div><div><div>class function TDropboxOAuthUtil.GenerateTimeStamp: string;</div><div>{$IFNDEF FPC}</div><div>var</div><div>  VCurTime: TSystemTime;</div>

<div>{$ENDIF}</div><div>begin</div><div>{$IFNDEF FPC}</div><div>  GetSystemTime(VCurTime);</div><div>{$ENDIF}</div><div>  Result := IntToStr(DateTimeToUnix({$IFDEF FPC}LocalTimeToUniversal(Now){$ELSE}</div><div>    SystemTimeToDateTime(VCurTime){$ENDIF}));</div>

<div>end;</div></div><div><br></div>-- <br>Silvio Clécio<br>My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a>
</div></div>