Merge pull request #1 from mca0815/fix-invalid-frame-continuation

fixed "Invalid frame continuation" exception when ping or pong frames a…

IdIOHandlerWebsocket.pas

@@ -790,13 +790,28 @@ begin
         wdcPing:
         begin
           WriteData(iaReadBuffer, wdcPong);  //send pong + same data back
-          lFirstDataCode := lDataCode;
+
-          //bFIN := False; //ignore ping when we wait for data?
+          //ping received, ignore while were are receiving fragmented frames
+          if (lFirstDataCode in [wdcText, wdcBinary]) then
+          begin
+            bFIN := False;
+          end
+          else
+          begin
+            lFirstDataCode := lDataCode;
+          end;
         end;
         wdcPong:
         begin
-           //pong received, ignore;
+          //pong received, ignore while were are receiving fragmented frames
-          lFirstDataCode := lDataCode;
+          if (lFirstDataCode in [wdcText, wdcBinary]) then
+          begin
+            bFIN := False;
+          end
+          else
+          begin
+            lFirstDataCode := lDataCode;
+          end;
         end;
       end;
     end