Post by alix on Jan 18, 2008 10:16:33 GMT -5
The code below does not work if the first line is commented out, i.e.
Am I doing something wrong ?
'global DefaultDir$Am I doing something wrong ?
global DefaultDir$
filename$="\public\images\*.png"
result=DiplayJPG(filename$, 4)
wait
'*******************************************************
' functions
'*******************************************************
'
' DIPLAYJPG : get JPG files and display n at a time
'
function DiplayJPG(filename$, n)
files #g, DefaultDir$ + filename$
if #g HASANSWER() then
count = #g rowcount()
for i = 1 to count
if #g hasanswer() then
'retrieve info for next file
#g nextfile$()
img$=#g NAME$()
url$ = "http://localhost:8008/images/"
if count4 = 4 then
html "<br>"
count4=0
end if
count4=count4+1
html "<img src="""+url$+img$+""" img style='width: 200px; height: 150px;'>"
end if
next
end if
End Function
