На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania 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,0516 ]   [ 15 queries used ]   [ Generated: 23.09.19, 07:08 GMT ]