利用MailSlot实现网络通信 yzhshi(yzhshi@etangcom) 2003092.DOCVIP

利用MailSlot实现网络通信 yzhshi(yzhshi@) 2003.09.21 关键字：邮槽、MailSlot、Net Send 在Windows环境下，实现进程间的通信方式很多，如消息、命名管道（Name Pipes）、剪贴板（ClipBoard）等，邮槽（MailSlot）也是其中一种，这里简单的讨论一下邮槽的原理以及如何在Delphi中实现。 对于邮槽，我们并不陌生，在Windows 95/98下，使用Winpopup可以在不同计算机间进行通信，在Windows NT/2000/XP下，可以使用 Net Send或者使用微软控制台（MMC 即Microsoft Management Console）发送控制台消息。这就是邮槽的简单应用。 那么，邮槽是什么呢？邮槽是由系统来维护的一个虚拟档案，可以形象的理解为一个支持路径和文件名的虚拟文件系统。 利用邮槽的实现通信原理是什么呢？其实很简单，如果将邮槽理解为文件系统，那么其实就是创建文件、写入文件和读取文件的关系。 两台计算机使用邮槽通信，其实就是目的计算机在自己计算机上创建一个文件供写入，当其他计算机（或进程）需要给它发送消息时，就是打开这个文件，将内容写入。当目的计算机进程发现文件内容非空，就读取文件进行分析显示。 好了，弄清楚了这些，现在问题就很简单了。我们需要知道的就是： a、如何给邮槽文件命名； b、写入内容的格式； c、如何创建邮槽文件； d、如何向邮槽文件中写入内容； e、如何从邮槽的文件中读取内容。 下面我们就一一来剖析 a、邮槽的文件名。对于邮槽文件，格式为\\ComputerName\mailslot\[path]name 对于本地邮槽文件，ComputerName使用“.”来代替，就是“\\.\MailSlot\路径\文件名” 对于写入的目标计算机的邮槽文件，就是\\目标计算机\MailSlot\路径\文件名 邮槽支持群发，如果向默认工作组/域发送（就是当前发送计算机所在工作组/域），可以使用\\*\MailSlot\路径\文件名。如果向指定工作组/域发送，可以使用\\工作组/域名\MailSlot\路径\文件名 对于Windows的信使服务，使用的邮槽文件是\\.\MailSlot\ messngr，当然我们可以任意起名，如：\\.\MailSlot\Delphi\Delphibbs，但是自定义的名称，使用Windows的信使就不能接收到了，必须得自己写程序进行接收。 b、邮槽文件的内容。我们接收到的消息类似下面的。 在 2003-9-21 16:00:00 从yzhshi到Server的消息 Hello World! 包含：接收日期、发送人、接收人、具体内容。在一条具体的消息中，包含发送人、接收人、具体内容三项内容，中间使用#0间隔。 c、创建文件。 function CreateMailslot(lpName: PChar; nMaxMessageSize: DWORD; lReadTimeout: DWORD; lpSecurityAttributes: PSecurityAttributes): THandle; stdcall; d、向邮槽写入内容。 这个和读写普通文件一样，使用CreateFile打开文件，使用WriteFile将文件内容写入。 function CreateFile(lpFileName: PChar; dwDesiredAccess, dwShareMode: DWORD; lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition, dwFlagsAndAttributes: DWORD; hTemplateFile: THandle): THandle; stdcall; function WriteFile(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD; var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall; e、读取邮槽内容 在读取邮槽内容以前，可以使用GetMailSlotInfo来判断邮槽内是否有内容，当发现有内容的时候，可以使用ReadFile来进行读取。 function GetMailslotInfo(hMailslot: THandle; lpMaxMessageSize: Pointer; var lpNextSize: DWORD; lpMessageCount, lpReadTimeout: Pointer): BOOL; stdc