Authorware UCD 开发大揭秘(六)

类别:Delphi 点击:0 评论:0 推荐:
VCL的辉煌(一) 

一个巨大的宝藏被发掘了!什么宝藏?-V—C—L!VCL元件是DEPHI的精华,是最能体现DEPHI美感的东西(我个人认为),能把VCL元件 用于Authorware那是多么令人兴奋的事啊!现在就让在下带大家实现这一梦想吧,呵呵。 我想为了说清楚详细一些,还是举一个比较实用的例程来加以阐述。 我们的目的是:在Authorware中加入一个多媒体播放控件,使它成为一个多媒体播放平台。 

所用DEPHI元件:playform:窗体 

mediaplayer:媒体播放器 

opendialog;打开文件对话框 

openfilebtn:按钮 用于打开媒体文件 

aboutbtn:按钮,用于打开“关于”对话框 

如图所示: 


把form1的autosize属性设为true 

把opendialog的filter属性设为*.mp3|*.mp3|*.avi|*.avi|*.mpg|*.mpg|*.dat|*.dat|*.wav|*.wav|*.mid|*.mid 

在打开文件按钮单击事件中加入以下代码: 

procedure TForm1.openfilebtnClick(Sender: TObject); 

begin 

if openfiledialog.Execute then 

begin 

mediaplayer.FileName:=openfiledialog.filename; 

mediaplayer.Open; 

end; 

在“关于”按钮中加入以下代码: 

procedure TForm1.aboutbtnClick(Sender: TObject); 

begin 

messagebox(getforegroundwindow,'Authorware 媒体控制台'+chr(13)+chr(13)+'作者:徐进'+chr(13)+'忘情草工作室出品'+chr(13)+'Copr 1998-2001'+chr(13)+'Email:[email protected]','关于本程序',MB_OK or MB_ICONINFORMATION); 

end; 

进入工程单元 

在uses语句中加入以下引用单元: 

uses 

…… 

Messages, 

Windows, 

…… 

type 

AWPARAM = record//AWPARAM结构声明 

…… 

建立以下函数: 

function createmediacontrol(awparam: AWPARAM_PTR):boolean;stdcall; 

begin 

try 

form1:=Tform1.CreateParented(awparam.hwnd); 

//上面一句是关键,将form1纳入当前工作窗口(也就是Authorware窗口); 

//这样,我们用dephi创建的窗口就算“认贼作父”了, 

form1.Show; 

result:=true; 

except 

result:=false; 

end; 

end; 

exports //导出函数 

createmediacontrol; 


还没完,我们还要建立以下资源文件: 

1 DLL_HEADER LOADONCALL DISCARDABLE 

BEGIN 

"createmediacontrol\0", 

"\0" 

END 


createmediacontrol DLL_HEADER LOADONCALL DISCARDABLE 

BEGIN 

"\0", 

"L\0",(返回值类型:Long) 

"A\0", (参数类型:AWPARAM) 

"result:=createmediacontrol()\r\n", 

"作用:创建一个媒体控制台\r\n", 

"作者:徐进\0" 

END 

将文件保存为mediarc.rc文件并编译成mediarc.res在工程单元中引用: 

…… 

{$R mediarc.res} 

…… 

将该工程编译成为”mediacontrol.dll”,改名为“mediacontrol.u32”(其实不改名也可以,只要包含了资源文件,Authorware照样能识别出来).最终执行效果如图所示(在IDE环境下)这个Dephi的窗体确确实实成为Authorware的一个子窗口虽然这个例子代码很简单,可功能却非常强大,可以播放包括Mp3在内的各种常见音频视频的文件,还可以播放VCD,不比“结巴”差。 


在这个例子最后,我想补充说明一下:把Mediaplayer元件转化为ActiveX控件,然后在Authorware引也可以实现同样效果,但那又是另一回事了.现在我们可以在Authorware中自由地使用VCL元件了,但是等一等,我们满意了吗?有些挑剔的读者(也是聪明的读者)可能会发现,上面的例子并没有真正实现VCL与Authorware的“天衣无缝”的连接,因为VCL元件还要依附于Form元件来实现与Authorware的对接(尽管Form也是VCL元件),我们向往的是能够直接将VCL元件直接“嵌入”Authorware的窗体上而不是依附在Dephi的窗体上, 

