property pMemName, pStatus, pPercent, pURL, pType, pNetId, pCallBack, ptryCount, pMemNum

on define me, tMemName, tdata 
  pStatus = #initializing
  pMemName = tMemName
  pMemNum = tdata.getAt(#memNum)
  pURL = tdata.getAt(#url)
  pType = tdata.getAt(#type)
  pCallBack = tdata.getAt(#callback)
  pPercent = 0
  ptryCount = 0
  return(me.Activate())
end

on addCallBack me, tMemName, tCallback 
  if (tMemName = pMemName) then
    pCallBack = tCallback
    return TRUE
  else
    return FALSE
  end if
end

on getProperty me, tProp 
  if (tProp = #status) then
    return(pStatus)
  else
    if (tProp = #Percent) then
      return(pPercent)
    else
      if (tProp = #url) then
        return(pURL)
      else
        if (tProp = #type) then
          return(pType)
        else
          return FALSE
        end if
      end if
    end if
  end if
end

on Activate me 
  if (pType = #text) or (pType = #field) then
    pNetId = getNetText(pURL)
  else
    pNetId = preloadNetThing(pURL)
  end if
  pStatus = #LOADING
  pPercent = 0
  return TRUE
end

on update me 
  if pStatus <> #LOADING then
    return FALSE
  end if
  tStreamStatus = getStreamStatus(pNetId)
  if listp(tStreamStatus) then
    tBytesSoFar = tStreamStatus.getAt(#bytesSoFar)
    tBytesTotal = tStreamStatus.getAt(#bytesTotal)
    if (tBytesTotal = 0) then
      tBytesTotal = tBytesSoFar
    end if
    if tStreamStatus.getAt(#bytesSoFar) > 0 then
      pPercent = ((1 * tBytesSoFar) / tBytesTotal)
    end if
  end if
  if (netDone(pNetId) = 1) then
    if (netError(pNetId) = "OK") then
      me.importFileToCast()
      getDownloadManager().removeActiveTask(pMemName, pCallBack)
      pStatus = #complete
      return TRUE
    else
      tError = getDownloadManager().solveNetErrorMsg(netError(pNetId))
      error(me, "Download error:" & "\r" & pMemName & "\r" & tError, #update, #minor)
      if netError(pNetId) <> 6 then
        if netError(pNetId) <> 4159 then
          if (netError(pNetId) = 4165) then
            if not pURL contains getDownloadManager().getProperty(#defaultURL) then
              pURL = getDownloadManager().getProperty(#defaultURL) & pURL
              me.Activate()
            else
              getDownloadManager().removeActiveTask(pMemName, pCallBack, 0)
            end if
          else
            if (netError(pNetId) = 4242) then
              return(getDownloadManager().removeActiveTask(pMemName, pCallBack))
            else
              if (netError(pNetId) = 4155) then
                nothing()
              end if
            end if
          end if
          ptryCount = (ptryCount + 1)
          if ptryCount > getIntVariable("download.retry.count", 10) then
            getDownloadManager().removeActiveTask(pMemName, pCallBack, 0)
            return(error(me, "Download failed too many times:" & "\r" & pURL, #update, #minor))
          else
            tTriesBeforeRAndParams = 3
            if ptryCount > tTriesBeforeRAndParams then
              pURL = getSpecialServices().addRandomParamToURL(pURL)
            end if
            me.Activate()
          end if
        end if
      end if
    end if
  end if
end

on importFileToCast me 
  tmember = member(pMemNum)
  if pType <> #text then
    if (pType = #field) then
      tmember.text = netTextResult(pNetId)
    else
      if (pType = #bitmap) then
        importFileInto(tmember, pURL, [#dither:0, #trimWhiteSpace:0])
      else
        importFileInto(tmember, pURL)
      end if
    end if
    tmember.name = pMemName
    return TRUE
  end if
end