网站首页

家园论坛

老版论坛

家园博客

业界新闻

技术文档

下载中心

速查中心

图片中心

硬件资讯
上一篇:在pb中用语音读金额 下一篇:Powerbuilder中的内存操作大搜集
如何编写一个能读取Powerbuilder的数据窗口中数据的程序

来源: 作者: 添加日期:2005-9-4 19:19:56 点击次数:

 

这里当然指一个程序读取另一个程序中数据窗口的数据。设想的方法有多种,简单的方法是向数据窗口传递消息啦!先看看这个:

How to manipulate Datawindow without using datawindow functions. // I test only on PowerBuilder 6.5 build 444

long ll_dw_handle
ll_dw_handle = handle(dw_1)

Function Power Script
Retrieve Post(ll_dw_handle, 1306, 0, 0)
Post(ll_dw_handle, 1320, 0, 0)
ScrollNextPage Post(ll_dw_handle, 1318, 0, 0)
ScrollPriorPage Post(ll_dw_handle, 1319, 0, 0) 
ScrollToFirstPage Post(ll_dw_handle, 1315, 0, 1) // 1 = first row?
ScrollToLastPage Post(ll_dw_handle, 1315, 0, 99999999) // 99999999 = last page ? pb6 programmer don't know how to get the last page :)
Sort Dialog Post(ll_dw_handle, 1309, 0, 0) 
Filter Dialog Post(ll_dw_handle, 1311, 0, 0) 
DeleteRow Post(ll_dw_handle, 1357, 0, 0)
Post(ll_dw_handle, 1307, 0, 0) 
Append Row Post(ll_dw_handle, 1357, 0, 0)
Post(ll_dw_handle, 1312, 0, 0)
Post(ll_dw_handle, 1315, 0, dw_1.rowcount() + 1)
Post(ll_dw_handle, 1325, 0, 0)
InsertRow Post(ll_dw_handle, 1357, 0, 0)
Post(ll_dw_handle, 1313, 0, 0)
Post(ll_dw_handle, 1312, 0, dw_1.getrow())
Post(ll_dw_handle, 1315, 0, dw_1.getrow())
Post(ll_dw_handle, 1325, 0, 0)
Update Post(ll_dw_handle, 1357, 0, 0)
Post(ll_dw_handle, 1338, 0, 0)
Post(ll_dw_handle, 1304, 0, 0) 
SaveAs Dialog  Post(ll_dw_handle, 1338, 0, 0)
Post(ll_dw_handle, 1305, 0, 0) 
Print Post(ll_dw_handle, 1303, 0, 0)
Retrieve (yield) Post(ll_dw_handle, 1306, 1, 0)
Post(ll_dw_handle, 1320, 0, 0)
Cancel
 Post(ll_dw_handle, 1320, 0, 0)
 


转载自:http://www.mycgiserver.com/~unoksoftgroup/undocumented/undocumented_powerbuilder.html

通过测试发现使用Post(ll_dw_handle, 1305, 0, 0) ,可以使数据窗口弹出saveas的对话框,经过进一步的试验,发现wparam和lparam参数的含义分别是 :saveas type和 savefilename字符串的地址,所以我们就可以使用发送消息的方式使数据窗口内容保存为文本文件,然后读取文件就可以获取数据了。

我在pb程序中的测试代码:

Function integer SndMsg(long hWnd, long uMsg, long wp, &
     ref string filename) library "user32.dll" Alias For "SendMessageA"


long ll_dw_handle
ll_dw_handle = handle(dw_1)
string s
s="c:\111.txt"
SndMsg(ll_dw_handle, 1305, 2, s)

如果要编写一个数据窗口外挂程序,只要得到数据窗口的句柄就可以了,我就点到这里为止了

 
设为首页 | 加入收藏 | 业务办理 | 友情链接 | 论坛版面 | 浙ICP备07502118号 |