Проверить работоспособность URL

[Особист]

Подскажите пожалуйста какой-нибудь (желательно наиболее быстрый) способ проверить доступность файла по ссылке.
Например задаём "http://mysite.com/index2.htm" или "http://mysite.com/", процедура сообщает, есть ли такой файл или нет. При этом процедура файл по ссылке не закачивается (иначе получается слишком медленно, потому и спрашиваю совета).

[awl100Alex]

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

Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()
    If InternetCheckConnection("http://www.allapi.net/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
        MsgBox "Connection to http://www.allapi.net/ failed!", vbInformation
    Else
        MsgBox "Connection to http://www.allapi.net/ succeeded!", vbInformation
    End If
End Sub

[Особист]

Спасибо за быстрый ответ!
Правда, решение не работает (((
Попробуйте например это: http://kedrograd.ru/gallery/556/001.html
Такого файла НЕТ, но при этом сообщается, что succeed. Видимо, потому что сам сервер kedrograd.ru существует.
Нужно именно чтобы однозначно говорилось, есть конкретный файл или 404. Пока решаю через "качалку", но при этом приходится грузить весь файл целиком, что очень долго...

[iGrok]

Делать HEAD-запрос через WinHTTPRequest.

[Хакер]

Правильный ответ: никак.
Можно проверить наличие ресурса, на который указывает URL. Ресурс и файл --- слишком разные понятия.

[Особист]

Привет!
Указанный способ работает, причём с приемлемой скоростью.
Но, к сожалению, когда идёт цикл опроса, пропускает некоторые неработоспособные ссылки.
Причём при повторном опросе эти ссылки обнаруживаются. Т.е. надо прогонять цикл раза три, чтобы отсеить все сбойные.
Код:

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

Function checkURL(strURL)
On Error GoTo 99
Dim objHTTP
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.SetTimeouts 0, 3000, 2000, 5000
objHTTP.Open "HEAD", strURL, False
objHTTP.Send
checkURL = objHTTP.Status
Exit Function
99 checkURL = ""
End Function

Private Sub command1_Click()
If checkURL("www.kedrograd.ru/gallery/001.jpg") = "200" Then
  MsgBox "ok"
Else
  MsgBox "error!"
End If
End Sub

Это для примера. В программе идёт цикл For...Next, который обрабатывает массив линков URLArray() as string.
Уверен что косяк или в ошибке кода, или в том, что сервер "захлёбывается" от запросов.
В чём беда?

P.S.: И да, Хакер прав, я неправильно выразился - конечно же ресурс.

[Gogic]

В чём беда?

Поэкспериментируй с таймаутами и задержками внутри самого цикла (DoEvents).

Решение где-то рядом.

[Особист]

DoEvents - первое, что пришло в голову. Делал, ноль эмоций.
Есть ещё задержки типа Delay (могу ошибаться) или некий цикл, считающий доли секунд, или скажем таймер, но тогда метод лишён смысла, т.к. вряд ли будет значительно быстрее чем мой первоначальный способ.

P.S.: Думаю в сторону организации асинхронного обращения одновременно к нескольким URL. Наверное нужно делать юзерконтрол с этой функцией, грузить несколько штук на форму и в каждый отправлять очередной URL, после чего обрабатывать поступающие результаты. Насколько такой способ может быть оправдан? Что-то коробит так поступать, честно говоря - засорение памяти получается...

[Gogic]

DoEvents - первое, что пришло в голову. Делал, ноль эмоций.
Есть ещё задержки типа Delay (могу ошибаться) или некий цикл, считающий доли секунд, или скажем таймер, но тогда метод лишён смысла, т.к. вряд ли будет значительно быстрее чем мой первоначальный способ.

Да, я это и имел в виду, не DoEvents в чистом виде.

Примерно так:

pTime=(поэкспериментируй с этим значением, в секундах, например 0.1)

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

sTime = GetTickCount
        Do While GetTickCount < sTime + pTime
        Doevents
        Loop

Вставлять, я думаю, понятно куда, между строчками:

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

objHTTP.Send
checkURL = objHTTP.Status

Также, побаловаться с этими цифрами:

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

objHTTP.SetTimeouts 0, 3000, 2000, 5000

P.S.: Думаю в сторону организации асинхронного обращения одновременно к нескольким URL.

Думай в сторону многопоточности.