zoukankan      html  css  js  c++  java
  • pb SendMessage

    PB发送和接收消息send SendMessage

    1.用PB自带的SEND函数发送消息 传字符:Send(Handle(w_main),1600,0,'dfdfd') 传LONG:Send(Handle(w_main),1600,0,123)

    2.用API发送LONG类型消息,申明:

    Function long SendMessage(long hwnd,long wMsg,long wParam,long lParam) Library "user32.dll" Alias for "SendMessageA"

    发送:SendMessage(Handle(w_main),1600,0,123)

    接收方法:

    Other事件代码

    if message.number=1600 then
     string ls_tmp
       ls_tmp=string(message.LongParm)
     messagebox("",ls_tmp)
    end if

    3.用API发送string类型消息,申明:

    Function long SendMessage(long hwnd,long wMsg,long wParam,string lParam) Library "user32.dll" Alias for "SendMessageA"

    发送:SendMessage(Handle(w_main),1600,0,'123')

    接收方法:

    Other事件代码

    if message.number=1600 then
     string ls_tmp
       ls_tmp=string(message.LongParm,'address') //注意这里接收字符的方法
            messagebox("",ls_tmp)
    end if

    ******************

    DELPHI中给PB窗口发消息,用函数 SendMessage 默认的不能发STRING 类型,必须自己申明一下函数:

      function SendMessageAA(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: string): LRESULT; stdcall; external 'user32.dll' name 'SendMessageA';

    发送代码

    AData := 'ABC';
      SendMessageAA(FHandle,WM_NETWORKMSG,0,AData);

    搞了很久,才弄出来,和大家分享一下这个发送消息的方法。

    *******************

    另一个接收消息的方法

    申明:

    function long GlobalGetAtomName(long ATOM,ref string lpBuffer,integer nSize) Library "kernel32.dll" Alias for "GlobalGetAtomNameA"
    function long GlobalDeleteAtom(long ATOM) Library "kernel32.dll"

    other事件调用:

    if message.number=1600 then
     string ls_tmp
     long ll_return
     ls_tmp=space(50)
     ll_return=GlobalGetAtomName(message.LongParm,ls_tmp,50)
     GlobalDeleteAtom(message.LongParm)
     messagebox("",ls_tmp)
    end if

  • 相关阅读:
    Redis配置文件详解
    linux系统配置Apache虚拟主机实例
    nginx File not found 错误分析与解决方法
    svn配置使用
    linux下svn命令使用大全
    Kendo UI For ASP.NET MVC项目资源
    ReSharper 配置及用法
    SQL判断某列中是否包含中文字符、英文字符、纯数字 (转)
    Visual Studio最好用的快捷键
    19个必须知道的Visual Studio快捷键
  • 原文地址:https://www.cnblogs.com/nickflyrong/p/4903617.html
Copyright © 2011-2022 走看看