|
EJEMPLO 4
Items
En este ejemplo aprenderá a
Esquemas de protección
Diagrama de flujo
Breve práctica con el ejemplo 4a
En este ejemplo aprenderá a:
1. Utilizar el componente AVLock SIMPLE en un esquema de protección con múltiples módulos (esquema D).
Esquemas de protección
Este ejemplo utiliza el esquema D
Esquema D
Y lo implementa como se muestra en el siguiente diagrama de flujo:
Diagrama de flujo
|
procedure TForm1.FormCreate(Sender: TObject);
begin
DoRegister(False);
end;
procedure TForm1.DoRegister(force:boolean);
var F : TRegForm;
ok:boolean;
begin
F:=TRegForm.Create(nil); //Create the registration Form
try
if AVLockS41.IsLocal and (force or (keydata.DaysLeft < 15)) then F.ShowModal;
finally
FreeAndNil(F);
end;
if (keydata.Status = Registered) then begin
Button1.Enabled := (IsValueOn(keydata.Values,3,0));
Button2.Enabled := (IsValueOn(keydata.Values,3,1));
Button3.Enabled := (IsValueOn(keydata.Values,3,2));
end else begin
Button1.Enabled := False;
Button2.Enabled := False;
Button3.Enabled := False;
end;
end;
|
El esquema es muy parecido al ejemplo 3, lo único que cambia es que se ha eliminado el manejador del evento OnPaint por lo que ahora el formulario principal será accesible siempre, aún en estado no registrado.
Breve práctica con el ejemplo 4a
Desde el IDE de Delphi Abra el ejemplo 4a (\Examples\4\a)
Ejecutar la aplicación
Presione el botón  o F9 para iniciar la ejecución del programa. En unos instantes podrá ver el formulario de registración:
Note que el estado corriente de registración es "Not registered" (No registrado). Esto es debido a que se ejecutó por primera vez el programa y en las versiones (a) de desarrollo no se inicia automáticamente el periodo trial.
Tenemos dos alternativas para iniciar el periodo trial:
a) Método fuera de linea. Utilizando el método MakeTrial() mediante el botón [Start with MakeTrial()].
b) Método en linea. Utilizando el OLM básico con el botón [Start with Basic OLM]. El demo está configurado para acceder al sitio www.av-soft.com que podrá utilizar para hacer las prácticas.
Si estando en estado no registrado se hace click sobre el botón [Continue >>] la aplicación no terminará como en el ejemplo 3 sino que continuará y accederá al formulario principal "MAIN FORM", pero allí solo tendrá habilitado el botón [Free Features] que accede a las funcionalidades de libre acceso. Esta es la única diferencia con el ejemplo 3.
No se muestran aquí el resto de los pasos por ser los mismos que ya se explicaron en el ejemplo 3.
| 
