一些实现命名管道通信服务应用程序的来源或有关它的帮助

Question

我正在实现我自己的命名管道客户端/服务器类，但我遇到了太多麻烦，而且互联网上没有太多信息。 我已经找到了很多使用管道但使用 vlc 应用程序的实现，但我正在使用服务应用程序。

我也接受有关如何使用管道的提示。

我的实际问题是： 虽然服务器应用程序只收到来自客户端的一条消息，但此后我的服务器无法再使用 PeekNamedPipe() 。 我从 GetLastError 收到的错误消息是“管道的另一端有一个进程”，但是......我不知道该怎么解决这个问题。 如果我关闭客户端应用程序，我收到的消息是“管道正在关闭”，此后我无法建立客户端通信。

tks

Answer 1

哦哦我发现问题了。
我正在阅读一些 Windows 文章，发现我必须使用 after peek 和 after disconnect 来连接到命名管道。这是有道理的。

ConnectNamedPipe(FPipeHandle, nil) 和 PeekNamedPipe(FPipeHandle, nil, 0, nil, @LBytesSize, nil) 之后

执行操作后我必须调用 DisconnectNamedPipe(FPipeHandle);
释放进程。

tks

Answer 2

我认为在 Vista 或 7 中运行应用程序时会遇到一些麻烦。

在 XP 下，服务和客户端应用程序之间的通信没有问题。

但“感谢”Vista 和 7 引入的新 UAC 和安全策略，您需要设置一些安全参数。

请参阅我在开源框架的实施和测试过程中发现的内容。

您有一个命名管道客户端和服务器通信的工作示例，还使用作为服务运行的服务器进行了测试，在我们的源代码存储库中。

Answer 3

如果您有一些示例代码，请注意您需要在表单上创建的 GUI 组件：

发送方单元：

procedure TForm1.FormCreate(Sender: TObject);
var
   FSA : SECURITY_ATTRIBUTES;
   FSD : SECURITY_DESCRIPTOR;
   pch1: shortstring;
begin
   InitializeSecurityDescriptor(@FSD, SECURITY_DESCRIPTOR_REVISION);
   SetSecurityDescriptorDacl(@FSD, True, nil, False);
   FSA.lpSecurityDescriptor := @FSD;
   FSA.nLength := sizeof(SECURITY_ATTRIBUTES);
   FSA.bInheritHandle := True;

   Pipe:= CreateNamedPipe(PChar('\\.\pipe\<test>'),
                          PIPE_ACCESS_DUPLEX or FILE_FLAG_WRITE_THROUGH,
                          PIPE_TYPE_MESSAGE or PIPE_READMODE_MESSAGE or PIPE_NOWAIT,
                          PIPE_UNLIMITED_INSTANCES,
                          1024,
                          1024,
                          50,
                          @FSA);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   buffer: shortstring;
   dw : dword;
   b1 : boolean;
begin
   buffer:= Edit2.Text;
   WriteFile(Pipe, buffer, sizeof(buffer), dw, nil);
end;

接收方单元：

procedure TForm1.FormCreate(Sender: TObject);
var
   FSA : SECURITY_ATTRIBUTES;
   FSD : SECURITY_DESCRIPTOR;
begin
   InitializeSecurityDescriptor(@FSD, SECURITY_DESCRIPTOR_REVISION);
   SetSecurityDescriptorDacl(@FSD, True, nil, False);
   FSA.lpSecurityDescriptor := @FSD;
   FSA.nLength := sizeof(SECURITY_ATTRIBUTES);
   FSA.bInheritHandle := True;

   Pipe:= CreateFile(PChar('\\.\pipe\<test>'),
                     GENERIC_READ or GENERIC_WRITE,
                     0,
                     @FSA,
                     OPEN_EXISTING,
                     0,
                     0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   buffer: shortstring;
   dw : dword;
begin
   ReadFile(Pipe, buffer, sizeof(buffer), dw, nil);
   edit1.Text := buffer;
end;

希望这会有所帮助。