Tout en respectant ta philosophie d'écriture de ton code, cette modification permet de ne plus tenir compte des info EXIF pour l'affichage de tes images.
De la même manière que les images miniatures sont dans un dossier que tu as nommé mini,
les images à visualiser seront sauvegardées dans le dossier images. La sauvegarde supprime les info EXIF.
Cette méthode permet de préserver les images originales.
Code : Tout sélectionner
UseJPEGImageEncoder()
UseJPEGImageDecoder()
UseGIFImageDecoder()
UsePNGImageDecoder()
Repertoire$ = GetCurrentDirectory()
viguette=1
colonne=8
cmb=0
If ExamineDirectory(0, Repertoire$, "*.*")
If CreateFile(0, Repertoire$+"index.html") ; Ouvre un fichier existant ou en crée un nouveau s'il n'existait pas
; FileSeek(0, Lof(0)) ; Place le pointeur à la fin du fichier en utilisant le résultat de Lof()
Else
MessageRequester("Erreur","Fabrication HTML impossible") : End
EndIf
WriteStringN(0, "<!DOCTYPE html>")
WriteStringN(0, "<html lang="+#DQUOTE$+"fr"+#DQUOTE$+">")
WriteStringN(0, "<head>")
WriteStringN(0, "<title>SPH</title>")
WriteStringN(0, "<meta http-equiv="+#DQUOTE$+"X-UA-Compatible"+#DQUOTE$+" content="+#DQUOTE$+"IE=edge"+#DQUOTE$+">")
WriteStringN(0, "<meta charset="+#DQUOTE$+"utf-8"+#DQUOTE$+" />")
WriteStringN(0, "</head>")
WriteStringN(0, "<body background="+#DQUOTE$+"fond.gif"+#DQUOTE$+">")
WriteStringN(0, "<center>")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
file$ = LCase(DirectoryEntryName(0))
Debug file$
Type$ = GetExtensionPart(file$)
Debug type$
If (type$="jpg" Or type$="jpeg" Or type$="bmp" Or type$="gif" Or type$="png") And file$<>"fond.gif"
;creer une mini image
If viguette=1
If wwww=0
CreateDirectory(Repertoire$+"mini")
CreateDirectory(Repertoire$+"images")
wwww=1
EndIf
LoadImage(0,Repertoire$+file$)
CopyImage(0,1)
SaveImage(1,Repertoire$+"images/"+ file$, #PB_ImagePlugin_JPEG, 10)
ResizeImage(1, 128,100)
SaveImage(1,Repertoire$+"mini/"+file$, #PB_ImagePlugin_JPEG)
FreeImage(1)
EndIf
WriteStringN(0,"<td width='55' align=center valign=center>")
WriteStringN(0,"<a href=" + #DQUOTE$+"images/" + file$ + #DQUOTE$ + " target="+#DQUOTE$+"_blank"+#DQUOTE$+">")
WriteStringN(0,"<img src="+ #DQUOTE$+"mini/" + file$ + #DQUOTE$ + " border=1></a>")
WriteStringN(0,"</td>")
cmb+1
If cmb>=colonne
cmb=0
WriteStringN(0,"<br />")
EndIf
EndIf
EndIf
Wend
FinishDirectory(0)
WriteStringN(0,"</body>")
WriteStringN(0,"</html>")
CloseFile(0)
EndIf
Sur le serveur (
free chez toi) il suffit de transférer le fichier
index.html + le dossier
mini + le dossier
images.
Ton code mériterait un carrossage un peu plus chiadé.
- Sélection du dossier des images à lire.
- Sélection des images à prendre en compte.
- Taille des miniatures.
- Choix d'une couleur de fond ou image de fond.
- Saisir le titre à afficher dans l'onglet.
Ooops j'oubliais : Tu vas devoir coder des fenêtres et des gadgets.
En tout cas merci pour ce partage.
