Un catalogue de photos de fleurs, avec KBDD, affichage HTML

Nouvelle version:
Le programme utilise maintenant la version de ce jour de KGF.dll.
Il y a maintenant une petite fenêtre indiquant "opération en cours" lors de la phase de démarrage.

Cette version apporte la reconnaissance automatique du format portrait/paysage des images pour le mode d'affichage HTML. Pour cela, un nouveau champ "Format" est ajouté à la base. Ceci s'applique automatiquement pour toute nouvelle création de base.

Pour les bases existantes, il n'est pas besoin de les supprimer pour les recréer. En effet, le programme reconnaît automatiquement que la base ouverte dans le menu Fichiers est du modèle précédent et ajoute le nouveau champ à chaque enregistrement, vérifie le format de la photo de chaque enregistrement et dépose le résultat dans ce nouveau champ.

Bien sûr, ceci conduit à une mise à jour automatique de chaque enregistrement. Et donc, à un doublement du contenu de la base: l'ancien enregistrement sans ce champ, marqué "supprimé", et le nouveau avec ce champ. Et donc, le programme effectue automatiquement une fonction SqueeezKBDD pour "tasser" l base. Le résultat final est une base purgée, réindéxée proprement, avec chaque enregistrement marqué avec l'indicateur de format de l'image. Pendant tout ce processus, la petite fenêtre "opération en cours" est affichée, et la form 0 est inaccessible.

Biien entendu, toute nouvelle intégration remplira directement ce nouveau champ.

Maintenant, ayant choisi le format d'affichage HTML dans la fenêtre des options, on verra systématiquement des icônes rectangulaires pour chaque image, en portrait ou paysage suivant l'état de la photo.

En voici un exemple:

Nouvelle version:
En profitant de la toute nouvelle version de KGF.dll (celle avec le nouvel ojet 7Zip), j'ai ajouté les lignes
"Exporter KBDD en ZIP"
"Importer KBDD de ZIP"
Le gain de place est assez spectaculaire, et c'est normal: la base est un simple fichier texte dont la majeure partie des caractères sont des espaces !

Le code de cette version du programme contient une démonstration intéressante concernant l'utilisatioin de l'objet 7Zip.

En effet, on peut lire le contenu d'un fichier archive et déterminer ainsi si un fichier bien précis est présent dans l'archive. J'utilise cela pour vérifier lors de la fonction d'importation de la base à partir d'une archive, si l'archive choisie contient bien le fichier voulu, c'est-à-dire Fleurs.KBDD. Ceci est fait dans la sub ImporterZip(), par le code suivant:

Code:

 ZIP% = dll_call0("Create7Zip")
  res% = dll_call2("CompressedFile7Zip",ZIP%,adr(zip$))
  options$ = ""    
  res% = dll_call3("List7Zip",ZIP%,adr(options$),handle(no_status%))
  s$ = NomKBDD$ + ".KBDD"
  ok% = 0
  for i%=1 to count(no_status%)
    if instr(item_read$(no_status%,i%),s$)>0
      ok% = 1
      exit_for
    end_if
  next i%
  if ok%=0
    message "Cette archive ne contient pas la base de Fleurs."
    ZIP% = dll_call1("Delete7Zip",ZIP%)
    exit_sub
  end_if

Ensuite, j'importe sélectivement uniquement ce fichier (au cas où le fichier archive contiendrait d'autres fichiers):

Code:

 file$ = "Fleurs.KBDD"
  res% = dll_call3("AddFile7Zip",ZIP%,adr(file$),adr(options$))
  options$ = "-y"
  res% = dll_call4("Extract7Zip",ZIP%,0,adr(options$),handle(no_status%))
  ZIP% = dll_call1("Delete7Zip",ZIP%)

L'option -y permet le remplacement automatique d'une base éventuellement existante dans le dossier courant par celle provenant du fichie archive, sans question de confirmation.

Ceci est juste un exemple de ce que lon peut faire avec 7Zip,, mais cela montre la puissance de cet objet.