PBII第2章(1-2)

第2章 高级编程技术
本章主要内容
OLE自动化服务 使用WINSOCK进行通讯 SQL编程技术 连接数据库
2
§ 1 OLE自动化服务
Automation(自动服务)是一种从应用程序外管理该应用程序 对象的方式。自动服务通常用来创建应用程序，该应用程序为编 程工具和宏语言提供对象，在一个应用程序中创建和管理另一个 应用程序的对象，或者创建访问和管理对象的工具。以前称为 OLE 自动服务。在实际应用程序的开发中，有时某个OLE对象 并不需要在程序的界面中显示出来，此时可以创建一个与、控件 独立的OLE对象，与服务器应用程序连接起来，然后对这个对象 进行函数调用和属性设置等操作。服务器应用程序执行函数、改 变OLE对象的属性，从而也就使OLE对象发生变化。下面的实例 利用PowerBuilder的OLEObject对象类型声明一个变量，然后 与Word或Excel的OLE接口连接起来，从而实现PowerBuilder 与Word或Excel之间的通信。
13
பைடு நூலகம்
1.2 相关语句或函数
比如，用户创建了菜单对象m_p_menu，下面的代码创建弹 出菜单的实例 m_p_menu m_mypop_menu m_mypop_menu = CREATE m_p_menu
又如，下面的语句创建一个事务对象实例
Transaction DBTrans DBTrans = CREATE Transaction
3
1.1 相关系统函数
1．获得打开的文件名函数GetFileOpenName( ) 语法格式： GetFileOpenName(title,pathname,filename {,extension{,filter{, initdir{, aFlag}}}}) 功能：显示打开文件对话框，让用户选择要打开的文件。 其中参数 title 为字符串，指定对话框的标题 pathname 为String类型变量，用于保存该对话框返回的 文件路径及文件名 filename 为String类型变量，用于保存该对话框返回的文 件名 extension 为字符串（可选），使用1到3个字符指定默认 的扩展文件名，默认无
20
1.2 相关语句或函数
用法：在应用程序创建了OLEObject对象实例并连接到OLE对 象和OLE服务器应用程序之后，应用程序就可以设置服务器支持 的属性和调用服务器支持的函数了。PowerBuilder编译程序并 不检查OLEObject变量属性访问和函数调用的语法，但是，如果 这些属性或函数在程序运行时不存在，将引发运行错误。 在创建了OLEObject对象实例后，在该变量失效之前必须及时 删除该对象。当应用程序删除OLEObject对象实例时，它断开与 服务器的连接并关闭服务器。如果OLEObject变量失效后该对象 没有被删除，那么就没有正常办法来终止服务器应用程序了。
DESTROY objectvariable
例如对前面的示例中创建的事务对象DBrans，可使用下述语 句释放：
DESTROY DBTrans
15
1.2 相关语句或函数
3.与OLE对象实例建立联系的函数
有两种类型，语法格式分别为：
格式一：oleobject.ConnectToNewObject ( classname ) 功能：在指定服务器应用程序中创建新的OLE 对象实例并连 接到该实例上，必要时该函数启动服务器应用程序。 oleobject为OLEObject对象变量名，新的OLE 对象将连接 到该变量上；
12
1.2 相关语句或函数
1.创建系统对象实例CREATE 语句
对非可视的系统对象类型使用CREATE 语句创建对象实例。 实例生成后就可以使用点运算符(.)引用对象的成员了。
CREATE 语句返回对象实例的句柄通过该句柄引用新生成的 实例。 语法格式如下： objectvariable = CREATE objecttype objectvariable 是数据类型为objecttype 的变量，可以是全 局变量实例变量或局部变量； objecttype 是对象数据类型。
7
1.1 相关系统函数
8
1.1 相关系统函数
2. 获得保存文件名及路径的函数GetFileSaveName() 语法格式： GetFileSaveName ( title, pathname, rfilename {, extension {, filter{, initdir{, aFlag}}}}) 功能：显示保存文件对话框，让用户选择要保存到的文件。 其中参数类似GetFileOpenName( )函数，略。 返回值：Integer。如果成功返回1（用户单击了“保存”按 钮）；如果用户单击了“取消”或Window中断了显示，则返 回0；如果出错则返回-1。 示例：下面的代码显示保存文件对话框，对话框中显示保存 类型Excel Files (*.xls)。如图2-2所示。
DBTrans.DBMS = 'ODBC'
需要注意的是，CREATE 语句只能用于创建非可视对象；可 视对象的实例使用合适的OPEN函数创建。
14
1.2 相关语句或函数
2.释放对象实例DESTROY语句
用CREATE语句创建的对象实例，在使用完毕后应该及时地释 放，以使对象实例占据的内存资源得到重用。释放对象实例的 语 句 是 DESTROY ， 释 放 之 后 该 对 象 实 例 不 能 再 被 引 用 。 DESTROY 语句的语法格式为：
用法：OLEObject变量用于OLE自动化。在OLE自动化方式下 PowerBuilder应用程序以编程方式请求服务器应用程序操作 OLE对象。
17
1.2 相关语句或函数
示 例 ： 下 面 的 代 码 建 立 OLEObject 变 量 , 并 调 用 ConnectToNewObject()函数创建新的Excel 对象并连接到该对 象上。 Integer result
OLEObject myoleobject myoleobject = CREATE OLEObject result = myoleobject.ConnectToNewObject & ( "excel.application")
18
1.2 相关语句或函数
格式二：oleobject.ConnectToObject ( filename {, classname } ) 功能：打开指定文件并连接到相应的服务器应用程序上，必要 时启动相应的服务器。 oleobject 为OLEObject对象变量名； filename为String类型，其值为OLE存储文件的文件名，应 用程序也可以把该参数指定为空字符串“”，此时必须使用参 数classname。Oleobject 变量连接到classname 指定的服务 器应用程序的当前活动对象上。 classname 为 String 类型 ， 是可选项 ， 其值是 OLE 类的类名， 它指明了 OLE服务器应用程序以及该服务器能够通过 OLE 操作 的对象类型。如果省略了该参数PowerBuilder使用filename参数 中文件名的扩展部分决定要启动哪个服务器应用程序。
19
1.2 相关语句或函数
返回值：Integer型。函数执行成功时返回0，发生错误时返 回下述值之一：
-1 无效调用,oleobject对象变量名是某个OLE控件的Object属性 -2 未找到指定的类名 -3 不能创建对象 -4 不能连接到对象 -5 不能连接到当前活动对象 -6 无效的文件名 -7 未找到指定文件或指定文件不能被打开 -8 服务器不支持指定文件 -9 其他错误 -15 本计算机上未加载MTS -16 无效调用该函数不使用于OLETxnObject 对象 如果任何参数的值为NULL，则ConnectToObject()函数返回NULL。
9
1.1 相关系统函数
10
1.1 相关系统函数
Integer li_ret String filepath,filename li_ret = GetFileSaveName("保存文件", & filepath, filename, "Excel", "Excel Files (*.xls),*.xls" ) If li_ret =1 Then … (其它代码) End If 3. 检查指定的文件是否存在的函数FileExists() 语法格式： FileExists ( filename ) 功能：检查指定的文件是否存在 其中参数filename 为字符串，可以包含路径。
6
1.1 相关系统函数
示例：下面的代码显示打开文件对话框，之后打开用户选择 的文件，对话框中显示TXT 和DOC 类型的文件。如图2-1所示。 String docname, named Integer value value = GetFileOpenName("打开文件",docname, & named, "DOC", & "文本文件(*.TXT),*.TXT , Doc 文件(*.DOC),*.DOC" ) If value = 1 Then FileOpen(docname) ……
classname 为String 类型，其值是OLE 类的类名，它指明了 OLE服务器应用程序及该服务器能够通过OLE操作的对象类型
返回值：Integer 型。函数执行成功时返回0 ，发生错误时返 回下述值之一：
16
1.2 相关语句或函数
-1：—无效调用，oleobject对象变量名是某个OLE 控件的Object属性 -2 ：—未找到指定的类名 -3 ：—不能创建对象 -4 ：—不能连接到对象 -9 ：—其他错误 -15 ：—本计算机上未加载MTS -16 ：—无效调用该函数不使用于OLETxnObject 对象 如果任何参数的值为NULL，则ConnectToNewObject()函数返回 NULL。