线程问题

Question

TMyThread = Class(TThread)
   privat
          clientSocket:TClientSocket;
   public
          constructor create(creatsuspended:Boolean);overload;
          function initClientSocket:boolean;
   protected
          procedure   execute();
end;
 
        constructor TMyThread.create(createsuspended);
        begin
         ...
        end;
        function  TMYThread.initClientSocket:boolean;
        begin
             ClientSocket:=TClientSocket.create(ClientSocket);
             ClientSocket.address:='127.0.0.1';
             ClientSocket.prot:=1514;
             ClientSocket.clientType:=ctNonBlocking;
             ClientSocket.active:=true;
        end; 
        procedure TMyThread.execute;
        begin
             initClientSocket;
             while not terminated and CleintSocket.active do
             begin        // why clientsocket.active is false;
                .......
             end; 
        end;

Answer 1

当然 ，客户端线程中包含Clientsocket的目的是 将Com口的数据传输到服务器端