Топик с обсуждением качалки, прогрессбара и пр.

[Decaz]

А как изменить код, чтобы при скачивании в файл шла полоска ProgressBar?

[tyomitch]

А что конкретно непонятно? Прогрессбар на форму кинуть умеешь?

[Decaz]

А что конкретно непонятно? Прогрессбар на форму кинуть умеешь?

да я почти сделал всё, только что-то коряво работает, может попробуешь оптимизировать код:

Код: Выделить всё

Private Sub Kachalka_Progress(ByVal Progress As Long, ByVal ProgressMax As Long, ByVal Status As Long, ByVal StatusText As String, Cancel As Boolean)
Dim sProgress As String
    If ProgressMax Then
        sProgress = Format(Progress / ProgressMax, "00")
    Else
        sProgress = "0"
    End If
    ProgressBar1.Value = sProgress
    DoEvents
    Cancel = SetCancel
End Sub

[Decaz]

При скачивании файла только 1 клеточка из всей полоски заполняется, хотя файл скачивается полностью...

[tyomitch]

Код: Выделить всё

Private Sub Kachalka_Progress(ByVal Progress As Long, ByVal ProgressMax As Long, ByVal Status As Long, ByVal StatusText As String, Cancel As Boolean)
    If ProgressMax Then
        ProgressBar1.Value = 100! * Progress / ProgressMax
    Else
        ProgressBar1.Value = 0
    End If
    DoEvents
    Cancel = SetCancel
End Sub


Подходит?

[Decaz]

Огромнейшее спасибо! Благодарен!

[Alex-pc1]

А как узнать размер файла перед закачкой? Очень надо!!!!

[keks-n]

Шлёшь винсоком спецательный HTTP запрос серваку и он тебе инфу выдаст. Или стартуешь закачку а потом при первом Progress смотришь ProgressMax(там размер) и закачку прерываешь.

[Alex-pc1]

Т.е. мне впринципи все равно каким способом качать мне просто надо перед закачкой узнать размер файла и если он , ну скажем больше 20МБ то скачать его, и желательно бы знать сколько скачано уже, ну типа в реальном времени.
Если не сложно то ответьте на мыло 618422@mail.ru

[DirectXManiac]

Это вообще просто.Берешь Progress и переводишь(например в килобайты) если надо!

[DirectXManiac]

А вот вопрос посложнее.Можно ли отправить запрос WinSockом на имя скачиваемого файла.Если можно то как????

[RUSYA]

запросы вообще-то серверу адресовываются...
winsock1.send...

[DirectXManiac]

Это я и так понимаю.А вот как сделать запрос(дайте код) если это возможно, чтобы он тебе прислал имя скачиваемого файла?

[alibek]

В FAQ по теме GET/POST.

[Alex-pc1]

А как работать через прокси????? Я так и не нашел в коде, ну может плохо искал???

[alibek]

Обыкновенно.
Подключаешься не к хосту, а к прокси, и отправляешь на него чуть откорректированный запрос.

[Alex-pc1]

Ну и как это сделать то??? Если можно исходник или...

[Alex-pc1]

Ну и как это сделать то??? Если можно исходник или...

[GSerg]

Исходник приведён.
А если ты не можешь указать адрес соединения, в этом тебе никто не поможет.

[Alex-pc1]

Это адрес :
http://mirror3.garant.ru/cgi-bin/comple ... =garantkem

Это прокси:
192.168.0.2:3128

Что дальше???

[Alex-pc1]

как и где прописать этот прокси?????

[neic]

Шлёшь винсоком спецательный HTTP запрос серваку и он тебе инфу выдаст.

Код в студию

[Brusco]

Я посылал запрос серверу:

Код: Выделить всё

Winsock1.SendData "HEAD " & File & " HTTP/1.0" & vbCrLf & vbCrLf


На что получал ответ, где одним из параметров был размер файла.
Но т.к. запрос не полный некоторые сервера отказывались отвечать.

Подробней об HTTP тут:
http://www.09.msk.ru/http01.shtml

[Wild VB Code for Food]

Я посылал запрос серверу:

Код: Выделить всё

Winsock1.SendData "HEAD " & File & " HTTP/1.0" & vbCrLf & vbCrLf


На что получал ответ, где одним из параметров был размер файла.
Но т.к. запрос не полный некоторые сервера отказывались отвечать.

Подробней об HTTP тут:
http://www.09.msk.ru/http01.shtml

ОК.
К томуже ты забыл указать некоторые обязатеьные параметры, например Host: и User-Agent:, Referer:

[GSerg]

Wild VB Code for Food
А мне совсем не интересно видеть в твоей подписи 70 кб. картинок.

[Wild VB Code for Food]

Похвалится нельзя? Ладно удалю.

[Brusco]

ГЫГЫГЫ. Вроде "HEAD" это конечно круто, попробуй заменить на "GET "
Рассмешил ей-богу, немогу!!!! Сейчас умру от смеха

К томуже ты забыл указать некоторые обязатеьные параметры, например Host: и User-Agent:, Referer:

Запрос "HEAD" вот как раз для получения заголовка (размер файла то нужен до закачки), а "GET" для получения всего файла!

Про параметры я ведь и написал, что не использовал их, т.к. реализовывал давно и некогда было возиться с HTTP, к тому же и так работало.
Поэтому я и дал ссылку с описанием.

Wild VB Code for Food раз ты такой специалист по протоколам, лучше бы кодик тогда и написал вместо обсуждения чужих ответов

[Wild VB Code for Food]

Хм. Извиняюсь, я достаточно компетентен в области HTTP протокола, просто был в неадекватнов состоянии, думаю ты понимаешь про что я.

Код: Выделить всё

Dim header as String
header = "HEAD / HTTP/1.1" & vbCRLF & "Connection: close" & "Referer: www.microsoft.com" & vbCrLf & "Host: "& sHost & vbCrLf & "User-Agent: Mozilla/4.0(compatible; Sample)" &vbCrl & vbCrLf


Ответ

Код: Выделить всё

Option Explict
 
Dim buffer as string
Dim data() as string
Dim header() as string
Dim params() as string

ws.getdata buffer

data = split(buffer,vbCrlf & vbCrlf)

header = split(data(0),vbCrLf)

'ответ будет содержатся в header(0)

For i = 1 to UBound(header)-1
    params = split(header(i),":")
    Select Case LCase(Trim(params(0)))
       Case "content-length" 'то что нам нужно
            ....
        Case "content-type"
            ....
        Case "
    End Select
Next i



Кстате, полезно почитать:
http://www.kuzbass.ru/docs/http/1.1/rus/

Кстате, чтобы завоять своё хамство, держи, достал из древних завалов.

[Alex-pc1]

Похоже на свой вопрос я так ответа и не получу..............
как же всетаки работать через прокси?

[Alex-pc1]

Все просто, когда знаешь как это сделать блин а когда не знаешь даже самое простое кажется сложным