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