Offline Activation

Hi!. My delphi code to activating and checking for a valid license is:

procedure TFormMain.FormCreate(Sender: TObject);var gr : IsGenuineResult;begin

Try gr := TurboActivate.IsGenuine(10, 0, true,true);

isActivated := (gr = Genuine) or (gr = GenuineFeaturesChanged) or (gr = InternetError);

except on E : Exception do ShowMessage('Failed to check if activated: ' + E.Message);end;

If isActivated = false Then begin ShellExecute(Handle, 'open', PChar('.\TurboActivate.exe'), nil, nil, SW_SHOW); application.Terminate; end else MaxRooms := WideCharToString(TurboActivate.GetFeatureValue('rooms'));

But this works only when i have active internet connection,o every time i start my software its checks!My Question is: When my license is activated and i have insert a valid product key how can i start my software offline without all the time checking the activation?Thanks

gr := TurboActivate.IsGenuine(10, 0, true,true);

You should always have a grace period. And checking every 10 days is probably overkill. So, use the default of 90, 14.

And my guess is that you don't actually want the 4 parameter to be true. Just copy the code from the example, it's what 99% of our customers need:

gr := TurboActivate.IsGenuine(90, 14, true);
But this works only when i have active internet connection,o every time i start my software its checks!

What do you mean? IsGenuine() will always check if the license is valid, even if the offline activation was done instead of online activation. The only difference is that after X days (10 in your case) if the activation was done offline IsGenuine will still say they're activated.

Make sense?

Also, if at any time IsGenuine can successfully re-verify with the servers it turns the offline activation to an online activation.

Reply
Discard post