引用部分: 

uses 

…… 

windows, 

messages, 

MPlayer,//媒体播放器源码单元,一定加入 

…… 

type 

AWPARAM = record 

…… 

var 

mediaplayer:Tmediaplayer; 

…… 

创建如下几个函数:(为了不和其他函数冲突,函数名一律为“X_”开头) 

function X_createmediacontrol(awparam:AWPARAM_PTR;visible,x,y:integer;filename:Pchar):boolean;stdcall; 

//创建媒体播放器 

//参数说明:awparam:隐含参数;Visible:控制是否可见(取1或0);x,y:放置播放器的坐标;filename:同时给//出的媒体文件名 

begin 

try 

mediaplayer:=Tmediaplayer.Create(nil); 

mediaplayer.ParentWindow:=awparam.hwnd ;//先创建mediaplayer对象,再赋给它父窗口 

mediaplayer.FileName:=strpas(filename);//设置媒体文件 

mediaplayer.Open; 

if visible=1 then 

mediaplayer.visible:=true 

else 

mediaplayer.Visible:=false;//设置可见性 

mediaplayer.Top:=x; 

mediaplayer.Left:=y;//设置坐标 

result:=true; 

except 

result:=false; 

end; 

end; 


function X_setmediafile(filename:Pchar):boolean;stdcall; 

//改变媒体文件名 

begin 

try 

mediaplayer.FileName:=strpas(filename); 

result:=true; 

except 

result:=false; 

end; 

end; 

function X_mediaplay:boolean;stdcall; 

//播放媒体文件 

begin 

mediaplayer.Play; 

result:=true; 

end; 

function X_pauseplay:boolean;stdcall; 

// 暂停播放 

begin 

try 

mediaplayer.Pause; 

result:=true; 

except 

result:=false; 

end; 

end; 

function X_freemediaplayer:boolean; stdcall; 

//释放媒体播放器(对象不用之后一定要释放) 

begin 

try 

mediaplayer.free; 

result:=true; 

except 

result:=false; 

end; 

end; 

exports //导出函数 

X_createmediacontrol, 

X_setmediafile, 

X_mediaplay, 

X_pauseplay, 

X_freemediaplayer; 

字符串资源文件: 

1 DLL_HEADER LOADONCALL DISCARDABLE 

BEGIN 

"X_createmediacontrol\0", 

"X_setmediafile\0", 

"X_mediaplay\0", 

"X_pauseplay\0", 

"X_freemediaplayer\0", 

"\0" 

END 


X_createmediacontrol DLL_HEADER LOADONCALL DISCARDABLE 

BEGIN 

"\0", 

"L\0", 

"AIIIS\0", 

"result:=X_createmediacontrol(visible,x,y,filename)\r\n", 

"作用:创建一个媒体控制台\r\n", 

"作者:徐进\0" 

END 


X_setmediafile DLL_HEADER LOADONCALL DISCARDABLE 

BEGIN 

"\0", 

"L\0", 

"S\0", 

"result:=X_setmediafile(filename)\r\n", 

"作用:打开一个媒体文件\r\n", 

"作者:徐进\0" 

END 


X_mediaplay DLL_HEADER LOADONCALL DISCARDABLE 

BEGIN 

"\0", 

"L\0", 

"V\0", 

"result:=X_mediaplay()\r\n", 

"作用:播放媒体文件\r\n", 

"作者:徐进\0" 

END 


X_pauseplay DLL_HEADER LOADONCALL DISCARDABLE 

BEGIN 

"\0", 

"L\0", 

"V\0", 

"result:=X_pauseplay()\r\n", 

"作用:暂停播放媒体文件\r\n", 

"作者:徐进\0" 

END 


X_freemediaplayer DLL_HEADER LOADONCALL DISCARDABLE 

BEGIN 

"\0", 

"L\0", 

"V\0", 

"result:=X_freemediaplayer()\r\n", 

"作用:释放媒体播放器\r\n", 

"作者:徐进\0" 

END 

最后编译导入Authorware运行的效果如图所示: 

它完完全全地附在了Authorware的窗口上,当然你也可以使它隐藏起来。

本文地址:http://com.8s8s.com/it/it4309.htm