delphi - 邮槽永久性阻塞

Question

我决定将邮筒用于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)。当您需要退出线程时，这很有用。这是对邮槽使用线程的另一个原因。