Is not timeout 1ms too low? Try to increase it to value 1000.
16. července 2015 5:22:31 SELČ, Joshua <joshua__...@hotmail.com> napsal:
>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
--
Odesláno z mého telefonu s Androidem pomocí pošty K-9 Mail. Omluvte prosím moji
stručnost.
------------------------------------------------------------------------------
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
