Delphi实现自动化对象的一种简易方法

2017年02月06日 71 阅读

Delphi实现自动化对象的一种简易方法2011-04-23IcebirdDelphi 中不需要建立ActiveX Library，不需要编辑TLB也能创建一个自动化对象。秘密就在于$METHODINFO这个没有文档描述的编译指令。首先我们定义一个TScriptableObject，继承自TObjectDispatch （ObjComAuto.pas）{$METHODINFO ON} TScriptableObject = class（TObjectDis...

如何用Delphi实现子目录级的文件查询

2017年02月06日 74 阅读

如何用Delphi实现子目录级的文件查询2011-04-23在应用实践中，我们经常会用到文件查询功能。通过Win95中提供的查找功能，我们可以方便的找出磁盘上任何子目录下的文件，其原因是该查找功能可以遍历指定目录下的所有子目录中的文件。从编程角度讲，它实现了子目录级的文件查询。其实，这项功能并不难实现，关键是能理解并掌握懙莨閽这种程序设计思路。本人用Delphi实现了该项功能（任意子目录级），由于使用了懙莨閽，程序思路清晰，代码量小。实现方法：1．获取当前...

用Delphi建立通讯与数据交换服务器—Transceiver技术剖析（上）

2017年02月06日 66 阅读

用Delphi建立通讯与数据交换服务器—Transceiver技术剖析（上）2011-04-23引言在国内常见的信息化开发及实施项目中，大多数开发的工作量都集中于为适应不同客户的 需求差异，对特定模块进行修改，最终达到客户期望的软件功能特性。但是对于开发厂商来 说，面对不同的客户开发不同的软件版本，将导致重复劳动、成本上升、维护量加大、兼容 和稳定性下降等一系列问题。所以，开发者认识到实现软件的产品化，才能具备较短的项目 周期与较强的市场竞争力，尽可能地适...

用Delphi建立通讯与数据交换服务器—Transceiver技术剖析（下）

2017年02月06日 70 阅读

用Delphi建立通讯与数据交换服务器—Transceiver技术剖析（下）2011-04-23二、 Transceiver Service详解1．Transceiver Service分析概要Transceiver Service是Transceiver系统的核心构成，Transceiver Kernel负责从系统配置库读取Transceiver Console设定的Port、Channel定义与参数，运行时动态创建和管控通讯Port及其关联关系，对数据...

如何在C++Builder中使用Delphi控件

2017年02月06日 65 阅读

如何在C++Builder中使用Delphi控件2011-04-23施江杰使C++Builder使用DelphiVCL类库的方法基于Windows中较通用的DLL方式。在实际应用中 找到了将VCL控件转化为DLL库，在C++Builder动态调用DLL。此法适用于非可视VCL控件。假令在Delphi中有一Sample控件，有属性Actived、Pro1、Pro2，欲将这个控件转到 C++Builder中使用。一、Delphi中DLL的制作在Delphi中新...

Delphi中使用DBExpress组件连接远程Mysql数据库

2017年02月06日 77 阅读

Delphi中使用DBExpress组件连接远程Mysql数据库2011-04-23Delphi6新增的DBExpress专门用来对付MySQL,DB2，Interbase,Oracle等数据库，使用时 注意将libmysql.dll拷贝到当前目录或系统目录（98:system,NT:system32）下，并保证您的 3306端口与远程服务器是相通的。源程序：interfaceusesWindows, Messages, SysUtils, Variant...

Delphi中用多媒体库Bass.dll播放mp3 [1] - 安装调试

2017年02月06日 71 阅读

Delphi中用多媒体库Bass.dll播放mp3 [1] - 安装调试2011-04-23 博客园 万一最近要写个小程序, 用到 mp3 播放; 因为需要非常复杂的控制与功能, 想到了 Bass.dll.以前我曾以为 Bass.dll 是 Windows 系统自带的库, 后来才知道原来是第三方的: http://www.un4seen.com/.Bass.dll 一直在更新, 现在最新版本是 2.411, 下载地址: http://us2.un4seen...

Delphi中用多媒体库Bass.dll播放 mp3 [2] - BASS_GetDeviceInfo

2017年02月06日 61 阅读

