Create Thumbnail Images and Display in HTML

 Keywords:  create make thumb nail image HTML


AddExtender("WWIMG34I.DLL")

;Get Current Directory (Default for AskDirectory)
CurrFile=IntControl(1004, 0, 0, 0, 0)
Num=ItemCount(CurrFile,"\")
CurrDir=ItemRemove(Num, CurrFile,"\")


Dir=AskDirectory("Directory to Process","",CurrDir,"",0)

DirChange(dir)
Files=FileItemize(strcat(dir,"*.GIF|*.JPG"))
FileList=ItemSort(Files, @tab)
FileCount=ItemCount(FileList, @tab)

If !DirExist("%dir%\Thumbs") Then DirMake("%dir%\Thumbs")

HTML=FileOpen("%dir%\thumbs.html","WRITE")
FileWrite(HTML,"<HTML>")
FileWrite(HTML,"<HEAD>")
FileWrite(HTML,"<TITLE>Thumbnail Index</TITLE>")
FileWrite(HTML,'<style type="text/css">')
FileWrite(HTML,'<!--')
FileWrite(HTML,'a {color:#000099; text-decoration:none; font-weight: normal;}')
FileWrite(HTML,'a:hover {text-decoration:underline; font-weight: bold;}')
FileWrite(HTML,'body {background-color: #000000}')
FileWrite(HTML,'.style1 {color: #DDDDDD; font-family: Verdana, Arial; font-size: 12px; font-weight: normal;}')
FileWrite(HTML,'.style2 {color: #FFFFFF; font-family: Verdana, Arial; font-size: 14px; font-weight: normal;}')
FileWrite(HTML,'-->')
FileWrite(HTML,'</style>')
FileWrite(HTML,"</HEAD>")
FileWrite(HTML,'<BODY bgcolor="#000000">')
FileWrite(HTML,"<CENTER>")
FileWrite(HTML,"<BR>")
FileWrite(HTML,'<A HREF="..\home.html" class="style2">Back to Main Page</A>')
FileWrite(HTML,"<BR><BR>")
FileWrite(HTML,'<FONT COLOR="#DDDDDD" FACE="Verdana" Size="-1">Click on image to view it full size</FONT>')
FileWrite(HTML,"<BR>")
FileWrite(HTML,'<TABLE BORDER="1">')
FileWrite(HTML,"<TR>")

;Loop
y=0
For x=1 to FileCount
	Pic=ItemExtract(x, FileList, @tab)
	a=ImgInfo(Pic)
	Height=ItemExtract(1,a,@TAB)
	Width=ItemExtract(2,a,@TAB)
	RawName=ItemExtract(1,pic,".")

	ImgResize(Pic,"Thumbs\%Pic%",Height/5,Width/5,13,0) ;You may want change the /5 value depending on the size of your images
	FileWrite(HTML,'<TD ALIGN=CENTER><A HREF="Thumbs\%Rawname%.html"><IMG SRC="Thumbs\%Pic%"></A><BR><FONT Face="Verdana" size="-1" Color="#DDDDDD">%pic%</FONT></TD>')	

	;Generate a HTML page for every pic (again) with pointer back to the thumbnail index page
	;Could change the pointer to a onclick="history.back()" if you wanted to make it cleaner
		
		OutputFile=FileOpen("%dir%\Thumbs\%Rawname%.html","WRITE")
		FileWrite(OutputFile,'<HTML><CENTER>')
		FileWrite(OutputFile,'<head>')
		FileWrite(OutputFile,'<TITLE>%Pic%</TITLE>')
		FileWrite(OutputFile,'<style type="text/css">')
		FileWrite(OutputFile,'<!--')
		FileWrite(OutputFile,'a {color:#000099; text-decoration:none; font-weight: normal;}')
		FileWrite(OutputFile,'a:hover {text-decoration:underline; font-weight: bold;}')
		FileWrite(OutputFile,'body {background-color: #000000}')
		FileWrite(OutputFile,'.style1 {color: #DDDDDD; font-family: Verdana, Arial; font-size: 12px; font-weight: normal;}')
		FileWrite(OutputFile,'.style2 {color: #FFFFFF; font-family: Verdana, Arial; font-size: 14px; font-weight: normal;}')
		FileWrite(OutputFile,'-->')
		FileWrite(OutputFile,'</style>')
		FileWrite(OutputFile,'</head>')
		FileWrite(OutputFile,'<A HREF="..\thumbs.html" class="style2">Back to Thumbnail Index</A>')
		FileWrite(OutputFile,'<BR><BR>')
		FileWrite(OutputFile,'<IMG SRC="..\%Pic%"<BR><BR>')
		FileWrite(OutputFile,'</CENTER></HTML>')
		FileClose(OutputFile)
	
	;End Table Rows when it gets to six
	y=y+1
	If y==6
		FileWrite(HTML,"</TR>")
		FileWrite(HTML,"<TR>")
		y=0
	EndIf


;	FileWrite
Next

FileWrite(HTML,"</TR>")
FileWrite(HTML,"</BODY>")
FileWrite(HTML,"</CENTER>")
FileWrite(HTML,"</HTML>")
FileClose(HTML)

Run("IExplore.exe","%dir%thumbs.html")

Article ID:   W15412

File Created: 2014:01:29:15:34:52

Last Updated: 2014:01:29:15:34:52

Database Search

TechHome

Create Thumbnail Images and Display in HTML