pb多线程.docVIP

SharedObject系列函数 和共享对象有关的函数包括：SharedObjectRegister、SharedObjectGet、SharedObjectUnregister和SharedObjectDirectory函数。 首先，用SharedObjectRegister函数初始化共享对象，并建立一个单独的线程。如： SharedObjectRegister (“ccuo_thread” ,“thread1” ) 其中ccuo_thread是一个共享的自定义类用户对象的类名，thread1是共享对象实例的共享名。如果SharedObjectRegister函数返回Success，则新线程创建成功。 然后，执行指定代码。有两种方法让新线程执行指定的代码：一种是在自定义类用户对象的constructor事件中编写脚本，新线程创建后就会自动执行该事件脚本；另一种方法是使用SharedObjectGet函数。该函数实现共享对象实例的引用，如： SharedObjectGet ( “thread1” ,inv_thread )??其中inv_thread是用来存储共享对象实例的一个对象变量，要求与ccuo_thread具有同一个类名。 最后，通过使用Post语句，即以inv_thread.Post of_function(agrs)的形式，异步调用共享对象的函数of_function。 在完成任务后，可以用SharedObjectUnregister函数中止线程，也可用SharedObjectDirectory函数列出所有有效的共享对象。 函数调用部分 本文所用Win32 API函数原型为： Function Ulong FindWindowA ( String lpClassName ,String lpWindowName ) Library “user32.dll” Function Ulong GetTickCount ( ) Library “kernel32.dll”??Function Ulong GetDesktopWindow ( ) Library “user32.dll”??Function Boolean GetWindowRect ( Ulong hWnd ,ref stc_rect lpRect ) Library “user32.dll” Function Boolean MoveWindow ( Ulong hWnd ,int X ,int Y ,int nWidth ,int nHeight ,Boolean bRepaint ) Library “user32.dll”??下面具体讨论如何实现消息对话框的居中显示： //声明对象变量 ccuo_thread lccuo_thread??//创建新线程 SharedObjectRegister (‘ccuo_thread’ ,‘thread_center’ ) //引用实例 SharedObjectGet (‘thread_center’ ,lccuo_thread )??//调用窗口居中函数 lccuo_thread.Post of_center (‘＃32770’ ,‘Demostration’ ,2000 )??//创建消息对话框 MessageBox ( ‘Demostration’ ,‘Copyright(c) 2001 by Y.L.Sun’ )??//中止线程 SharedObjectunRegister ( ‘thread_center’ )??函数实现部分 实现窗口居中显示的函数是自定义类用户对象ccuo_thread的对象函数of_center，其实现代码如下： ccuo_thread.of_center ( String lpclassname ,String??lpwindowname , Ulong dwtimeout ) return Boolean //lpclassname： 消息对话框的类名（＃32770） //lpwindowname： 消息对话框的标题 //dwtimeout： 超时计数 Ulong lul_hwnd //存放消息对话框的句柄 Ulong lul_start //计时开始时刻的值 lul_start = GetTickCount ( ) //计时开始 do //查找顶层窗口 lul_hwnd=FindWindowA ( lpclassname ,lpwindowname ) //找到顶层窗口后，跳出循环 if lul_hwnd 0 then exit //判断是否已超时 loop while GetTi