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

2014-05-08 09:31:51 +02:00 · 2014-05-08 09:31:51 +02:00 · 491206d8fb
parent 77841a45a7 f6f958fb74
commit 491206d8fb
1 changed files with 1 additions and 0 deletions
--- a/IdHTTPWebsocketClient.pas
+++ b/IdHTTPWebsocketClient.pas
@ -542,6 +542,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