Lukáš Gebauer <gebylist@...> writes:
>
> Dne 8.1.2015 v 22:06 Simon L napsal(a):
> > It seems that most NTP servers have been updated recently, which
> > causes SNTPSend.pas to stop working.
> >
>
> I am tested a few servers now, but all my NTP/SNTP queries working fine.
> Have you some non-working NTP server for testing?
>
> Thanks.
>
> ------------------------------------------------------------------------
Hi Lukas, I tried 0.pool.ntp.org and 1.pool.ntp.org, both don't seem to
work, not sure what went wrong? Thanks.
program Project2;
{$APPTYPE CONSOLE}
uses
ExceptionLog,
SysUtils, SNTPSend;
//main proc
var
sntp :TSNTPSend;
remoteTime:TDateTime;
begin
sntp:=TSNTPSend.Create;
sntp.Timeout:=1;
sntp.TargetHost:=ParamStr(2);
sntp.SyncTime:=TRUE;
writeln('Contacting ' + sntp.TargetHost + ' on port ' +
sntp.TargetPort);
try
try
if sntp.GetSNTP then
begin
remoteTime:= sntp.NTPTime;
writeln('Remote time is :' + DateTimeToStr(remoteTime)+' UTC');
end
else
writeln('Unable to retrieve remote time');
except
On E:Exception do WriteLn('Exception ' + E.ClassName + ': ' +
E.Message);
end;
finally
sntp.Free;
end;
end.
------------------------------------------------------------------------------
Don't Limit Your Business. Reach for the Cloud.
GigeNET's Cloud Solutions provide you with the tools and support that
you need to offload your IT needs and focus on growing your business.
Configured For All Businesses. Start Your Cloud Today.
https://www.gigenetcloud.com/
_______________________________________________
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public
