3 respuestas en este tema

[el-mono]

Buenas tardes/ noches para todos y todas. Aunque pensándolo bien al parecer no hay en este foro mujeres ?  

 

 Bueno a tema:

 

Tengo una aplicación de escritorio que funciona en Red local y la cual hasta ahora la estaba comercializando como un producto sin suscripciones ni abonos mensuales solo un único pago y por actualizaciones un porcentaje sobre el costo original.

 

Lo que quiero ahora a partir de este año (y aquí es donde necesito de sus consejos u observaciones) es poder cobrar una suscripción por el uso del sistema un canon anual o mensual, pero me encuentro con el problema de como mi sistema funciona en Local (por ahora no tengo tiempo de adaptar todo el sistema a la bendita Nube). Como podría hacer para controlar su uso, yo había pensado una tabla en algún servidor en la nube donde leer y preguntar por el cliente, pero no se si es lo adecuado.

 

La pregunta:

 

Como harían ustedes en este caso ? 

Alguien tiene algo parecido a mi caso ?

Algun consejo ?

 

 

 

 

[FerCastro]

Hola Mono,
 
Tuve hace unos años la necesidad de implementar una solución como la que tu planteas y lo que hice fue lo siguiente:
 
- Una tabla local en SQLite encriptada, con la fecha de activación del sistema. 
- Una llamada a una función en mi página web que te devuelve la fecha. Usas Indy y la función en PHP.
- Cuando el cliente desea hacer una actualización y ya pasó un año, pues el sistema le avisa.
 
La verdad es que no es nada complicado:
 

php

procedure TFMain.bUpdateClick(Sender: TObject);
  var
  lHTTP: TIdHTTP;
  Result :String;
  nPos: Integer;
  nAnio: String;
  nMes: String;
  nDia: String;
  odFechaActual : TDateTime;
begin
 
  Try
    lHTTP := TIdHTTP.Create(nil);
    try
       Result := lHTTP.Get('http://www.midireccion.com/fecha.php');
    finally
      lHTTP.Free;
    end;
  Except
    MessageBox(handle, 'No ha podido validarse el sistema. Revise su conexión a internet',FMain.oVariables.cVersion, MB_ICONWARNING or MB_OK);
    EXIT;
  End;
  //-- <isotime>2014-11-20
  //-- Buscar la cadena de la fecha local
  nAnio := AnsiMidStr(Result,2, 4);
  nMes :=AnsiMidStr(Result, 6, 2);
  nDia :=AnsiMidStr(Result, 8, 2);
  odFechaActual :=  StrToDate(nDia+'/'+nMes+'/'+nAnio);
  //-- Se modifica el now por la fecha obtenida del web service de la página web
  //-- Vamos a revisar que el sistema tenga menos de un año
  If DaysBetween(odFechaActual, FMain.oVariables.dFechaRegistro) <= 365 then
    auAutoUpgrader1.Checkupdate
  else
    Begin
      //-- Manejador de licencias
      FManejoLicencias.Show;
    End;
  //-------------------------------------------------------------------------------------------------------
 
end;

Y la parte de php es simple:

 

php

<?php
$header = "Content-Type: application/json";
header($header);
 
 
$date = date("Ymd");
print json_encode($date);
?>

Cuando inicio mi aplicación leo el dato de la tabla sqlite, lo convierto a fecha para usarlo cuando se desea generar la actualización del sistema. Si el cliente paga la renovación del soporte y actualización, se le envía una llave con los datos de renovación, entre ellos la fecha de renovación la cual se actualiza y listo.

 

Si tienes dudas por favor contactame, será una placer ayudarte, y si alguien tiene una idea para agregar seguridad a este método de validación, bienvenido.

 

 

[egostar]

Buenas tardes/ noches para todos y todas. Aunque pensándolo bien al parecer no hay en este foro mujeres ?

 

 

Si que las hay

 

Saludos

[el-mono]

FerCastro muchísimas gracias hermano.