Question

我决定使用mailslot进行IPC。在Windows 8上一切正常。但是在Windows Xp上我收到了很好的第一条消息，但随后对ReadFile的调用被卡住了。

这是我的测试代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  hand : THandle;
  buf : array [0..255] of AnsiChar;
  btsRead : DWORD;
begin
  hand := CreateMailslot('\\.\mailslot\somemailslot', 255, DWORD(-1), nil);
  if hand <> INVALID_HANDLE_VALUE then
  begin
      while True do
      begin
        ReadFile(hand, buf, 255, btsRead, nil); // call gets stuck after first message
        ShowMessage(buf);
        Application.ProcessMessages;
      end;
  end;

在Windows 8上，我继续从客户端应用程序接收消息，但在Windows XP上，对ReadFile的调用将永远等待消息。我尝试重新打开客户端应用程序但没有成功。

我做错了什么？

Answer 1

使用线程从邮件槽中读取。否则，您将始终遇到在ReadFile中等待时必须处理Windows消息的问题。

现在已经说过，对CreateMailslot和ReadFile的调用看起来与我使用的（在XP及以上版本）非常相似，只不过我有一个更大的缓冲区（65535）。

如果这些都没有帮助那么问题可能就在其他地方。

当您需要取消对ReadFile的调用时，请从主线程中调用CloseHandle(hand)。当你需要退出线程时，这很有用。这是使用线程进行邮件槽的另一个原因。

邮件永远阻塞

1 个答案: