LiveCode Forums.

Code: Select all

on mouseUp
   load url "http://www.alternatic.ch/jmb/devrev/images50.zip"
   hide scrollbar "ProgressBar"
end mouseUp

on urlProgress pUrl, pStatus,pData
  if the number of items in pStatus = 3 then ##will not work unless web server sends total
  if the visible of scrollbar "ProgressBar" = false then
  put the last item of pStatus into tTotalBytes
  set the startValue of scrollbar "ProgressBar" to 0
  set the endValue of scrollbar "ProgressBar" to tTotalBytes
  show scrollbar "ProgressBar"
end if
set the thumbPosition of scrollbar "ProgressBar" to item 2 of pStatus
end if
if pStatus is "downloaded" then
   answer "Finished downloading" with "Okay"
      put pData into URL ("binfile:" & specialfolderpath("engine") &  "/images50.zip")
      hide scrollbar "ProgressBar"
      unload url "http://www.alternatic.ch/jmb/devrev/images50.zip"
      send "unZip" to me in 2 seconds
   end if
end urlProgress

command unZip
   
   put specialFolderPath("engine") & "/images50.zip" into TempFile
   put specialFolderPath("engine") & "/" into TargetFile -- Problem part, previous one was linked to a map in a map, because the zip is a map.
   
   revZipOpenArchive TempFile, "read"
   put RevZipEnumerateItems(TempFile) into tList
   
   repeat for each line i in tList
     
      if i = empty then
         next repeat
      end if
     
      revZipExtractItemToFile TempFile, i, (TargetFile & i)
     
   end repeat
   
   revZipCloseArchive TempFile
   delete file TempFile
   send "fileCheck" to me in 1 second
end unZip

command fileCheck
      if there is a file (specialfolderpath("engine") & "/pres.png") then
         answer "it works!! Great!"
      else
         answer "needs more work"
      end if
end fileCheck