Código Delphi [-] ... implementation uses IdSNTP; function iNetDateTime(const aHost: string) : TDateTime; var idSNTP: TIdSNTP; begin idSNTP:= TIdSNTP.Create(nil); try idSNTP.Host := aHost; Result := idSNTP.DateTime; finally idSNTP.Free; end; end; ...
... implementation uses IdSNTP; function iNetDateTime(const aHost: string) : TDateTime; var idSNTP: TIdSNTP; begin idSNTP:= TIdSNTP.Create(nil); try idSNTP.Host := aHost; Result := idSNTP.DateTime; finally idSNTP.Free; end; end; ...
Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var dt: TDateTime; begin try dt := iNetDateTime('time.windows.com'); ShowMessage( DateToStr(dt) ); except // manejar el problema... ShowMessage('Error obteniendo la fecha'); end; end;
procedure TForm1.Button1Click(Sender: TObject); var dt: TDateTime; begin try dt := iNetDateTime('time.windows.com'); ShowMessage( DateToStr(dt) ); except // manejar el problema... ShowMessage('Error obteniendo la fecha'); end; end;