Delphi写Sql2000扩展存储过程的例子

2016年07月27日 45 阅读

Delphi写Sql2000扩展存储过程的例子2011-04-23 csdn 贾涛library project1;uses Windows, SysUtils, MSODSApi; ...{$R *.res}Function GetParamStr（pSrvProc: SRV_PROC; Index : integer; Var Param : String ） : integer;var PType : Byte; cbMaxLen , ParaLe...

Delphi格式化输出函数（1）: Format

2016年07月27日 47 阅读

Delphi格式化输出函数（1）: Format2011-04-23万一vars: string;begin//指令类型 types := Format（"最大整数是: %d; 最小整数是: %d",[MaxInt,Low（Integer）]）;//返回: 最大整数是: 2147483647; 最小整数是: -2147483648{ 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个 变体数组 }s := Forma...

Delphi格式化输出函数（2）: FormatDateTime

2016年07月27日 47 阅读

Delphi格式化输出函数（2）: FormatDateTime2011-04-23万一vars: string;begin//FormatDateTime 的参数1是 String 格式指令, 参数2是 TDateTime 类型的时间s := FormatDateTime（"c", Now）; {返回: 2007-12-18 23:56:05}{指令 c 表示用短格式显示日期与时间}s := FormatDateTime（"d", Now）; {返回: ...

Delphi格式化输出函数（3）: FormatFloat

2016年07月27日 48 阅读

Delphi格式化输出函数（3）: FormatFloat2011-04-23万一vars: string;begin//FormatFloat 的参数1是 String 格式指令, 参数2是实数类型 Extendeds := FormatFloat（"###.###",12.3456）;//返回: 12.346s := FormatFloat（"000.000",12.3456）;//返回: 012.346s := FormatFloat（"#.###"...

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

2016年07月27日 50 阅读

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

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

2016年07月27日 46 阅读

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

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

2016年07月27日 49 阅读

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

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

2016年07月27日 48 阅读

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

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

2016年07月27日 44 阅读

如何在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数据库

2016年07月27日 47 阅读

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] - 安装调试

2016年07月27日 48 阅读

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

2016年07月27日 53 阅读

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] - 打开、播放、暂停、停止

2016年07月27日 47 阅读

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] - 显示与设置播放进度

2016年07月27日 45 阅读

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] - 设置与获取音量、相位

2016年07月27日 47 阅读

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] - 是否循环播放

2016年07月27日 50 阅读

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] - 获取当前的播放状态

2016年07月27日 44 阅读

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] - 实时显示左右声道的峰值

2016年07月27日 47 阅读

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] - 绘制波形图

2016年07月27日 47 阅读

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] - 使用回调函数

2016年07月27日 51 阅读

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...