Changeset 575 for PinConnection/CommTCPServer.pas

Timestamp:

Jun 25, 2024, 11:56:51 AM (3 months ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names of PinConnection package.

File:

• PinConnection/CommTCPServer.pas (moved) (moved from PinConnection/UCommTCPServer.pas ) (5 diffs)

PinConnection/CommTCPServer.pas

@@ -1 @@
-unit UCommTCPServer;
-
-{$mode Delphi}{$H+}
+unit CommTCPServer;
 
 interface
 
 uses
-  Classes, SysUtils, blcksock, synsock, UCommPin, UCommon, UThreading,
+  Classes, SysUtils, blcksock, synsock, CommPin, Common, Threading,
   DateUtils, SpecializedList;
 
@@ -64 +62 @@
   end;
 
+
 implementation
 
@@ -92 +91 @@
 destructor TCommTCPServerSession.Destroy;
 begin
-  Pin.Free;
-  Socket.Free;
-  inherited Destroy;
+  FreeAndNil(Pin);
+  FreeAndNil(Socket);
+  inherited;
 end;
 
@@ -161 +160 @@
 destructor TCommSocketReceiveThread.Destroy;
 begin
-  Stream.Free;
-  inherited Destroy;
+  FreeAndNil(Stream);
+  inherited;
 end;
 
@@ -200 +199 @@
 begin
   Active := False;
-  Socket.Free;
-  Sessions.Free;
-  inherited Destroy;
+  FreeAndNil(Socket);
+  FreeAndNil(Sessions);
+  inherited;
 end;