clear data on connect

andremussche · Mar 7, 2014 · 57017c8 · 57017c8
1 parent 3903dac
commit 57017c8
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/IdHTTPWebsocketClient.pas b/IdHTTPWebsocketClient.pas
@@ -491,6 +491,10 @@ procedure TIdHTTPWebsocketClient.InternalUpgradeToWebsocket(aRaiseException: Boo
   //remove from thread during connection handling
   TIdWebsocketMultiReadThread.Instance.RemoveClient(Self);
 
+  //reset pending data
+  if IOHandler <> nil then
+    IOHandler.Clear;
+
   strmResponse := TMemoryStream.Create;
   try
     //special socket.io handling, see https://github.com/LearnBoost/socket.io-spec