Multithreading 带螺纹的Delphi-TWSocket

当我使用这个按钮的代码，它是确定的。。。所有插座连接成功。所有事件都有效。没有问题（OnSessionClosed、OnSessionConnected等）

我创建了一个连接睡眠的线程。（我的线程连接器）。 使用TConnector创建时，所有线程均已连接，但OnSessionConnected事件不起作用

使用创建套接字的按钮没有问题

procedure TUser.OnSessionConnected(Sender: TObject; ErrCode: Word);
begin
     ShowMessage('Connection success!');
end;

procedure TUser.Connect(eip : string);
begin
  Initialize;
  socket := TWSocket.Create(nil);
  socket.OnDataAvailable    := OnDataAvailable;
  socket.OnSessionConnected := OnSessionConnected;
  socket.OnSessionClosed    := OnSessionClosed;
  socket.Connect;
end;

procedure TConnector.Execute;
var
  I : Integer;
  pUser : array [0..1500] of TUser;
begin
  for I := 0 to frmMain.query.RecordCount - 1 do
  begin
    pUser[I] := TUser.Create();
    pUser[I].run := False;
    pUser[I].username := Trim(frmMain.query.FieldByName('strAccountID').Text);
    pUser[I].password := Trim(frmMain.query.FieldByName('strPasswd').Text);
    pUser[I].Connect(frmMain.editEbenezerIP.Text);
    pUser[I].Resume;
    frmMain.query.Next;
    **Sleep(100);**
  end;
end;

我用同步（CreateUser）修复了这个问题。谢谢你的回答

  TConnector = class(TThread)
  private

  protected
    procedure Execute; override;
  public
    strAccountID, strPasswd, MD5, eIP : string;
    X : Integer;
    constructor Create;
    procedure CreateUser;
  end;

procedure TConnector.CreateUser;
begin
    Output(Format('Thread for %s',[strAccountID]));
    frmMain.pUser[X] := TUser.Create();
    frmMain.pUser[X].run := False;
    frmMain.pUser[X].username := strAccountID;
    frmMain.pUser[X].password := strPasswd;
    frmMain.pUser[X].md5 := MD5;
    frmMain.pUser[X].Connect(eIP, frmMain);
    frmMain.pUser[X].Resume;

end;

procedure TConnector.Execute;
var
   I : Integer;
begin
  MD5          := frmMain.editMD5.Text;
  eIP          := frmMain.editEbenezerIP.Text;
  for I := 0 to frmMain.query.RecordCount - 1 do
  begin
    X := I;
    strAccountID := Trim(frmMain.query.FieldByName('strAccountID').Text);
    strPasswd    := Trim(frmMain.query.FieldByName('strPasswd').Text);

    **Synchronize(CreateUser);**

    Sleep(1000);
    frmMain.query.Next;
  end;

  while(not Terminated)do
  begin
    Sleep(1000);
    OutPut('test');
  end;
end;

---

TWSocket

使用非阻塞套接字和隐藏窗口异步处理套接字状态更新。因此，您需要给线程一个消息循环。它在

TButton.OnClick

事件中工作，因为它正在利用主线程现有的消息循环

编辑：最简单的消息循环涉及在线程的生命周期内在循环中调用

Peek/GetMessage（）

、

TranslateMessage（）

和

DispatchMessage（）

，因此您需要将这些函数调用添加到工作线程，例如：

procedure TConnector.Execute;
var
  I : Integer;
  pUser : array [0..1500] of TUser;
  Msg: TMsg
begin
  for I := 0 to frmMain.query.RecordCount - 1 do
  begin
    if Terminated then Break;
    pUser[I] := TUser.Create();
    pUser[I].run := False;
    pUser[I].username := Trim(frmMain.query.FieldByName('strAccountID').Text);
    pUser[I].password := Trim(frmMain.query.FieldByName('strPasswd').Text);
    pUser[I].Connect(frmMain.editEbenezerIP.Text);
    pUser[I].Resume;
    frmMain.query.Next;
  end;

  while (GetMessage(Msg, 0, 0, 0) > 0) and (not Terminated) then
  begin
    TranslateMessage(msg);
    DispatchMessage(msg);
  end;

  // perform cleanup here as needed...
end;

procedure TConnector.Stop;
begin
  Terminate;
  PostThreadMessage(ThreadID, WM_QUIT, 0, 0);
end;

---

你能举例说明吗？下次，请尝试自己做一些研究，有大量关于消息队列和消息循环的可用信息。感谢雷米，我的同步问题已经解决。你正在使用

Synchronize（）

强制套接字在主线程中运行，而它们不属于主线程。这不是最好的解决办法。要么给工作线程自己的消息循环，这样非阻塞套接字将在工作线程中工作，要么切换到阻塞套接字，这样您就不必再处理消息循环问题。

procedure TConnector.Execute;
var
  I : Integer;
  pUser : array [0..1500] of TUser;
  Msg: TMsg
begin
  for I := 0 to frmMain.query.RecordCount - 1 do
  begin
    if Terminated then Break;
    pUser[I] := TUser.Create();
    pUser[I].run := False;
    pUser[I].username := Trim(frmMain.query.FieldByName('strAccountID').Text);
    pUser[I].password := Trim(frmMain.query.FieldByName('strPasswd').Text);
    pUser[I].Connect(frmMain.editEbenezerIP.Text);
    pUser[I].Resume;
    frmMain.query.Next;
  end;

  while (GetMessage(Msg, 0, 0, 0) > 0) and (not Terminated) then
  begin
    TranslateMessage(msg);
    DispatchMessage(msg);
  end;

  // perform cleanup here as needed...
end;

procedure TConnector.Stop;
begin
  Terminate;
  PostThreadMessage(ThreadID, WM_QUIT, 0, 0);
end;