精华区文章阅读

发信人: wodeji (西西), 信区: Database
标  题: [转载] PowerBuilder 开发系列谈 (20)
发信站: 紫丁香 (Tue Sep 29 17:52:24 1998), 站内信件

【以下文字转载自 Programming 讨论区】
【原文由 two 所发表】
Email: sjhzyz@public.bta.net.cn

        上期我们介绍了调用WindowsAPI 函数的方法，本期我们继续介绍几个常
用的API 函数。

一个简单的文件拷贝例程

        Windows 操作系统在象文件操纵一类的低级函数调用方面是相当灵活
的。而在PowerBuilder 中为了实现这一些低级操作，开发者们必须用第三方开
发库（如：FUNCkyforPowerBuilder 库）或用C 语言之类的语言开发自己的库，这
种方法我们将在后面的章节中讨论。在这里，我们首先展示如何通过调
用WindowsAPI 函数实现简单而又常用的低级操作：文件拷贝。

        使用WindowsAPI 而不用第三方开发库的主要好处是，如果这是您所要的
唯一的低级操作，在发布您的应用时就不需要同时将额外的库打包进您的
应用中。但如果您还需使用了第三方开发库提供的其它服务，为简单起
见，您使用第三方开发库所提供的例程可能要更方便些。

实现：首先声明下列localexternal 函数

Function  long  LZOpenFile(string  FileName,  REF ws_ofstruct  FileStructure,
uint  style) Library "lzexpand.dll"
Function  long  CopyLZFile(uint  SourceHandle, uint  DestHandle)
Library  "lzexpand.dll"
Function  long  LZClose (uint  FileHandle)  Library  "lzexpand.dll"
ws_ofstruct的窗口级结构如下：
Variable Name
Data Type

byte[1]
char

fixed_disk[1]
char

errorcode
uint

reserverd[4]
char

pathname[128]
char键入下面的一个窗口级函数：
wf_copy
// 返回:       boolean
// 参数:
         string  as_source
         string  as_dest
long            ll_SourceFileHandle, ll_DestFileHandle, ll_result
ws_ofstruct        lstr_SourceFileStructure, lstr_DestFileStructure
// 打开源文件
ll_SourceFileHandle = LZOpenFile ( as_source, lstr_SourceFileStructure, 0 )
IF ll_SourceFileHandle = -1 THEN
         MessageBox ( " 程序错误", " 无法打开文件: " + as_source )
         Return FALSE
END IF
// 打开目标文件
ll_DestFileHandle = LZOpenFile ( as_dest, lstr_DestFileStructure, 4096 )
IF ll_DestFileHandle = -1 THEN
         MessageBox ( " 程序错误", " 无法创建文件: " + as_dest )
         LZClose ( ll_SourceFileHandle )
         Return FALSE
END IF
// 拷贝
ll_result = CopyLZFile ( ll_SourceFileHandle, ll_DestFileHandle )
IF li_result < 0 THEN
         MessageBox (" 程序错误"," 无法拷贝文件: " + as_source &
                 + " to file: " + as_dest )
         LZClose ( ll_SourceFileHandle )
         LZClose ( ll_DestFileHandle )
         Return FALSE
END IF
// 关闭文件
LZClose ( ll_SourceFileHandle )
LZClose ( ll_DestFileHandle )
Return TRUE

工作原理

        Windows 所带的COMPRESS.EXE 是一个处理采用Lempel-ziv 算法压缩的文件的
可执行文件。此外Windows 内部还包含了几个处理这一算法的函数，其中之
一是LzCopy 函数，该函数可以用来生成解压缩文件。同时LzCopy 函数的文档
中还说明了：“ 如果原文件未被压缩，该函数复制原文件。” 于是LzCopy 函
数也可以用作一个快速的文件拷贝函数。

        LzCopy 函数有两个参数，原文件和目标文件的句柄。但是不幸的
是，PowerBuilder 提供的FileOpen 函数返回的文件句柄并不是LzCopy 所需要的那
个句柄。因此，如果调用WindowsAPI 中的LzCopy 函数，我们必须同时使
用LzOpenFile 和LzClose 函数，以确保获得所需要的文件句柄。

        LzFileOpen 函数有三个参数。第一个参数是将要打开的文件名，第二个参
数是一个结构，这个结构将在函数调用时填入有关这个文件的信息，
与PowerBuilder 的FileOpen 函数一样，LzFileOpen 函数可以创建或打开一个文件。
该函数的第三个参数指明该函数是被用来以只读方式打开文件(0) 还是以
只写方式创建文件(4096)。当我们打开了源文件和目标文件后，我们只要简
单地将返回的这两个文件的句柄传递给LzCopy 函数，就可实现文件拷贝。
最后，在退出之前调用LzClose 函数来关闭这两个文件。

判断另一应用是否正在运行

        实现：首先声明下列localexternal 函数

Function uint  GetModuleHandle(string ModuleName)  Library "kernel"
Function uint  GetModuleUsage(uint  ModuleName)  Library "kernel"
Function uint  FindExecutable(string  FileName, &
         REF string Directory,  REF string Result)  Library "shell"
键入下面的一个窗口级函数：
fw_check_app_status
// 返回:       boolean
// 参数:
//      string  as_filename
//      string  as_directory
integer li_size = 144, li_result
string  ls_executable = Space ( li_size )
integer li_module_usage
uint            li_module_handle
li_result = FindExecutable ( as_filename, as_directory, ls_executable )
IF li_result < 32 THEN Return FALSE
//如可执行文件已载入，获取这个执行文件的句柄
li_module_handle = GetModuleHandle ( ls_executable )
IF li_module_handle < 1 THEN
         // 没有载入
         Return FALSE
ELSE
         // 获取有多少个实例被载入
         li_module_usage = GetModuleUsage ( li_module_handle )
         Return TRUE
END IF

工作原理

        这段程序可以获取某个应用是否正在运行。

        我们用windowsAPI 中的GetModueHandle 函数来判定是否另一个应用正在运
行。为了做到这一点，我们需要知道文件的全路径名( 包括驱动器名和路
径)。我们可以将它包含在应用的INI 文件中，也可以通过写入源代码将它
嵌入可执行程序。这里向大家推荐的是采用前者的方法，这样作可使应用
具有更多的灵活性。在上面的窗口级函数中，我们首先在用户的Windows 目
录中查找win.ini 文件。因为对于我们需要进行查询的应用与特定扩展名的文
档之间的关联被记录在WIN.INI 文件中。于是我们所要做的第一件事就是
在WIN.INI 文档中查找这一关联，以知道我们所要寻找应用是从通过哪个软
件装入的。我们可以自己搜索WIN.INI 文件，或者调用WindowsAPI 中
的FindExecutable 函数来得到这一信息。这里，我们使用了第二种方法。我们
只要将与我们所希望寻找的可执行程序相关联的一个文件的文件名与路
径传递给FindExecutable 函数，就会得到该可执行程序的全路径名。这在我们
判断出该可执行程序没有在运行以后启动该程序时是很有用的。

        一旦获得了可执行程序的全路径名, 我们将它传递给GefModuleHandle 函
数。如果应用正在运行，则该函数返回应用的句柄。如果返回0，说明应用
并没有装入，此时退出函数。如果应用正在运行，我们将获得的应用的句
柄传递给GetModuleUsage 函数。这个函数的返回值会告诉我们这个应用有几
个不同的实例。在我们的例子中，如查询的应用是MicrosoftWord，该应用是
不允许多个实例同时运行，但象NotePad 这样的应用，这些信息对还是非常
有用的。

        激活另一个应用

        实现：首先声明下列localexternal 函数

Subroutine  BringWindowToTop(int hWnd)  Library "User"
Function      uint  GetNextWindow(uint hWnd, int Flag)  Library "user"
Function      uint  GetWindowText(uint hWnd, REF string Title, uint Size )
Library  "user"
Function      uint  ShowWindow(uint  hWnd, int  CmdShow)  Library "user"
Function    integer  IsIconic(uint  hWnd)  Library "user"
Function    integer  OPenIcon(uint hWnd)  Library  "user"
Function    integer  FindWindow(string  ClassName,  string  WindowName)
Library  "user"
Function    integer  FindWindow(long    ClassName,  string  WindowName)
Library  "user"
Function    integer  FindWindow(string  ClassName,  long    WindowName)
Library  "user"
键入下面的一个窗口级函数：
fw_make_app_active
// 返回：boolean
// 参数：
//string   as_title
boolean lb_cont = TRUE
integer li_result, li_size
string          ls_title
uint            li_handle
li_handle = Handle ( this )
li_size = Len ( at_title ) + 1

//li_handle = FindWindow ( 0, "Control Panel" )

DO WHILE lb_cont
         li_handle = GetNextWindow ( li_handle, 1 )
         If li_handle = Handle ( this ) THEN Return FALSE
         li_result = GetWindowText ( li_handle, ls_title, li_size )
         IF ls_title = as_title THEN lb_cont = FALSE
LOOP

//ShowWindow ( li_handle, 3 )

IF IsIconic ( li_handle ) > 0 THEN
         OpenIcon ( li_handle )
ELSE
         BringWindowToTop ( li_handle )
END IF
Return TRUE

工作原理

        获得另一个应用最顶层窗口引用的最简单的方法就是用FindWindow 函数
来查找。FindWindow 函数有两个参数：您要找的窗口的类名和窗口的标题。
注意，我们在localexternal 函数中用三种方式声明了这一函数。这是因为您可
以用null 作为“ 通配符” 分别传递两个参数。为了传递null，您必须将参数类
型定义成long 型，其值为0。所以我们需要为每一种可能的调用形式定义一
个localexternal 函数。当我们真正使用这个函数时，PowerBuilder 自动判断我们要
用哪一种形式。

        例如在窗口函数fw_make_app_active 中，我们可以用这种手段使Findwindow 函
数搜索ControlPanel 窗口。接下来只要将Findwindow 函数返回的窗口句柄传递
给BringWindowToTop 函数就可以激活ControlPanel 窗口了。

        但是这样的做法有这样两点缺陷：

        您并不总是知道某个应用的顶层窗口的全名。例如当您使
用MicosotWord，当前打开的文档的名字也将出现在窗口的标题上。因此，这
种情况下，寻找顶层窗口需要另一种方法。

        如果您希望激活的窗口正处于最小化状态，BringWindowToTop 函数将不能
正常工作。

        实际上，上面提到的第二个问题比较容易解决。我们加入IsIconic 函数判
断我们所要激活的窗口是否最小化。如果不是最小化状态，就使
用BringWindowsToTop 函数。如果是最小化状态，就用OpenIcon 函数来激活该窗
口。这种方法只假定我们想以窗口最小化前的大小及位置显示该窗口。我
们也可以用ShoWindow 函数来对要显示的其它应用的窗口施以更多的控制。

        本例中，我们传送一个参数使被激活窗口以最大化方式显示。如果您
想以不同的方式激活窗口，请参照下表的参数对应：

        0
        隐藏窗口

        1
        以窗口原来的大小和位置( 如果当前窗口处于最大化或最小化状态) 并
激活该窗口( 与值相同)

        2
        以最小化方式显示并激活窗口

        3
        以最大化方式显示并激活窗口

        4
        以窗口最近一次的大小和位置显示但不激活窗口

        5
        以窗口最近一次的大小和位置显示并激活窗口

        6
        最小化窗口并在系统列表中激活顶层窗口

        7
        最小化窗口但不激活窗口( 保持当前窗口激活)

        8
        以窗口的当前状态显示但并不激活它( 保持当前窗口激活)

        9
        恢复窗口原先的大小和位置( 如果窗口处于最小化或最大化状态) 并激
活它解决第二个问题时，我们声明了另外两个函数，GetNextWindow
和GetWindowsText。如果我们将一个窗口句柄传递给GetNextWindow 函数，它将
在父窗口所属的所有子窗口之间循环。如果将一个顶层窗口句柄传递给该
函数，该函数将在所有顶层窗口之间循环。我们希望得到的是后一种方
式，所以我们首先要获取自己应用的顶层窗口句柄。

        当我们在顶层窗口之间循环时，用GetWindowText 函数返回它们的标题。
这个函数有三个参数，窗口句柄，一个用以返回标题的字符串以及返回字
符串的最大长度。我们要好好利用最后一个参数，因为我们并不想要匹配
整个窗口标题，而是要匹配能保证我们发现所要寻找的窗口的长度。例
如，如果我们将“MicrosoftWord” 传递给这个窗口函数时，这个函数判断文
本的长度并将它加1，这样只将我们将要比较的串的长度传递给
了GetWindowText 函数，该函数在顶层窗口之间循环，寻找以该字符串开头的
窗口。如果我们发现了一个匹配，就设置结束循环标志，退出循环并继续
执行。如果我们没有发现匹配，将在循环到我们自己的应用窗口时退出循
环。这时，我们简单地退出函数。



--
※ 来源:．紫丁香 bbs.hit.edu.cn．[FROM: 202.97.236.132]
--
※ 转载:．紫丁香 bbs.hit.edu.cn．[FROM: whs.hit.edu.cn]
--
※ 转载:．紫丁香 bbs.hit.edu.cn．[FROM: cadcam.hit.edu.c]

Database 版 (精华区)