Authorware UCD 开发大揭秘(七)
热 ★★★★
Authorware UCD 开发大揭秘(七)
作者:闵涛 文章来源:闵涛的学习笔记 点击数:1401 更新时间:2009/4/23 18:27:15
VCL的辉煌(二) 一 Tgraphiccontrol的叛变 在上面这个例子中,请再注意一下:mediaplayer元件是继承于Twincontrol的,也就是说,能够被其他窗口“容纳”的元件必须是具有窗口句柄属性特征的元件,也即具有“parent”属性。 那么不是从Twincontrol继承下来的元件就无法用于Authorware了吗?不过还好,Borland公司 已经为我们留好了后门。 熟悉VCL元件体系结构的人知道:Twincontrol还有一个“兄弟”:Tgraphiccontrol和一个“儿子”Tcustomcontrol。Tgraphiccontrol和Twincontrol的不同之处在于:Tgraphiccontrol不具有窗口句柄,而具有canvas(画布) 属性和paint过程。Tcustomcontrol的好处是:它同时具有Twincontrol和Tgraphiccontrol的所有属性,爹是 Twincontrol,妈是Tgraphiccontrol,它本身是一个“混血儿”。有意思吧,VCL本身并不支持多重继承,Tcustomcontrol 元件可以说是一个特例,其实大多数元件就是从Tcustomcontrol继承下来的(真搞不懂为什么Borland公司要 设置一个Twincontrol,它完全是多余的)。 好了,现在大家明白“后门”是什么了吧。我们现在的目标就是把从Tgraphiccontrol继承下来的元件改由 它的“儿子”Tcustomcontrol继承,子承母业,理所当然,而且customcontrol具有Tgraphiccontrol的一切属性 ,这种转换绝对是安全的。我们现在定一个具体的目标:Timage元件,这个东西是从Tgraphiccontrol继承下来 ,应该说算是常用的元件了,拿它试刀正好。Borland公司把Timage的源码和其他一部分元件的源码都放在extctrl.pas文件里,处于dephi的安装目录中的…\Source\Vcl目录中。也可以在Dephi编辑器中找到该元件的声明 再按住Ctrl不放,也可以通过链接到源码。 现在找到“Timage=class(Tgraphiccontrol)”这一行,将“Tgraphiccontrol”改为“Tcustomcontrol”,并。保存。是不是很简单。改过之后,Timage元件就具有了窗口句柄属性了,接下来我们就可以将它安放在Authorware的窗口上了。 新建dll工程,并一定要在uses语句中加入:graphics,extctrls;这两个单元; 设置全局对象: var myimage:Timage; 。。。。。。。 创建这样一个函数:displaypicture(awparam:AWPARAM_PTR;bmpfilename:Pchar):boolean;stdcall; var awhandle:Thandle; begin awhandle:=awparam.hwnd; myimage:=Timage.create(nil); myimage.parentwindow:=awhandle;//image元件已经具有窗口句柄,可以纳入父窗口 myimage.picture.bitmap.loadfromfile(straps(bmpfilename));//加载图片文件 end; exports displaypicture;//导出函数 这只是一个简单的函数例子,如果再加上x,y两个参数作坐标位置,再设置它的宽和高等于图片的大小,同时还提供是否透明的选择,就更完美了,有兴趣的朋友可以自行添加代码使它更完善。最终在Authorware中执行如图所示: 那么根据这个方法,所有的基于Tgraphiccontrol继承下来的元件都可以通过改变继承基类实现与Authorware的对接。 Read More,Comments(0) Authorware UCD 开发大揭秘(六) by admin posted at oioj on 2004-4-22 8:14:17 Weather: 晴 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:xujinmax@21cn.com'''',''''关于本程序'''',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", "作[1] [2] 下一页
[Delphi程序 ]Authorware UCD 开发大揭秘(九) [Delphi程序 ]Authorware UCD 开发大揭秘(八) [Delphi程序 ]Authorware UCD 开发大揭秘(五) [Delphi程序 ]Authorware UCD 开发大揭秘(四) [Delphi程序 ]Authorware UCD 开发大揭秘(三) [Delphi程序 ]Authorware UCD 开发大揭秘(二) [Delphi程序 ]用DELPHI开发AUTHORWARE的u32 [平面设计 ]使用Authorware制作拼图游戏图解
教程录入:mintao 责任编辑:mintao
上一篇教程: Authorware UCD 开发大揭秘(五) 下一篇教程: Authorware UCD 开发大揭秘(八)
【字体:小 大 】【发表评论 】【加入收藏 】【告诉好友 】【打印此文 】【关闭窗口 】
注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
网友评论: (只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
同类栏目
赞助链接
500 - 内部服务器错误。
500 - 内部服务器错误。
您查找的资源存在问题,因而无法显示。