forum.clarionlife.net

Код: Выделить всё

curl                 CLASS(TCurlHttpClass)
XFerInfo               PROCEDURE(REAL dltotal, REAL dlnow, REAL ultotal, REAL ulnow), LONG, PROC, DERIVED
                     END

curl.XFerInfo     PROCEDURE(REAL dltotal, REAL dlnow, REAL ultotal, REAL ulnow)
nRes                  LONG, AUTO
  CODE
  IF dlTotal
      ?ProgressDownload{PROP:Progress} = dlnow * 100.0 / dltotal  !-- we know actual file size Download:FileSize
      ?lblBytesRead{PROP:Text} = 'Bytes read: '& dlnow &' of '& dltotal
      DISPLAY(?ProgressDownload)
  ELSE
      ?ProgressDownload{Prop:Hide} = TRUE
      ?lblBytesRead{PROP:Text} = 'Bytes read: '& dlnow
  END
  YIELD
  
  nRes = PARENT.XFerInfo(dltotal, dlnow, ultotal, ulnow)
  RETURN nRes