На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google
Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
Ссылки по теме:
Закрыто B.V. 15-07-2007: --

Страницы: (2) [1] 2  все  ( Перейти к последнему сообщению )  
> Как узнать размер файла на сервере без закачки?
shurik59
Сообщ. #1 ,

    Junior
    *
    Профиль · PM
    Рейтинг (т): нет
    Подскажите самый простинький пример плизззззз
    Master ANDLL
    Сообщ. #2 ,

      Axe Mogul Khan
      ******
      Профиль · PM
      HEAD запрос
      shurik59
      Сообщ. #3 ,

        Junior
        *
        Профиль · PM
        Рейтинг (т): нет
        Цитата ANDLL @
        HEAD запрос

        дай пример простинький плизз
        Master ANDLL
        Сообщ. #4 ,

          Axe Mogul Khan
          ******
          Профиль · PM
          http://google.ru
          shurik59
          Сообщ. #5 ,

            Junior
            *
            Профиль · PM
            Рейтинг (т): нет
            Смешно)))
            Master ANDLL
            Сообщ. #6 ,

              Axe Mogul Khan
              ******
              Профиль · PM
              Что именно смешно?
              shurik59
              Сообщ. #7 ,

                Junior
                *
                Профиль · PM
                Рейтинг (т): нет
                не могу найти(
                Master ANDLL
                Сообщ. #8 ,

                  Axe Mogul Khan
                  ******
                  Профиль · PM
                  Выпиши все комбинации по которым искал
                  shurik59
                  Сообщ. #9 ,

                    Junior
                    *
                    Профиль · PM
                    Рейтинг (т): нет
                    искал как ты сказал:
                    HEAD запрос VB
                    HEAD VB

                    вот что нашел... тока понять не могу(

                    ExpandedWrap disabled
                      Private Sub Form_Load()
                      Winsock1.RemoteHost = "vbcode.webhostme.com"
                      Winsock1.RemotePort = 80
                      Winsock1.Connect
                      End Sub
                       
                      Private Sub Winsock1_Connect()
                      Dim strCommand as String
                      Dim strWebPage as String
                      strWebPage = "http://vbcode.webhostme.com/en/home.html"
                      strCommand = "GET " & strWebPage & " HTTP/1.0" & vbCrLf
                      strCommand = strCommand & "Accept: */*" & vbCrLf
                      strCommand = strCommand & "Accept: text/html" & vbCrLf
                      strCommand = strCommand & vbCrLf
                      Winsock1.SendData strCommand
                      End Sub
                      ' С получением первых байтов происходит событие написанное ниже, bytesTotal - размер файла, а Winsock1.BytesReceived - сколько уже пришло!
                       
                      Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
                      Dim strData As String
                      Winsock1.GetData strData, vbString
                      Text1.Text = Text1.Text & strData
                      End Sub


                    Добавлено
                    P.S. :wall:
                    Master ANDLL
                    Сообщ. #10 ,

                      Axe Mogul Khan
                      ******
                      Профиль · PM
                      О ё. Ладно, напишиу кусочек кода
                      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
                      shurik59
                      Сообщ. #11 ,

                        Junior
                        *
                        Профиль · PM
                        Рейтинг (т): нет
                        хм подкинь плиз файлик MSXML4.DLL а то не могу эту ссылку поставить
                        Master ANDLL
                        Сообщ. #12 ,

                          Axe Mogul Khan
                          ******
                          Профиль · PM
                          ставь ссылку на третий и замени в коде 40 на 30
                          shurik59
                          Сообщ. #13 ,

                            Junior
                            *
                            Профиль · PM
                            Рейтинг (т): нет
                            а какой переменной мона воспользоваться что бы пользоваться этими данными (зазмерам файла)
                            Сообщение отредактировано: shurik59 -
                            Master ANDLL
                            Сообщ. #14 ,

                              Axe Mogul Khan
                              ******
                              Профиль · PM
                              А как ты думаешь?
                              shurik59
                              Сообщ. #15 ,

                                Junior
                                *
                                Профиль · PM
                                Рейтинг (т): нет
                                ExpandedWrap disabled
                                   MsgBox a.getResponseHeader("Content-length")


                                ну я думал что если есть MsgBox то там должна быть переменная что бы выводить данные (размер) но перепробывал все и не куя(
                                0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                                0 пользователей:
                                Страницы: (2) [1] 2  все
                                Закрыто B.V. 15-07-2007: --



                                Рейтинг@Mail.ru
                                [ Script execution time: 0,0334 ]   [ 17 queries used ]   [ Generated: 26.04.24, 22:35 GMT ]  
                                Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.