Merge branch 'master' of https://github.com/andremussche/DelphiWebsoc…

…kets
andremussche · May 8, 2014 · 491206d · 491206d
2 parents 77841a4 + f6f958f
commit 491206d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/IdHTTPWebsocketClient.pas b/IdHTTPWebsocketClient.pas
@@ -542,6 +542,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