■ Introduction.
Local Forage (Ce n'est une erreur d'orthographe) est une bibliothèque JavaScript créée par la fondation Mozilla améliorant le processus de stockage hors ligne de données dans des applications web.
Nous verrons dans un premier temps comme créer un simple fichier texte en Local Forage et dans un deuxième temps, comment créer et lire un fichier JSON (C'est aussi un fichier texte) en Local Forage.
■ Objectif.
Créer un fichier de 10 lignes en Local Forage
- Pour créer un fichier nous allons utiliser la fonction CreateFile() que vous connaissez bien sauf que contrairement à PureBasic, cette fonction fait appel à une procédure (CallBack) pour connaitre l'état d'avancement de cette création.
Tout comme avec le langage PureBasic, le paramètre Flags permet de spécifier si le fichier est Ascii, UTF-8 ou Unicode. SpiderBasic permet d'ajouter la constante #PB_LocalStorage pour écrire ce fichier en LocalStorage et plus précisément en LocalForage.Result = CreateFile(#File, Filename$, Callback [, Flags])
- Pour la création des lignes nous utiliserons classiquement la fonction WriteStringN()
- Important : C'est la fonction CloseFile() déclenchera le callback de création du fichier.
■ Code.
Code : Tout sélectionner
EnableExplicit
Enumeration
#File
EndEnumeration
;Plan de l'application
Declare Start()
Declare onSaveFile(Status, Filename$, File, SizeRead)
Start()
; Création d'un fichier texte
Procedure Start()
Protected i
Debug "Création d'un fichier ...."
CreateFile(#File, "MyFile.txt", @onSaveFile(), #PB_LocalStorage | #PB_UTF8)
For i=0 To 9
WriteStringN(#File, "Line "+ Str(i))
Next
;Si le fichier n'est pas fermé alors pas de sauvegarde
CloseFile(#File)
EndProcedure
; Callback permettant de savoir si la sauvegarde est bien effectuée
Procedure onSaveFile(Status, Filename.s, File, SizeRead)
Select Status
Case #PB_Status_Saved
Debug "Fichier " + Filename.s + "(" + SizeRead + " bytes) sauvegardé"
Case #PB_Status_Error
Debug "Impossible de sauvegarder le fichier " + Filename
EndSelect
EndProcedure