delphi使用mailslot，创建通讯示例代码

源码资源网

delphi使用mailslot，创建通讯示例代码
在 Delphi 中使用 MailSlot 创建通讯的示例代码如下。MailSlot 是 Windows 提供的一种简单的进程间通信（IPC）机制。以下是一个创建 MailSlot 的简单示例，包括发送和接收消息的代码。
### 创建 MailSlot 服务器
首先，创建一个 MailSlot 服务器，接收来自客户端的消息：

1. program MailSlotServer;
   
2. uses
   
3.   Windows, SysUtils, Classes;
   
4. const
   
5.   MailSlotName = '\\.\mailslot\MyMailSlot'; // MailSlot 名称
   
6. var
   
7.   hMailSlot: THandle;
   
8.   Buffer: array[0..255] of Char;
   
9.   BytesRead: DWORD;
   
10.   Overlapped: TOverlapped;
    
11. begin
    
12.   // 创建 MailSlot
    
13.   hMailSlot := CreateMailslot(MailSlotName, 0, MAILSLOT_WAIT_FOREVER, nil);
    
14.   if hMailSlot = INVALID_HANDLE_VALUE then
    
15.   begin
    
16.     Writeln('无法创建 MailSlot: ', SysErrorMessage(GetLastError));
    
17.     Exit;
    
18.   end;
    
19.    Writeln('MailSlot 已创建，等待消息...');
    
20.    // 等待并读取消息
    
21.   while True do
    
22.   begin
    
23.     // 清空缓冲区
    
24.     ZeroMemory(@Buffer, SizeOf(Buffer));
    
25.     BytesRead := 0;
    
26.      // 读取消息
    
27.     if ReadFile(hMailSlot, @Buffer, SizeOf(Buffer) - 1, @BytesRead, @Overlapped) then
    
28.     begin
    
29.       Buffer[BytesRead] := #0; // 添加字符串结束符
    
30.       Writeln('接收到消息: ', Buffer);
    
31.     end
    
32.     else
    
33.     begin
    
34.       Writeln('读取消息失败: ', SysErrorMessage(GetLastError));
    
35.     end;
    
36.   end;
    
37.    // 关闭 MailSlot
    
38.   CloseHandle(hMailSlot);
    
39. end.

复制代码

### 创建 MailSlot 客户端
接下来，创建一个 MailSlot 客户端，向服务器发送消息：

1. program MailSlotClient;
   
2. uses
   
3.   Windows, SysUtils;
   
4. const
   
5.   MailSlotName = '\\.\mailslot\MyMailSlot'; // MailSlot 名称
   
6. var
   
7.   hMailSlot: THandle;
   
8.   Message: string;
   
9.   BytesWritten: DWORD;
   
10. begin
    
11.   // 打开 MailSlot
    
12.   hMailSlot := CreateFile(MailSlotName,
    
13.                            GENERIC_WRITE,
    
14.                            0, // 不允许共享
    
15.                            nil,
    
16.                            OPEN_EXISTING,
    
17.                            0,
    
18.                            0);
    
19.   if hMailSlot = INVALID_HANDLE_VALUE then
    
20.   begin
    
21.     Writeln('无法打开 MailSlot: ', SysErrorMessage(GetLastError));
    
22.     Exit;
    
23.   end;
    
24.    // 发送消息
    
25.   Message := 'Hello from MailSlot Client!';
    
26.   if not WriteFile(hMailSlot, PChar(Message)^, Length(Message) * SizeOf(Char), @BytesWritten, nil) then
    
27.   begin
    
28.     Writeln('发送消息失败: ', SysErrorMessage(GetLastError));
    
29.   end
    
30.   else
    
31.   begin
    
32.     Writeln('消息发送成功: ', Message);
    
33.   end;
    
34.    // 关闭 MailSlot
    
35.   CloseHandle(hMailSlot);
    
36. end.

复制代码

### 使用说明
1. **编译并运行服务器**：首先编译并运行  `MailSlotServer`  程序。它会创建一个 MailSlot 并等待接收消息。
2. **编译并运行客户端**：然后编译并运行  `MailSlotClient`  程序。它会向服务器发送一条消息。
3. **查看输出**：在服务器控制台中，你应该能看到接收到的消息。
### 注意事项
- MailSlot 名称应以 `\\.\mailslot\` 开头。
- 服务器在运行时会一直等待消息，因此可以在不同的终端中运行服务器和客户端。
- 请确保有适当的权限来创建和访问 MailSlot。
通过以上代码，你可以在 Delphi 中实现简单的 MailSlot 通信。