摘要：可以随意播放你自己的文件;下面是delphi7中我用bass.dll播放文件的实例.(和分类标题一样,写的很菜的,请多多包含指点啊)说明:要播放文件名为wdf的某段数据;偏移offset处开始,读取size大小的内容到memorystream中,然后调用bass播放;(这是目前bass的版本,老版本没试过,呵呵)function bassmp3(wdf: string; offset,size: ......
摘要：在rs232中有4个脚位可用来回应讯号给电脑分別为cts,dsr,ring,rlsd当未接上设备时,脚位的电太皆为低电压,讯号传回off,很多设备都利用此四个脚位与电脑沟通,所以检查脚位电压就知道改com上是否有设备存在ms_cts_on,ms_dsr_on,ms_ring_on,ms_rlsd_onprocedure tform1.button1click(sender: tobject);va......
FastReport常见问题集
fastreport问题集 选自delphi园地 http://www.delphifans.com/infoview/article_401.html 【程序编程相关:
长小豆豆的美女 - 理性看待Delphi】 【推荐阅读:
Delphi单元测试工具Dunit介绍
】---------------- 使用自定义函数 ---------------------------------------- 【扩展信息:
看一小会儿COM所做笔记
】 q: 我怎样添加我的自定义函数? a: 使用 tfrreport.onuserfunction 事件. 这里有一个简单的例子: procedure tform1.frreport1userfunction(const name: string; p1, p2, p3: variant; var val: variant); begin if ansicomparetext(‘sumtostr‘, name) = 0 then val := my_convertion_routine(frparser.calc(p1)); end; 然后,你就可以在报表（任何表达式或脚本）的任何地方使用 sumtostr 函数了. q: 但是它仅仅能工作在一个tfrreport组件中.可我想在任何地方（在所有的tfrreport组件中）使用的我的自定义函数? a: 使 onuserfunction event 句柄作为所有组件的公用句柄.如果你不能做到这一点,你需要创建函数库: type tmyfunctionlibrary = class(tfrfunctionlibrary) public constructor create; override; procedure dofunction(fno: integer; p1, p2, p3: variant; var val: variant); override; end; constructor tmyfunctionlibrary.create; begin inherited create; with list do begin add(‘datetostr‘); add(‘sumtostr‘); end; end; procedure tmyfunctionlibrary.dofunction(fno: integer; p1, p2, p3: variant; var val: variant); begin val := 0; case fno of 0: val := my_dateconvertion_routine(frparser.calc(p1)); 1: val := my_sumconvertion_routine(frparser.calc(p1)); end; end; 要注册函数库,调用 ...
下一页 摘要：{////////////////////////// //// grids549 //// //// 14:33 2005-2-17 //// //}////////////////////////unit grids549;
interface
uses dbgrids, classes, windows;
type tdbgrid549 = class(tdbgrid) public ......
