Changeset 440 for PinConnection/UCommTCPServer.pas

Timestamp:

Nov 19, 2012, 2:43:40 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Thread safe access to serial port pin interface using lock.

File:

• PinConnection/UCommTCPServer.pas (modified) (4 diffs)

PinConnection/UCommTCPServer.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, blcksock, synsock, UCommPin, UCommon, UThreading,
-  DateUtils, SpecializedList, tlntsend;
+  DateUtils, SpecializedList;
 
 type
@@ -48 +48 @@
     FOnConnect: TSocketConnectEvent;
     FOnDisconnect: TSocketConnectEvent;
-    FOnReceiveData: TReceiveDataEvent;
+    //FOnReceiveData: TReceiveDataEvent;
     FReceiveThread: TCommSocketReceiveThread;
-    procedure SetActive(const AValue: Boolean);
+  protected
+    procedure SetActive(const AValue: Boolean); override;
   public
     Sessions: TListObject; // TListObject<TCommTCPServerSession>
@@ -74 +75 @@
     Mem := TMemoryStream.Create;
     Stream.WriteToStream(Mem);
+    Mem.Position := 0;
     Socket.SendStreamRaw(Mem);
   finally
@@ -172 +174 @@
   if AValue then begin
     Socket.Bind(Address, IntToStr(Port));
-    if Socket.LastError <> 0 then raise Exception.Create('Bind error');
+    if Socket.LastError <> 0 then raise Exception.Create('Bind error' + Socket.GetErrorDesc(Socket.LastError));
     Socket.Listen;
     if Socket.LastError <> 0 then raise Exception.Create('Listen error');