Delphi中用多媒体库Bass.dll播放 mp3 [2] - BASS_GetDeviceInfo2011-04-23 博客园 万一Delphi中用多媒体库Bass.dll播放mp3 [2] - BASS_GetDeviceInfo: 获取当前音频输出设备列表Delphi 2009 中使用需要修改一下 Bass.pas 中 BASS_DEVICEINFO 结构的定义, 不然会 乱码://把BASS_DEVICEINFO = record name: ...

Delphi中用多媒体库Bass.dll播放mp3 [3] - 打开、播放、暂停、停止

2017年02月06日 74 阅读

Delphi中用多媒体库Bass.dll播放mp3 [3] - 打开、播放、暂停、停止2011-04-23 博客园 万一//播放前先要用 BASS_Init 函数进行播放设备初始化function BASS_Init（ device: Integer; {指定输出设备, 第一个是 1、第二个是 2; -1 表示使用当前设 备} freq: DWORD; {采样率, 一般是 44100} flags: DWORD; {是 BASS_DEVICE_...

Delphik中用多媒体库Bass.dll播放mp3 [4] - 显示与设置播放进度

2017年02月06日 82 阅读

Delphik中用多媒体库Bass.dll播放mp3 [4] - 显示与设置播放进度2011-04-23 博客园 万一//获取文件流的长度, 单位是字节function BASS_ChannelGetLength（ handle: DWORD; {流句柄} mode: DWORD {获取模式; 有两种选择, 但对 HSTREAM 流只能使用 BASS_POS_BYTE}）: QWORD; stdcall; external bassdll;//获取流...

Delphi中用多媒体库Bass.dll播放mp3 [5] - 设置与获取音量、相位

2017年02月06日 63 阅读

Delphi中用多媒体库Bass.dll播放mp3 [5] - 设置与获取音量、相位2011-04-23 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;type TForm1 = class...

Delphi中用多媒体库Bass.dll播放mp3 [6] - 是否循环播放

2017年02月06日 65 阅读

Delphi中用多媒体库Bass.dll播放mp3 [6] - 是否循环播放2011-04-23 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class（TForm） Open...

Delphi中用多媒体库Bass.dll播放mp3 [7] - 获取当前的播放状态

2017年02月06日 68 阅读

Delphi中用多媒体库Bass.dll播放mp3 [7] - 获取当前的播放状态2011-04-23 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class（TForm） O...

Delphi中用多媒体库Bass.dll播放mp3 [8] - 实时显示左右声道的峰值

2017年02月06日 65 阅读

Delphi中用多媒体库Bass.dll播放mp3 [8] - 实时显示左右声道的峰值2011-04-23 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;type TForm1 = clas...

Delphi中用多媒体库Bass.dll播放mp3 [9] - 绘制波形图

2017年02月06日 65 阅读

Delphi中用多媒体库Bass.dll播放mp3 [9] - 绘制波形图2011-04-23 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;type TForm1 = class（TFor...

Delphi中用多媒体库Bass.dll播放mp3 [10] - 使用回调函数

2017年02月06日 68 阅读

Delphi中用多媒体库Bass.dll播放mp3 [10] - 使用回调函数2011-04-23 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;type TForm1 = class（TF...

Delphi中用多媒体库Bass.dll播放mp3 [11] - 使用回调函数设置反复

2017年02月06日 64 阅读

Delphi中用多媒体库Bass.dll播放mp3 [11] - 使用回调函数设置反复2011-12-12 万一 本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, Bass;type TForm1 = c...

Delphi中用多媒体库Bass.dll播放mp3 [12] - 绘制动态频谱 FFT

2017年02月06日 60 阅读

Delphi中用多媒体库Bass.dll播放mp3 [12] - 绘制动态频谱 FFT2011-12-12 万一 本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;type TForm1 = class（T...

Delphi中用多媒体库Bass.dll播放mp3 [13] - 混响（Reverb）效果

2017年02月06日 66 阅读

Delphi中用多媒体库Bass.dll播放mp3 [13] - 混响（Reverb）效果2011-12-12 万一 本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class（TForm） ...

Delphi中用多媒体库Bass.dll播放mp3 [14] - 频率均衡器

2017年02月06日 65 阅读

Delphi中用多媒体库Bass.dll播放mp3 [14] - 频率均衡器2011-12-12 万一 本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;type TForm1 = class（TForm）...