Существует ли файл на сайте...

[MacX]

Как узнать (см. топик) ???

[alibek]

Обратиться к нему. Если скажут "404", значит файла нет.

[Клим]

подключаешь internet transfer control
и выбираешь адрес, если результата равен NULL значит файла нет.
А если не null значит че-то там есть.
А если сервер заменит на 404, то тут нужна какая-то другая система.

[Alexanbar]

Для FTP можно использовать функцию FtpFindFirstFile из библиотеки wininet.dll

[_Мика_]

А можно один вопросик в тему?
Как узнать сколько этот файл весит
Спасибо

[kent]

Получение размера файла по http...

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

Function GetUrlSize()
Dim p_lInternetSession   As Long
Dim sBuffer         As String * 20
Dim lBufferLength   As Long
Dim m_lInternetConnect  As Long
Dim m_lHttpRequest      As Long
Dim strURL As String
Dim strObject       As String

strURL = "www.some.com"
strObject = "/some/file.ext"

p_lInternetSession = InternetOpen("Super-Puper Agent", INTERNET_OPEN_TYPE_PRECONFIG, _
                                    vbNullString, vbNullString, 0)
m_lInternetConnect = InternetConnect(p_lInternetSession, strURL, _
                                     INTERNET_DEFAULT_HTTP_PORT, _
                                     vbNullString, vbNullString, _
                                     INTERNET_SERVICE_HTTP, 0, 0)
m_lHttpRequest = HttpOpenRequest(m_lInternetConnect, "HEAD", _
                                 strObject, "HTTP/1.0", vbNullString, 0, _
                                 INTERNET_FLAG_RELOAD, 0)
lBufferLength = Len(sBuffer)
iRetVal = HttpSendRequest(m_lHttpRequest, vbNullString, 0, 0, 0)
HttpQueryInfo m_lHttpRequest, HTTP_QUERY_CONTENT_LENGTH, ByVal sBuffer, lBufferLength, 0
MsgBox sBuffer
End Function


Ну, само-собой, эти функции еще и объявить нужно, константы определить...
Плюс ко всему у меня вопрос: что нужно добавить в этот код, чтобы можно было получать размер скриптов, после их выполнения(т.е. передать параметры, потом просмотреть размер)?..

[_Мика_]

И еще один вопрос т.е. два
1). Можноли скачать файл с помощью ВинСока и вообще как лучше качать??
2). Как узнать скорость скачивания

[_Мика_]

Слушай, я щас проверил, не мог бы ты еще объявление апишек дать с началом Http.... а то я их се-то не нашел??

[kent]

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

Private Declare Function HttpQueryInfo _
    Lib "wininet.dll" Alias "HttpQueryInfoA" ( _
    ByVal hHttpRequest As Long, _
    ByVal lInfoLevel As Long, _
    ByRef dwBuffer As Any, _
    ByRef dwBufferLen As Long, _
    ByRef dwIndex As Long) As Long
   
Private Declare Function HttpOpenRequest _
    Lib "wininet.dll" Alias "HttpOpenRequestA" ( _
    ByVal hHttpSession As Long, _
    ByVal sVerb As String, _
    ByVal sObjectName As String, _
    ByVal sVersion As String, _
    ByVal sReferer As String, _
    ByVal something As Long, _
    ByVal lFlags As Long, _
    ByVal lContext As Long) As Long

Private Declare Function HttpSendRequest _
    Lib "wininet.dll" Alias "HttpSendRequestA" ( _
    ByVal hHttpRequest As Long, _
    ByVal sHeaders As String, _
    ByVal lHeadersLength As Long, _
    sOptional As Any, _
    ByVal lOptionalLength As Long) As Long

[_Мика_]

О! спасибо!
А на те два вопроса ктонибудь может ответить

[_Мика_]

kent че-то не фур-фур!! выдаёт пустой msgbox! может из-за таго сто у меня диал-ап

[kent]

Ну ХЗ... Код действительно сырой, а додумывать что в нем не так - времени нет... =(

Вот тебе параметры для проверки(подставь) - должно выдать размер:

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

strURL = "www.ya.ru"
strObject = "/index.html"

[_Мика_]

Не-а. Может какие-то функции надо отправлять серваку

[kent]

ХЗ... У меня работает... =)

[_Мика_]

У тебя выделенка?

[kent]

Да. А есть разница?.. =)

[_Мика_]

Хрен знает!! Может и есть. Но у тебя работает? И все выдает?
А почему у меня нет