Hola.
Cita:
Empezado por MacStreet
...
funciona perfectamente y todo, el problema viene a ser cuando tu cambias la fecha de tu ordenador la cambias al dia : "10/09/2017"
vuelve a funcionar la aplicacion, asi ya se haya vencido, estube pensando en que ya no usara la fecha por defecto del ordenador si no que usé la fecha del internet (obtener hora desde internet ) pero no sabria como cambiar el valor por defecto que tiene el datetime, estube viendo y me dijieron que use el "IdSNTP1" .
...
|
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;
...
Ejemplo de uso:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
dt: TDateTime;
begin
try
dt := iNetDateTime('time.windows.com');
ShowMessage( DateToStr(dt) );
except ShowMessage('Error obteniendo la fecha');
end;
end;
En el siguiente enlace tenes una lista con servidores horarios:
Servidores NTP
Saludos