HTTPRequest

[j_stam_84]

Hi everybody,

I have the following script which keeps hanging in an endless loop :

Dim $body, $sc, $request, $addr, $path

$path = "/"
$addr = "www.xs4all.nl"

TCPStartup()

$sc = TCPConnect(TCPNameToIP($addr), 80)

If NOT $sc < 0 Then
    MsgBox(16, "Connection Problem", @error & " Problem while connecting to host")
    exit(1)
EndIf

$request = "GET " & $path & " HTTP/1.0" & @CRLF & "Host:" & $addr & @CRLF & @CRLF

$data = TCPSend($sc, $request)

While 1
    $line = TCPRecv($sc, 1024)

    If NOT StringLen($line) = 0 Then

        msgbox(64, "data", StringLen($line))
        exit(1) 
    EndIf

WEnd

Does anybody have a clue why $line stays empty ?

The only thing I can think of is that the $request value is invalid.. but if that would be the case, at least an error would be received right ?

Thanks in advance!

[scriptkitty]

since you don't show the function TCPRecv($sc, 1024), it is a bit hard to determine if you are returing something.

;......
While 1
    $line = TCPRecv($sc, 1024)

    If NOT StringLen($line) = 0 Then; if length of $line=0 then loop endlessly

        msgbox(64, "data", StringLen($line))
        exit(1) 
    EndIf
    tooltip(@min & ":" & @sec,0,0); click the time 

WEnd

If you are in an endless loop, it could be one of the earlier functions, of you don't have a return in the TCPRev()

func TCPRecv($sc, $length)
$sc=$sc+1
return $sc*$length; make sure you are sending back the result.
endfunc

I would also put in a monitor so you can see where it is stuck

Opt("TrayIconDebug", 1) ;0=no info, 1=debug line info