diff --git a/mainApk.pas b/mainApk.pas index f246e07..eeac3e4 100644 --- a/mainApk.pas +++ b/mainApk.pas @@ -1812,6 +1812,17 @@ begin begin FUrl := TNetEncoding.URL.Decode(Param('u')).Trim; FToken := TNetEncoding.URL.Decode(Param('t')).Trim; + // SAVE ENREGISTRE. L'URL et le jeton n'etaient retenus qu'apres une + // reponse du depot : enregistres puis l'app fermee avant tout + // telechargement, ils avaient disparu au lancement suivant. Des valeurs + // fausses se corrigent comme elles se sont tapees ; seul le mot de passe + // de synchro reste hors de ce fichier (il n'y est pas protege). + if (FUrl <> '') and (FToken <> '') then + try + SaveDeviceSettings(FUrl, FToken); + except + on E: Exception do Log('settings not saved: ' + E.Message); + end; FPwd := TNetEncoding.URL.Decode(Param('p')); if FPwd <> FPwdShown then begin