default readtimeout for connect

andremussche · Mar 28, 2014 · f6f958f · f6f958f
1 parent 72711f0
commit f6f958f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/IdHTTPWebsocketClient.pas b/IdHTTPWebsocketClient.pas
@@ -527,6 +527,7 @@ procedure TIdHTTPWebsocketClient.InternalUpgradeToWebsocket(aRaiseException: Boo
       sURL := Format('http://%s:%d/socket.io/1/', [Host, Port]);
       strmResponse.Clear;
 
+      ReadTimeout := 5 * 1000;
       //get initial handshake
       Post(sURL, strmResponse, strmResponse);
       if ResponseCode = 200 {OK} then