Changeset 273 for PinConnection

Timestamp:

Sep 5, 2011, 12:10:12 PM (13 years ago)

Author:

george

Message:

• Fixed: Waiting for protocol session list is empty before freeing.

File:

• PinConnection/UCommProtocol.pas (modified) (2 diffs)

PinConnection/UCommProtocol.pas

@@ -252 +252 @@
 
 procedure TCommProtocol.SetActive(const AValue: Boolean);
+var
+  SessionCount: Integer;
 begin
   if FActive = AValue then Exit;
@@ -265 +267 @@
     end;
   end else begin
+    // Wait for empty session list
+    repeat
+      try
+        Sessions.Lock.Acquire;
+        SessionCount := Sessions.Count;
+      finally
+        Sessions.Lock.Release;
+      end;
+      Sleep(1);
+    until SessionCount = 0;
+
     FreeAndNil(RetransmitThread);
   end;