Changeset 575 for PinConnection/CommTCPClient.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• PinConnection/CommTCPClient.pas (moved) (moved from PinConnection/UCommTCPClient.pas ) (3 diffs)

PinConnection/CommTCPClient.pas

@@ -1 @@
-unit UCommTCPClient;
-
-{$mode Delphi}{$H+}
+unit CommTCPClient;
 
 interface
 
 uses
-  Classes, SysUtils, blcksock, synsock, UCommPin, UCommon, UThreading,
+  Classes, SysUtils, blcksock, synsock, CommPin, Common, Threading,
   DateUtils, SpecializedList;
 
@@ -116 +114 @@
 begin
   Active := False;
-  Socket.Free;
-  Pin.Free;
-  inherited Destroy;
+  FreeAndNil(Socket);
+  FreeAndNil(Pin);
+  inherited;
 end;
 
@@ -159 +157 @@
 destructor TCommSocketReceiveThread.Destroy;
 begin
-  Stream.Free;
+  FreeAndNil(Stream);
   inherited;
 end;