PB中如何调用多个Director动画.

PB中如何调用多个Director动画
（深圳：独孤求败2003-05-26）
(摘要：用PB作界面是十分方便的，用Diredtor作动画是非常容易的。

怎样把两者给合起来呢？本文介绍了一种方法，使PB的应用程序能方便地调用Director的动画)
一、概述
PowerBuilder(以下简称PB)是一个基于Windows、NT或Motif环境下面向对象的客户机/服务器(C lient/Server)软件开发工具，用PB开发应用程序实际上是用各种不同的画笔(Painter)设计各种对象，每个对象完成相应的特定功能，然后用其编程语言PowerScript 有机地调用它们，从而完成一个应用程序。

Director是一个功能强大、运用广泛、基于角色的多媒体开发工具，可用来制作动画,交互电影,市场营销展示等各种各样的多媒体产品.它能把文字、图形、图象、声音、动画、视频等各种多媒体项目数据汇集在一起。

并可生成脱离Director环境直接在Windows下运行的可执行文件。

现在市场上好多多媒体产品都是用Director制作的，如《万事无忧》、《卡通英语乐园》、《十万个为什么》等。

利用Diredtor制作多媒体产品比较简单，对软件制作人员的要求较低，开发周期也较短，并且通过其编程语言Lingo编写脚本能使开发出来的多媒体产品具有很强的人机交互能力。

二、问题提出
用PB来作界面是非常方便的，但是用它作动画却不容易；用Director作动画是非常简单的，但是用它作界面却不够理想。

能否把他们结合起来：即用PB来作界面，用Director作动画，然后用PB调用Director动画？
由于Director没有提供外部接口让其它应用程序来调用Director 动画。

有一个办法是把Dire ctor 源文件都生成可执文件, 然后用PowerBuilder的Run(app_name)函数去调用Director的可执文件。

但因为Director的可执行文件比源文件大得多，所以这样做不仅浪费空间，而且也不易实现。

三、主要步骤
利用下面的方法,可以实现在PB中只需一个Director的可执行文件(假设为Temp.exe)就可以实现调用多个Director动画。

主要步骤是：
1、用PB的应用程序用Run(Temp)函数调用Temp，并给Temp传递一个参数，此参数假设为要播放动画的文件名；
2、Temp运行后，根据PB传递的参数播放相应的动画；
3、Director动画播放完毕，返回到PB的应用程序。

四、具体实现和举例
下图是用PB做的一个窗口（取名为Main)，包含一个静态文本框st_1,两个按钮cb_1(确定)、cb _2(取消)和一个列表框lb_1.
例子的功能：列表框中显示10个动画选项，用户选择任意一项，按“确定”按钮则播放相应的动画，动画播放完毕返回到Main。

窗口Main的open事件的脚本为：
int i
for i=1 to 10
lb_1.additem("动画"+string(i))//给列表框加10项。

next
由于只用一个Director可执行文件Temp.exe，每次PB要播放动画时都用RUN(Temp)，那么Temp. exe如何得知要播放那个动画呢？所以在PB调用动画时给Temp.exe传递一个参数是必需的。

因为Direct or不能获取命令行参数，所以调用Temp.exe时采用命令行参数给Temp.exe传递参数已行不通。

一个可行的方法是PB在调用Temp.exe之前把参数写到一个临时文件Filename.txt中，当Temp启动后，再从File name.txt中去取参数。

所以cb_1的Clicked事件的脚本为：
int n
int li_FileNum
n=lb_1.selectedindex()
li_FileNum = FileOpen("filename.txt", &
StreamMode!, Write!, LockWrite!, Replace!)//打开文件
filewrite(li_fileNum,"d:\eng\am\am"+string(n,"00"))
//假设动画文件在“d:\eng\am”目录下，文件名分别为am01.dir、am02.dir...am10.dir
fileclose(li_filenum)
st_1.text="正在启动文件,请稍候..."//给用户一个提示信息
run("temp")
st_1.text="请您选择:"
按钮cb_2的clicked事件的脚本：
close(parent)
列表框lb_1的doubleclicked事件的脚本：
cb_1.triggerevent(clicked!)
下面介绍文件Temp.exe的实现，Director本身没的提供有关的文件读写的函数，但是它可以调用外部的DLL(动态链接库)，但它调用的动态链接库格式与一般的DLL有些区别，详细资料请参阅Direct or V4.0中Xobjecv。

Director提供了一个名为Fileio.dll的动态链接库，它包含了一些有关文件操作的函数，可直接调用(更详细资料请参阅Director手册)。

文件Temp的功能非常简单，只是从文件filename.txt中读取PB传递过来的参数（动画的文件名）。

然后用Play Movie filename命令去调用以参数为名的Director动画即可，这个步骤可以在Temp文件中的Startmovie事件中（在Director中叫Handle而不叫事件）完成。

程序如下：
global filename,greadobject
on startmovie
OPENXLIB "FILEIO" //打开外部的动态链接库
put fileio(mnew,"read",The PathName&"filename.txt") into greadobject
put greadobject(mreadLine) into filename
//把filename.txt的内容读一行到变量filename中。

greadobject(mdispose)
CLOSEXLIB "FILEIO"-关闭外部的动态链接库play movie filename--播放动画
end
做完之后把它生成可执行文件。

至此，程序的功能已实现。