Unit 'socketserver' Package
[Overview][Classes][Index] [#pl_pascalscada]

TSocketAcceptThread

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: socketserver.pas line 41

type TSocketAcceptThread = class(TpSCADACoreAffinityThread)

protected

  FServerSocket: TSocket;

  

  FEnd: TCrossEvent;

  

  FClientThread: TpSCADACoreAffinityThread;

  

  FAddClientThread: TNotifyEvent;

  

  FRemoveClientThread: TNotifyEvent;

  

  function WaitEnd();

  

  procedure AddClientToMainThread;

  

  ClientSockInfoLen: t_socklen;

  

  ClientSockInfo: TSockAddr;

  

  ClientSocket: TSocket;

  

  procedure Execute; override;

  

  procedure LaunchNewThread; virtual;

  

public

  procedure Terminate;

  

  constructor Create();

  

end;

Inheritance

TSocketAcceptThread

  

|

TpSCADACoreAffinityThread

  

|

TObject



CT Web help

CodeTyphon Studio