12.11.2010, 11:50
|
#15
|
Зануда с интернетом
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений (для 20,935 пользователей)
|
Ответ: Исходница
Сообщение от Tadeus
Понеслась. Тут функции почти все мои, некоторые переделаны с других языков
HTTP-запрос. Поддерживает перенаправления
Function httpGetRequest$(http_url$)
If Left$(http_url$,7)="http://" Then
http_url$=Mid$(http_url$,8)
EndIf
If Instr(http_url$,"/") Then
http_host$=Left$(http_url$,Instr(http_url$,"/")-1)
http_file$=Mid$(http_url$,Instr(http_url$,"/"))
Else
http_host$=http_url$
http_file$="/"
EndIf
http_stream=OpenTCPStream(http_host$,80)
If Not http_stream Then Return 0
WriteLine http_stream,"GET "+http_file$+" HTTP/1.1"
WriteLine http_stream,"Host: "+http_host$
WriteLine http_stream,"Connection: close"
WriteLine http_stream,""
Repeat
Delay 1
Until ReadAvail(http_stream)<>0
Repeat
http_header$=ReadLine(http_stream)
If Left(http_header$,9)="Location:"
If Mid(http_header$,11,4)="http" Then
Return httpGetRequest(Mid$(http_header$,11))
Else
Return httpGetRequest("http://"+http_host$+Mid$(http_header$,11))
EndIf
EndIf
Until http_header$=""
While Not Eof(http_stream)
http_res$=http_res$+Chr$(ReadByte(http_stream))
Wend
res$=http_res$
Return res$
End Function
Вот вроде бы и всё, если откопаю среди своего го.. добра еще что-нибудь - выложу
|
ну а закрывать соединение кто будет?
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|
(Offline)
|
|