Winsock:download web page src

[Medves]

Как через винсок скачать html страничку, при этом зная что это именно текст , а не zip, и узнать о завершении скачивания, но только через винсок!

[ShadowCaster]

' On form: Winsock - Name="ws"
' Button - Name="Command1"

dim dt as string ' String with file

Sub Command1_Click()
ws.connect "www.myhost.com", 80
End Sub

Sub ws_Connect()
ws.SendData "GET /dir1/dir2/file.ext HTTP/1.0"+vbCrLf
ws.SendData "HOST: www.myhost.com"+vbCrLf+vbCrLf
End Sub

Sub ws_DataArrival(bytesTotal as long)
dim s as string

ws.GetData s
dt = dt + s
End Sub

Sub ws_Close()
' Теперь в dt содержится эта страница
' Делай с ней что хочешь
End Sub

[Medves]

спасибо, вот только как узнать, что это именно текст, а не zip?
ведь когда коннектишся к скрипту не знаешь, что получишь!

[Firestorm]

2ShadowCaster
(я код не проверял) смотрю это работает как фтп клиент?

2Medves
да вроде как тут можно указать (где GET), что качать...
ну например определяй, что качаешь (по символам тогда, где getdata)... есть тэг - это сраничка...

[Medves]

Лазил везде -нормального кода просто нет, но я уже сам разобрался почти!
А этот код работает as is

[ShadowCaster]

Вместо запроса "GET" шли серверу запрос "HEAD" (для краткости).
В ответе будет содержаться (вообщем-то всегда) поле "Content-type".
Вот его-то значение тебе и надо.
Ex:
"text/plain" - текст
"text/html" - HTML текст
и т.д.