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:
[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/it4312.htm