ServerSocket的线程方式

Question

delphi的帮助有个例子呀！我就是看帮助学的。大概是TSocketThread的帮助

Answer 1

procedure TFM_DL_SRV.csSRVGetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
begin
  SocketThread := ServerThread.Create(true,ClientSocket);
  SocketThread.FreeOnTerminate := true;
  SocketThread.Resume;
  //Inc(ActiveThreadNum);
  //sbSRV.Panels.Items[0].Text := '当前线程数：' + IntToStr(ActiveThreadNum);;
end;
其中：
type
  ServerThread = class(TServerClientThread)—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————

Answer 2

procedure TFM_DL_SRV.csSRVGetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
begin
  SocketThread := ServerThread.Create(true,ClientSocket);
  SocketThread.FreeOnTerminate := true;
  SocketThread.Resume;
  //Inc(ActiveThreadNum);
  //sbSRV.Panels.Items[0].Text := '当前线程数：' + IntToStr(ActiveThreadNum);;
end;
其中：
type
  ServerThread = class(TServerClientThread)—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————

Answer 3

procedure TFM_DL_SRV.csSRVGetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
begin
  SocketThread := ServerThread.Create(true,ClientSocket);
  SocketThread.FreeOnTerminate := true;
  SocketThread.Resume;
  //Inc(ActiveThreadNum);
  //sbSRV.Panels.Items[0].Text := '当前线程数：' + IntToStr(ActiveThreadNum);;
end;
其中：
type
  ServerThread = class(TServerClientThread)—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————