数据库

本类阅读TOP10

·SQL语句导入导出大全
·SQL Server日期计算
·SQL语句导入导出大全
·SQL to Excel 的应用
·Oracle中password file的作用及说明
·MS SQLServer OLEDB分布式事务无法启动的一般解决方案
·sqlserver2000数据库置疑的解决方法
·一个比较实用的大数据量分页存储过程
·如何在正运行 SQL Server 7.0 的服务器之间传输登录和密码
·SQL中两台服务器间使用连接服务器

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
如何编写一个能读取Powerbuilder的数据窗口中数据的程序

作者:未知 来源:月光软件站 加入时间:2005-5-13 月光软件站

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

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
RetrievePost(ll_dw_handle, 1306, 0, 0)
Post(ll_dw_handle, 1320, 0, 0)
ScrollNextPagePost(ll_dw_handle, 1318, 0, 0)
ScrollPriorPagePost(ll_dw_handle, 1319, 0, 0)
ScrollToFirstPagePost(ll_dw_handle, 1315, 0, 1) // 1 = first row?
ScrollToLastPagePost(ll_dw_handle, 1315, 0, 99999999) // 99999999 = last page ? pb6 programmer don't know how to get the last page :)
Sort DialogPost(ll_dw_handle, 1309, 0, 0)
Filter DialogPost(ll_dw_handle, 1311, 0, 0)
DeleteRowPost(ll_dw_handle, 1357, 0, 0)
Post(ll_dw_handle, 1307, 0, 0)
Append RowPost(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)
InsertRowPost(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)
UpdatePost(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)
PrintPost(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)

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




相关文章

相关软件