当前位置:首页 » 软件开发
开发技术指南» 文章正文
    引言: 可以随意播放你自己的文件;下面是delphi7中我用bass.
 

 

    摘要: ehlib3.0版本以上虽然支持排序功能,但不支持带有order by的sql语句,而且排序很慢;我写的这个排序函数,利用ado的sort方法,排序很快,几万条数据也是很快。该函数支持lookup字段排序,不支持计算字段排序,因为计算字段值在内存里高速运算。排序分为:升序、降序和默认三种,支持排序图标。procedure sortdbgrideh(sender: tobject; acol: i......
 ·authorware ucd 开发大揭秘(二)    »显示摘要«
    摘要: 入 门 篇- authorware插件的格式。 用过authorware的朋友可能会注意到在authorware系统目录下有十几个扩展名为.u32或.ucd的文件,没错,这就是authorware的插件。其实这些文件的格式是非常标准的window动态链接库文件,也就是*.dll这样的文件。authorware通过在动态链接库文件中访问指定的函数,如果该函数需要参数,则authorware传递给该......


bass真是太好用了!
可以随意播放你自己的文件;

下面是delphi7中我用bass.dll播放文件的实例. 【程序编程相关:Delphi中两个BUG的分析与修复

【推荐阅读:Delphi command-line

(与分类标题一样,写的很菜的,请多多包含指点啊) 【扩展信息:第4部分 编译文件(第9页)

说明:

要播放文件名为wdf的某段数据;

偏移offset处开始,读取size大小的内容到memorystream中,

然后调用bass播放;

(这是目前bass的版本,老版本没试过,呵呵)

function bassmp3(wdf: string; offset,size: longword; mem: boolean): boolean;

var fs: tfilestream;

 f: pchar;

 volume: integer;

 p: pointer;

begin

  volume := 40;

  if (mem) then

  begin

  bass_free;  //free first;

  freeandnil(mp3ms);//freeandnil(ms);

   fs := tfilestream.create(wdf,fmopenread,fmsharedenynone);

  fs.seek(offset,sofrombeginning);


...   下一页
 ·authorware ucd 开发大揭秘(七)    »显示摘要«
    摘要: vcl的辉煌(二) 一 tgraphiccontrol的叛变   在上面这个例子中,请再注意一下:mediaplayer元件是继承于twincontrol的,也就是说,能够被其他窗口“容纳”的元件必须是具有窗口句柄属性特征的元件,也即具有“parent”属性。 那么不是从twincontrol继承下来的元件就无法用于authorware了吗?不过还......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE