Database 版 (精华区)

发信人: PowerBuilder (孙武空), 信区: Database
标  题: 6
发信站: 哈工大紫丁香 (2001年09月26日18:00:21 星期三), 站内信件

发信人: icefire@argo (冰火), 信区: Datebase
标  题: PowerBuilder 每日心得 (6)              wdsq (转寄) (转载)
发信站: Yat-sen Channel BBS (Sat Nov  8 22:08:40 1997)
转信站: argo (local)

【 以下文字转载自 icefire 的信箱 】
【 原文由 <bbs@s1000e.whnet.edu.cn> 所发表 】
发信人: SQ (WonderDiscoveror), 信区: Database
标  题: PowerBuilder 每日心得 (6)
发信站: 华中地区网络中心 (Tue Oct  8 11:09:54 1996)

在PowerBuilder中用 OLE Automation 太简单了!

PB5 不仅可以支持OLE Automation Client, 而且可以很方便地做
OLE Automation Server. 事实上，每个user object 都是OA Enabled的。
如果外面的应用程序要使用PB的User Object, 只需作如下调用:

1. 在VB中调用
        Dim PBObject as object

        'Create the ole object at first
        PBObject = CreateObject("uo_test") 'uo_test is my userobject in PB
        if PBObject is nothing then
           REM Error handling
        else
           PBObject.SomeAttribute = "some value"
           PBObject.DoSomething("Method parameter")
        end if

        'Disconnect the OLE object
        PBObject = nothing

2. 在PB中使用其它PB程序的对象

        OleObject PBObject
        long status

        PBObject = CREATE OleObject
        status = PBObject.ConnectToNewObject("uo_test")
        if (status<0) then
          // Error handling
        else
           PBObject.SomeAttribute = "some value"
           PBObject.DoSomething("Method parameter")
        end if
Method parameter")
        end if

        // Destroy the object after quiting program
        DESTROY PBObject

当然，如果要向上面如此方便地使用PB的user object, 使其在外部可被驱动，必须
在系统的注册数据库中有记录。利用PB5提供的Install Builder, 可以方便地生成
注册所需要的注册数据和Type Library.

哎，真是太方便了！(想起了荣昌x泰)

明天继续讨论这个问题。

--
※ 来源:．华中地区网络中心 s1000e.whnet.edu.cn．[FROM: 202.114.6.104]

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.229.154]