您现在的位置: 中国男护士网 >> 考试频道 >> 计算机等级 >> 二级辅导 >> VFP >> 辅导 >> 正文    
  VFP应用程序多媒体徽标的实现 【注册男护士专用博客】          

VFP应用程序多媒体徽标的实现

www.nanhushi.com     佚名   不详 

  一、引言

  类似于某些电视台放置在屏幕左上角的动画台标,越来越多的应用软件在屏幕的某个位置放置动态的厂商标记图案或系统徽标,为应用程序增色不少。由于VFP不支持GIF动画文件,要实现这种效果就比较困难。一种方法是在屏幕上放置多张图片,利用Timer控件交替显示这些图片。这种方法在交互式处理时用户会有迟滞感,显示效果也难以令人满意。另一种方法是以OLE方式处理多媒体徽标,简单快捷,但存在运行速度较慢、重复占用磁盘空间和软件不易维护等问题。比较好的处理方法是先用Cool3D方便快速地制作一个视频剪辑AVI多媒体徽标文件,然后利用WindowsAPI函数mciSendString()以及foxtools.fll库函数,实现VFP应用程序多媒体徽标的高效处理。

  二、基本处理思想

  我们知道,WindowsAPI函数mciSendString()可以播放多媒体文件,SetWindowPos()函数则使我们可以在应用程序窗体上的指定位置播放媒体。光有这两个函数还不够,我们需要利用VFP为我们提供的外部应用程序接口库文件foxtools.fll。其中,_WhToHwnd() 函数返回指定WHANDLE的窗口句柄,_WonTop()则返回顶端窗口的窗口句柄。在表单中利用这两个外部过程可以获得当前表单的窗口句柄,再利用SetWindowPos()就可以在表单中适当位置播放媒体了。

  MciSendString()函数的使用格式如下:

DECLARE integer mciSendString in WinMM.DLL ;
string lpszCommand,;
string @lpszReturnString,;
integer cchReturn,;
integer hwndCallback

  各参数的含义:lpszCommand,播放多媒体的指令串;lpszReturnString,接收返回信息缓冲区的地址,若不需要返回信息可设置为NULL;cchReturn,缓冲区大小;hwndCallback ,返回的窗口句柄。
SetWindowPos()函数的使用格式如下:

DECLARE integer SetWindowPos in User32.DLL ;
integer hwnd,;
integer hWndInsertAfter,;
integer x,;
integer y,;
integer cx,;
integer cy,;
integer uFlags

  各参数的含义:hwnd,窗口句柄;hWndInsertAfter,设置当前窗口的Zorder值;x,窗口左边坐标点;y,窗口顶部坐标点;cx,以像素表示的窗口宽度;cy,以像素表示的窗口高度。



  三、具体实现方法

  ⒈利用Cool3D制作一个80X40左右大小的视频剪辑文件TagAVI.AVI。

  ⒉在VFP中新建一个表单main,在其init事件中键入如下代码:

*调用外部接口库文件
SET library to sys(5)+sys(2003)+"\foxtools.fll"
*声明WindowsAPI函数
DECLARE integer mciSendString in WinMM.DLL;
string lpszCommand,;
string @lpszReturnString,;
integer cchReturn,;
integer hwndCallback
DECLARE integer SetWindowPos in User32.DLL ;
integer hwnd,;
integer hWndInsertAfter,;
integer x,;
integer y,;
integer cx,;
integer cy,;
integer uFlags

  ⒊在表单main上新建PlayMedia方法,其代码为:

LPARAMETERS cMciCmd
cRetString = space(80)
nRetValue = mciSendString(cMciCmd, @cRetString, len(cRetString),0)
RETURN allt(strtran(cRetString,"",""))

  ⒋在表单main的Activate事件中添加如下代码:

ON error messagebox(message(),16,"出错")
*初始化处理,关闭当前媒体文件。myMedia为TagAVI.avi文件的别名。
thisform.PlayMedia("CLOSE myMedia ")
*获得当前表单窗口句柄
EXTERNAL procedure _WhToHwnd
EXTERNAL procedure _WOnTop
cur_window = _WhToHwnd(_WOnTop())
*打开媒体文件
cCmd='OPEN "TagAVI.avi" alias myMedia'+' style child parent '+ allt(str(cur_window))
thisform.PlayMedia(cCmd)
cCmd = "status myMedia window handle"
hWin =int(val(thisform.PlayMedia(cCmd)))
*在当前表单的适当位置播放媒体文件
setWindowPos(hWin,0,0,170,80,40,0)
thisform.PlayMedia("PLAY myMedia")

  ⒌向表单main添加一个Timer控件,设置其Interval属性值为500(可根据TagAVI.avi文件的大小进行调整),然后在其timer事件中输入下列代码:

cCmd = ("STATUS myMedia MODE")
IF thisform.PlayMedia(cCmd) = "stopped"
nLen=val(thisform.PlayMedia("STATUS myMedia length"))
nPos=val(thisform.PlayMedia("STATUS myMedia position"))
*如果已经播放到片尾,则回到片头
IF nPos>=nLen then
thisform.PlayMedia("SEEK myMedia to start ")
ENDIF
*重新播放
thisform.PlayMedia("PLAY myMedia")
ENDIF

  四、结束语

  上述程序在Windows98环境中,用VFP5.0调试通过。另外,在发布应用程序时,应注意将foxtools.fll文件随应用系统一起发布。实际上,我们还可以播放dat、mpg、mov等格式的多媒体文件,但需要在控制面板"多媒体"属性中确认相应的编码解码器已经安装,否则将无法播放多媒体徽标。

 

文章录入:杜斌    责任编辑:杜斌 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
     

    联 系 信 息
    QQ:88236621
    电话:15853773350
    E-Mail:malenurse@163.com
    免费发布招聘信息
    做中国最专业男护士门户网站
    最 新 热 门
    最 新 推 荐
    相 关 文 章
    没有相关文章
    专 题 栏 目

      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)                            【进男护士社区逛逛】
    姓 名:
    * 游客填写  ·注册用户 ·忘记密码
    主 页:

    评 分:
    1分 2分 3分 4分 5分
    评论内容:
  • 请遵守《互联网电子公告服务管理规定》及中华人民共和国其他各项有关法律法规。
  • 严禁发表危害国家安全、损害国家利益、破坏民族团结、破坏国家宗教政策、破坏社会稳定、侮辱、诽谤、教唆、淫秽等内容的评论 。
  • 用户需对自己在使用本站服务过程中的行为承担法律责任(直接或间接导致的)。
  • 本站管理员有权保留或删除评论内容。
  • 评论内容只代表网友个人观点,与本网站立场无关。