From f6f958fb74e19e1133623212a2e5645e47e24e45 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Mussche?= <andre.mussche@gmail.com>
Date: Fri, 28 Mar 2014 12:47:25 +0100
Subject: [PATCH] default readtimeout for connect

---
 IdHTTPWebsocketClient.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/IdHTTPWebsocketClient.pas b/IdHTTPWebsocketClient.pas
index e88edff..71b1f2d 100644
--- a/IdHTTPWebsocketClient.pas
+++ b/IdHTTPWebsocketClient.pas
@@ -527,6 +527,7 @@ begin
       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