Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как ускорить загрузку из инета? Не теряя наглядности проги... 
:(
    Опции темы
JaguarSmith
  Дата 13.11.2005, 20:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 178
Регистрация: 16.1.2005

Репутация: нет
Всего: 1
Доброе время суток!

В одном из учебников по Vb вычитал такой код для загрузки чего-нить с сайта. Я его использую для обновления своей проги но он работает как-то слишком медлееенно (по моим прикидкам раза в три медленнее ИЕ) smile

Код

        Dim wreq As Net.WebRequest = Net.WebRequest.Create("http://www.mysite.ru/updates/" + upd_url)
        Dim wres As Net.WebResponse = wreq.GetResponse
        Dim ws As IO.Stream = wres.GetResponseStream
        Dim downloaded As Integer = 0

        If Exists(Application.StartupPath() + "/updates.rar") Then
            Delete(Application.StartupPath() + "/updates.rar")
        End If


        FileOpen(1, Application.StartupPath() + "\updates.rar", OpenMode.Binary)
        Dim value As Integer
        Dim l As Integer = wres.ContentLength() 
        Do
            value = ws.ReadByte
            If value = -1 Then Exit Do
            downloaded = downloaded + 1
            PB1.Value = CInt(downloaded / (l / 100))
            Label1.Text = CStr(CInt(downloaded / 1024)) + "kb из " + CStr(CInt(l / 1024)) + "kb"
            Application.DoEvents()
            FilePut(1, CType(value, Byte))
        Loop
        ws.Close()
        FileClose(1)


smile Есть ли какой-нибудь способ ускорить загрузку не снижая наголядности ?(Здесь прога выводит инфу на прогрес бар и пишет скока кило уже загружено)
PM MAIL YIM   Вверх
Exception
Дата 13.11.2005, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 18
Всего: 186
мне кажется загружать по 1 байту неэффективно. там массив грузить нельзя сразу?
PM   Вверх
JaguarSmith
Дата 14.11.2005, 13:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 178
Регистрация: 16.1.2005

Репутация: нет
Всего: 1
Ну вот я тоже о чём-то таком подумал - а тогда как отслеживать скока уже загружено? smile
PM MAIL YIM   Вверх
arilou
Дата 14.11.2005, 14:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Великий МунаБудвин
****


Профиль
Группа: Экс. модератор
Сообщений: 2646
Регистрация: 15.7.2004
Где: город-герой Минск

Репутация: 7
Всего: 61
JaguarSmith

Попробуй разобраться в приаттаченном примере. В двух словах - используется такая штука под названием Overlapped IO. В дотнете она называется асинхронный ввод-вывод.

Присоединённый файл ( Кол-во скачиваний: 19 )
Присоединённый файл  WebDownload.zip 4,72 Kb


--------------------
user posted imageuser posted image
PM WWW ICQ   Вверх
JaguarSmith
Дата 14.11.2005, 14:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 178
Регистрация: 16.1.2005

Репутация: нет
Всего: 1
smile Спасибо ОГРОМНОЕ буду пробовать!

Зы. А на vb там случайно не было?
PM MAIL YIM   Вверх
arilou
Дата 14.11.2005, 17:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Великий МунаБудвин
****


Профиль
Группа: Экс. модератор
Сообщений: 2646
Регистрация: 15.7.2004
Где: город-герой Минск

Репутация: 7
Всего: 61
Цитата(JaguarSmith @ 14.11.2005, 14:04)
А на vb там случайно не было?

Нет, но это не должно составить проблемы для хорошего .NET девелопера ;)


--------------------
user posted imageuser posted image
PM WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0490 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.