На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА 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
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0150 ]   [ 16 queries used ]   [ Generated: 16.04.24, 04:58 GMT ]