[Сеть, интернет] TCPRecv не возвращает данные

[FraidZZ]

Набросал простейший код, который должен отправить HTTP GET запрос.

TCPStartup()

$socket = TCPConnect(TCPNameToIP("vk.com"), 80)

ConsoleWrite("IP: " & TCPNameToIP("vk.com") & @CRLF)

$data = "GET / HTTP/1.0"
addLine($data, "User-Agent: Opera/9.80 (Windows NT 6.1) Presto/2.12.388 Version/12.16")
addLine($data, "Host: www.vk.com")
addLine($data, "Accept: */*")
addLine($data, "Accept-Language: ru-RU,ru;q=0.9,en;q=0.8")
addLine($data, "Accept-Encoding: gzip, deflate")
addLine($data, "Cache-Control: no-cache")
addLine($data, "Connection: close")
addLine($data, @CRLF)

$sent = TCPSend($socket, $data)
ConsoleWrite("BytesSent: " & $sent & " from " & StringLen($data) & " total" & @CRLF)
;sleep(5000)

$rcv = ""
while 1
   $r = TCPRecv($socket, 16)
   if $r = "" Then ExitLoop
   $rcv &= $r
WEnd
ConsoleWrite("Error: " & @Error & ", Size: " & StringLen($rcv) & ", Data: " & $rcv & @CRLF)


func addLine(ByRef $main, $data)
   $main &= (@CRLF & $data)
EndFunc

Однако в консоли отладки у меня лишь этот текст:

IP: 87.240.131.117
BytesSent: 238 from 238 total
Error: 0, Size: 0, Data:

Он показывает, что данные отправлены, но ответа нет. Где я ошибся :stars: ?

 

[C2H5OH]

Всправке в примере показано как правильно обращаться с TCPRecv
http://autoit-script.ru/autoit3_docs/functions/TCPRecv.htm

 

[FraidZZ]

Так в том то и дело, что я обмусолил справк вдоль и поперек. До меня что-то не доходит (и мне обидно), но мой упртый мозг отказывается понимать, что. Может, все-таки подскажете?


Добавлено:

Сообщение автоматически объединено: 3 Июл 2014

yep. До меня дошло. TCPRecv выполняется асинхронно и не ждет прихода данных.
Поэтому

while 1
   $r = TCPRecv($socket, 1)
   if @error Then ExitLoop
   if $r <> "" Then $rcv &= $r
wend

 

[Medic84]

FraidZZ

Предупреждение

За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

С уважением, ваш Администратор.

 

[FraidZZ]

Medic84 [?]

Любые отрывки AutoIt кода необходимо заключать в тег

[/b][/quote]

Поправил.

 

[Medic84]

Хорошо. Также не рекомендую устанавливать максимальную длину принимаемых данных равным 1 байту. Могут появиться артефакты при приеме, или принести потерю некоторой получаемой информации

 

[FraidZZ]

Ясно. Поставил буфер 32 байта. Спасибо за помощь! :beer:

 

[alex33]

OffTopic:
FraidZZ, А это вы или не вы? (

FraidZZ )

 

[madmasles]

Medic84 [?]

не рекомендую устанавливать максимальную длину принимаемых данных равным 1 байту

ИМХО, можно использовать только для отлова заголовка (можно 2) с последующим изменением в большую сторону.

 

[FraidZZ]

alex33,

OffTopic:
Я это, я