切断された際に中途半端なSLPPデータを送信しないよう修正

diff --git a/sakurasuite/IdSLPP20.pas b/sakurasuite/IdSLPP20.pas
index 869a0b6..21dc7c9 100644 (file)
--- a/sakurasuite/IdSLPP20.pas
+++ b/sakurasuite/IdSLPP20.pas
@@ -254,6 +254,7 @@ begin
       if not FClient.ReadLnTimedOut then FClient.LastReadTime := getTickCount; 
       if Length(Line) = 0 then begin
         if FRecvData.Count > 0 then begin
+          FClient.CheckForDisconnect; //\90Ø\92f\8cã\82Ì\92\86\93r\94¼\92[\82È\83f\81[\83^\91\97\90M\82ð\96h\82®
           while Parse do begin
             Synchronize(FClient.DoOnSlppEvent);
           end;