Как загрузить файл с помощью XMLHTTP?

[ANDLL]

Делаю так:

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

            nRequest.open "get", nUrl, True
            nRequest.Send
            Do Until nRequest.readyState = READYSTATE_COMPLETE
                DoEvents
                Sleep 100
            Loop
            If nRequest.STATUS = 200 Then
                Dim nUpdateFile As String
                nUpdateFile = GetTemporaryFile
                fn = FreeFile
                Open nUpdateFile For Binary As #fn
                    Put #fn, , nRequest.responseText
                Close #fn
            End If


Однако если файл двоичный, он доходит мягко говоря "подпорченым". А как его сохранить так что бы он полностью совпал с тем файлом, что лежал на сервере?

[tyomitch]

Сохраняй не responseText, а responseBody: там байтовый массив.

Кроме того, есть более кошерные способы дождаться конца загрузки, чем цикл с DoEvents.

[RayShade]

Ну а такие проперти как responseStream не посмотреть?

[ANDLL]

Ну а такие проперти как responseStream не посмотреть?

И что с ним делать?

[ANDLL]

2tyomitch:С responseBody та же байда:(
А что там за кошерные способы?

[RayShade]

ANDLL

Ну как.

Пиши его, в файл



tyomitch

У объекта нет эвентов.

Как сделать кашерно в этом случае?

[tyomitch]

ANDLL
Ну как.
Пиши его, в файл

IStream-то? Ну-ну.

tyomitch
У объекта нет эвентов.
Как сделать кашерно в этом случае?

http://bbs.vbstreets.ru/viewtopic.php?p=6615910#6615910

[ANDLL]

2tyomitch:Почему мне цикл с DoEvents нравится больше? Даже если бы у него и были события, я все равно юзал бы цикл с DoEvents.. Просто мне нудна синхронная закачка с возможностью отмены, и все...
Но все равно за способ спасибо.
2RayShade:Может приведеш пример кода, где его надо прогсто "писать в файл"?

[Antonariy]

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

Dim Data() As Byte
nRequest.Open "POST", nUrl, True
nRequest.setRequestHeader "Content-Type", "image/gif;"
nRequest.send
Do Until nRequest.readyState = READYSTATE_COMPLETE
    DoEvents
Loop
Data = nRequest.responseBody 'и делай с ним что хошь

Sleep тут абсолютно лишнее, да и насчет цикла с DoEvents Тёмыч прав. Какой смысл в асинхронном запросе, если твоя функция все равно блокирует основной поток? Хотя это справедливо только для библиотек. В форме можно и DoEvents обойтись. Но за Sleep в любом случае низачот.

PS. Это сезонное обострение чтоли? Всех на асинхронность тянет...

[ANDLL]

Sleep тут абсолютно лишнее

Да?

да и насчет цикла с DoEvents Тёмыч прав. Какой смысл в асинхронном запросе, если твоя функция все равно блокирует основной поток?

Ну почитай ты топик. Люблю вопросы ответы на которые написаны строчкой выше.

[ALX_2002]

http://bbs.vbstreets.ru/viewtopic.php?p=6583640#6583640

А это не подошло ?

[ANDLL]

Гм. Как оказалось, для put'а надо произвести явное преобразование responseBosy из Variant'а(коим он объявлен) к Byte() коим он является после завершения общения с сервером.
Т.е.:

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

DIm nArr() as Byte
nArr=.responseBofy
Put #1,,nArr


Тогда работает.
Ну в общем, всем спасибо.
2ALX_2002:Если честно, лень проверять твой вариант, учитывая что вопрос всетаки решен.

[Antonariy]

Sleep тут абсолютно лишнее

Да?

Да! Как ты, допустим, нажмешь кнопку отмены, если поток заморожен Sleep'ом?

да и насчет цикла с DoEvents Тёмыч прав. Какой смысл в асинхронном запросе, если твоя функция все равно блокирует основной поток?

Ну почитай ты топик. Люблю вопросы ответы на которые написаны строчкой выше.

В свою очередь советую еще раз перечитать мой ответ

Хотя это справедливо только для библиотек. В форме можно и DoEvents обойтись.

[ANDLL]

Sleep тут абсолютно лишнее

Да?

Да! Как ты, допустим, нажмешь кнопку отмены, если поток заморожен Sleep'ом

Sleep снижает нагрузку на процессор(которая при его отсутсвии от данного потока будет составлять 100%) практически до 0... Ну по крайней мере значительно снижает. События нажатия на кнопку будут происходить максимум через 100 мс после нажатия на кнопку, что врядли ктонибудь заметит.
И кому низачет

[Antonariy]

Тебе Я уже себе низачот по этой теме ставил. Просто в случе со слипом получается рулетка - можешь ткнуть в момент слипа и ничего не произойдет, клик в очередь не поставится, я когда-то это проверял.

Ну, 100% не будет, около 90, но это почти ни на что не влияет. Поробуй запусти вместе с циклом какую-нибуть тяжеловесную прогу и увидишь, как проценты цикла отдадутся этой проге, причем разница в скорости работы этой проги с наличием в памяти цикла и без будет почти незаметна. Если ты поставишь в цикл Debug.Print, то увидишь, что цикл будет выполняться реже, а клики, кстати, в очередь поставятся и обработаются.

[ANDLL]

Просто в случе со слипом получается рулетка - можешь ткнуть в момент слипа и ничего не произойдет, клик в очередь не поставится, я когда-то это проверял.

Проверь еще раз и нормально. Все там происходит. Как получается что такой великий проффесионал как вы никогда не слышал про очередь сообщений?

Ну, 100% не будет, около 90, но это почти ни на что не влияет

Опять же. Ты наверное проверял прежде чем писать? И наверное не на машине с Penrium Pro и Win 3.11?

Поробуй запусти вместе с циклом какую-нибуть тяжеловесную прогу и увидишь, как проценты цикла отдадутся этой проге, причем разница в скорости работы этой проги с наличием в памяти цикла и без будет почти незаметна. Если ты поставишь в цикл Debug.Print, то увидишь, что цикл будет выполняться реже, а клики, кстати, в очередь поставятся и обработаются.

Ух ты! А я и не знал что мой Windows XP - многозадачная опреционная система! Наверное это со вторым сервис паком такая возможнгость появилась? А я все думал, что пока мой цикл выполняются люая другая прога не сможет вообще работать.... Экая оказия...

[Antonariy]

Возможно, насчет очереди и слипа ошибаюсь. Воспоминания начали всплывать, и всплыло, что у меня был не слип, а WaitForSingleObject, который как раз и ждал клика какой-то период времени.

[Antonariy]

Уговорил, чертяка языкастый
Оставляй Sleep

[ANDLL]

Интересно, что почерпнул г-н Antonariy из всего топика?
И, кстати, почти наверняка при WaitForSingleObject то же все сообщения будут кидаться в очередь.

[Antonariy]

В принципе ничего полезного. Я бы проверял состояние по таймеру. Но если ты тащишься от DoEvents + Sleep... Хозяин - барин.
При WaitForSingleObject была ситуация наоборот - клики могли возникать в момент, когда выполняется прочий код, а не Wait.

[ANDLL]

При WaitForSingleObject была ситуация наоборот - клики могли возникать в момент, когда выполняется прочий код, а не Wait.

Antonariy низачет за буйную фантазию и отсутствие здравого смысла(можно подумать, WaitForSingleObject сильно отличается от Sleep).
Для проверки:

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

Option Explicit
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const GENERIC_ALL = &H10000000

'Command1.Caption="Wait!"
Private Sub Command1_Click()
    Dim hProcess As Long
    hProcess = OpenProcess(GENERIC_ALL, 0, 2044)'<'exist process id here>
    WaitForSingleObject hProcess, 10000
End Sub

Private Sub Form_Click()
    MsgBox "Ckicked;)"
End Sub


[Antonariy]

Этот код очень далек от того, что был у меня. Я экспериментировал с потоками и кнопкой запускал событие для прибития потока, которое ожидал wait в течении короткого промежутка времени. Никак не 10000. Остальное время цикл выполнял другие полезные функции. Поэтому событие редко ловилось с первого клика.

Кстати я вообще не понимаю, что означает этот код, кроме Form_Click. И hProcess всегда = 0.

[Kovu]

Antonariy
А ты что просто скопировал код и запустил, не читая комментариев? (<'exist process id here>)

[ANDLL]

2Antonariy:
А может в том твоем "далеком" коде не было DoEvents

[Antonariy]

ANDLL
Не было. Цикл же в отдельном потоке, нафига ему DoEvents? И так прибить можно.

Kovu
В принципе ты прав Смотрел пост уже будучи несколько на бровях и не догадался вставить GetCurrentProcessId

[tyomitch]

Kovu
В принципе ты прав Смотрел пост уже будучи несколько на бровях и не догадался вставить GetCurrentProcessId

WaitForSingleObject(OpenProcess(GetCurrentProcessId))
Может, ты и сейчас на бровях?

[ANDLL]

Интересно, от одного меня ускользнул смысл написанного в этом, этом и этом сообщениях? В тех местах, где шли пустопорожние "наезды" и "низачеты" по поводу приема в программировании, настолько очевидного, что про это нигде, наверное, даже не говорится?

[Antonariy]

tyomitch
hProcess = OpenProcess(GENERIC_ALL, 0, GetCurrentProcessId)
Разве не так? Да, я периодически отвечаю, основываясь на полузабытых фактах, не проверив кодом, но не надо держать меня за идиота. И я признаю свои ошибки.

ANDLL
Про Sleep, Wait и очередь был неправ. Из остального что конкретно вызывает смущение?

[tyomitch]

tyomitch
hProcess = OpenProcess(GENERIC_ALL, 0, GetCurrentProcessId)
Разве не так? Да, я периодически отвечаю, основываясь на полузабытых фактах, не проверив кодом, но не надо держать меня за идиота. И я признаю свои ошибки.

Если зачем-то есть намерение ждать конца текущего процесса, то совсем даже не нужно открывать его PID: он всегда открыт под хендлом -1.
Но я думаю, что в коде ANDLL имелся в виду PID чужого процесса, чтобы WaitForSingleObject когда-нибудь вернулся, и можно было проверить, что клик по форме прошёл успешно.

[Antonariy]

Про -1 не знал. ANDLL видимо тоже, иначе бы написал не кривую головоломку, а так:

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

Option Explicit
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Sub Command1_Click()
    WaitForSingleObject -1, 10000
End Sub

Private Sub Form_Click()
    MsgBox "Ckicked;)"
End Sub

Смысл всего лишь был в том, чтобы показать, что клик на форме при включенном Wait таки поставится в очередь.