盒子论坛 v2.1

不用找控件啊
Microsoft的WinPopup 与 net send 是使用mailslot: \\.\mailslot\messngr 来通讯的

private
    FSHandle: HWND;
    FCHandle: HWND;
    { Private declarations }

procedure TForm1.Button1Click(Sender: TObject);  --开启接收的mailslot
var
  sSlotName: String;
begin
    sSlotName := '\\.\mailslot\messngr';
    FSHandle := CreateMailslot(
        pchar(sSlotName), // MailSlot 识别名称
        0, // 讯息长度的最大值，设为零表示不限
        MAILSLOT_WAIT_FOREVER, // read time-out
        nil); // 安全属性，先暂时采用预设值
    if FSHandle = INVALID_HANDLE_VALUE then
        ShowMessage('不行啊');
end;

procedure TForm1.Button2Click(Sender: TObject);   --手动读取实际用时用计时器就行了
  var
    NextSize: DWORD;
    MessageCount: DWORD;
    result: longbool;
    buffer: Pchar;
begin
    Result := GetMailslotInfo(Fshandle, nil, NextSize, @MessageCount, nil);
    if not Result or (NextSize = MAILSLOT_NO_MESSAGE) then
        Exit;
    // 如果还有资料 (MessageCount <> 0)，逐一读出资料
    while Result and (MessageCount <> 0) do
    begin
        // 资料的长度
        Buffer := AllocMem(NextSize + 1);
        try
            // 读出资料
            FileRead(Fshandle, Buffer^, NextSize);
            Memo1.Lines.Add(buffer);
        finally
            FreeMem(Buffer, NextSize + 1);
        end;

        Result := GetMailslotInfo(Fshandle, nil, NextSize, @MessageCount, nil);
    end;

end;

procedure TForm1.Button4Click(Sender: TObject);  --创建写slot
var
  sSlotName: String;
begin
  sSlotName := '\\.\mailslot\messngr';
    FCHandle := CreateFile(pchar(sSlotName),
        GENERIC_WRITE, // Client 端对於 MailSlot 只能写入
        FILE_SHARE_READ, // 设定为可供分享读取
        Nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

end;

procedure TForm1.Button5Click(Sender: TObject);  --写东东
begin
  FileWrite(Fchandle,'1234567890',10);
end;

WinPopup 的信息格是
发送者名称#0
接叫者名称#0
信息内容#0

我对 #0没作什么处理，所以在测试中与WinPopup通讯时只能收到发送者名称

但足以证明可以通讯，哪位有空改进一下几十行代码就可写出WinPopup啦

----------------------------------------------

作者：

bjdribllec ( )	★☆☆☆☆	-
	盒子活跃会员

2003/10/29 14:48:45

5楼：

全盘照抄，结果是：

此帖子包含附件:

大小:16.6K

----------------------------------------------
-

作者：

skertone (奇奇怪)	★☆☆☆☆	-
	盒子活跃会员

2003/10/29 15:09:30

6楼：

如果你是 win98 则WinPopu已运行的话由于 mailslot已创建所以你不能再创接收端

看你的图片应该是 Win2000 哪么你需要将你的 message 服务关掉否则不能创建接收端

但是你可以创发送端的

创一个: '\\*\mailslot\messngr' 的mailSlot

发送内容为 'XXXX' + #0 + 'XXXXX' + '#0' + 'kdfjksdjfkds'试试

应该能收到，不过是乱码，呵呵
----------------------------------------------

作者：

bjdribllec ( )	★☆☆☆☆	-
	盒子活跃会员

2003/10/29 15:28:40

7楼：

没错，就是在2000下。
程序自身可以发出了也可接收，
但是 net send 送来的还是要跳出信使服务窗！

引用：‘需要将你的 message 服务关掉否则不能创建接收端
但是你可以创发送端的’

1.不知道在哪关掉;
2.net send 送来的还是要跳出信使服务窗,而'写东东'按钮不跳出来，为什么？

此帖子包含附件:

大小:17.5K

----------------------------------------------
-

作者：

skertone (奇奇怪)	★☆☆☆☆	-
	盒子活跃会员

2003/10/29 15:38:29

8楼：

在win2000的管理，服务中可把信息服务停掉我不是2000没法看

你从98下Copy一个WinPopup去 2000底下看能不能用，呵呵

对MailSlot的研究就到此啦，看看谁能把WinPopup 与 net Send 的

信息格式弄清楚。。
----------------------------------------------

作者：

bjdribllec ( )	★☆☆☆☆	-
	盒子活跃会员

2003/10/29 15:42:36

9楼：

感谢skertone!
从:开始--设置--控制面板--管理工具--服务，把messenger关掉了，
net send 送出的东东如泥牛入海了。
再次感谢Skertone!
----------------------------------------------
-

作者：

pcc11051059 (人)	★☆☆☆☆	-
	盒子活跃会员

2003/10/29 17:18:22

10楼：

好玩//！

----------------------------------------------
--_--

信息

登陆以后才能回复