На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: SCINER, B.V.
  
    > Как узнать размер файла на сервере без закачки?
      ExpandedWrap disabled
        'На форме таймер с периодом 100 мс. В refernces - галочку на Microsoft XML 4.0
        Option Explicit
        Dim a As New XMLHTTP40
         
        Private Sub Form_Load()
            a.open "HEAD", "http://ya.ru"
            a.send
        End Sub
         
        Private Sub Timer1_Timer()
            If a.readyState = 4 Then
                Timer1.Enabled = False
                MsgBox a.getResponseHeader("Content-length")
            End If
        End Sub
      1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script Execution time: 0,0522 ]   [ 15 queries used ]   [ Generated: 13.12.19, 06:22 GMT ]