Changeset 9 for trunk/SunriseChatNetworkCoreUnit.pas

Timestamp:

Feb 11, 2008, 10:27:49 AM (16 years ago)

Author:

george

Message:

Opraveno: Některé neuvolňované pamětové struktury.
Opraveno: Chyba při ukončování a uvolňování paměti.

Location:

trunk

Files:

• . (modified) (1 prop)
• SunriseChatNetworkCoreUnit.pas (modified) (1 diff)

trunk/SunriseChatNetworkCoreUnit.pas

@@ -109 +109 @@
 
 destructor TSunriseChatNetworkCore.Destroy;
-begin
+var
+  I: Integer;
+begin
+  fndTCPClient1.OnClose := nil;
   Active := False;
+  for I := 0 to NetworkInterfaces.Count - 1 do
+    TNetworkInterface(NetworkInterfaces[I]).Free;
   NetworkInterfaces.Free;
   inherited;