Delphi中用多媒体库Bass.dll播放mp3 [15] - 设置与获取播放速度

2017年02月06日 69 阅读

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

使用Delphi获取TBitMap图像缓冲区，提高图像处理速度

2017年02月06日 90 阅读

使用Delphi获取TBitMap图像缓冲区，提高图像处理速度2011-12-12 csdn博客 编程手札使用Dephi进行图像处理可以有多种方法，最常用的应该算是TBitmap，它提供方便的图像存取能力，结合Canvas可进行画线、画圆、图像拷贝等操作。不过在进行大量的图像处理操作时，为了获得更高的速度，我们希望能够直接对图像缓冲区进行读写。查阅Dephi的帮助手册没有发现直接取得整个图像缓冲区的功能，但提供的ScanLine属性可以取得指定行图像数据的...

Delphi中用服务器组件解决WEB交叉报表问题（1）

2017年02月06日 63 阅读

Delphi中用服务器组件解决WEB交叉报表问题（1）2011-12-12 csdn博客 编程手札web开发最麻烦的是做报表，特别是交叉报表。要将查询得到的看起来平淡无奇的数据展开成复杂的报表不知要费煞多少周张。下次维护时看到冗长的SQL语句或长达数页的程序代码，都有种快要晕厥的感觉。最近，这种好事又让我碰上。公司因为费用统计的需要，要开发一份各分公司之间调货量的统计表，如下图所示。表中坚向为分公司帐套名称（调出方），横向为帐套中的客户名称（调入方），这是...

Delphi中用服务器组件解决WEB交叉报表问题（2）

2017年02月06日 64 阅读

Delphi中用服务器组件解决WEB交叉报表问题（2）2011-12-12 csdn博客 编程手札Fast Report是一个经典的报表控件，不过其导出功能只支持导出到磁盘文件，而此项目为了避开权限的限制和出于服务器安全的需要，要求将Fast Report生成的报表导出到内存流，所以要修改Fast Report源码。Fast Report2.5的导出函数在FR_Class文件中声明，参考此函数，可以很轻易的写出导出到内存流的函数：//添加导出到内存流的支持...

领域驱动设计实践——流水号生成器（上）

2017年02月06日 77 阅读

领域驱动设计实践——流水号生成器（上）2011-12-12 博客园 保权今天在CSDN上逛的时候，我突然看到一个提问帖子：问一个大家一个问题一个字符串 加1 谁做过例如KA001A001下一个就是 KA001A002到 KA001Z999就 KA002A001这顿时引起了我的兴趣。流水号（Serial Number）在程序中应用很普遍，生成规则也各不相同。（比如，我们公司的会员卡卡号规则里面就有一个“卡号遇4跳过”的选项。）我上Go...

领域驱动设计实践——流水号生成器（下）

2017年02月06日 63 阅读

领域驱动设计实践——流水号生成器（下）2011-12-12 博客园 保权0. 上篇回顾在上篇中我们使用测试驱动开发方法（Test-Driven Development）实现了一个简单的流水号生成器，并获得了一个初步的软件模型：图1 编号生成器模型（V1）熟悉设计模式的朋友们一眼就会看出来，这里运用了组合模式（Composite Pattern），把每个子流水号当做一个流水号来处理。虽然这个模型还能工作，但是我们仔细分析一下就会有很多疑问：ISerialNu...

Delphi中多媒体库Bass.dll播放mp3 [16] - 小节

2017年02月06日 75 阅读

Delphi中多媒体库Bass.dll播放mp3 [16] - 小节2011-12-12 万一 Bass.dll 功能非常强大, 做了上面 15 个例子, 已经够我的程序用了; 利用 Bass 还可以录音、下载并播放网上的音乐等等, 没时间继续学习了.另外:1、如果喜欢动态引入函数, 可以使用其中的 delphidynamicDynamic_Bass.pas 单元;2、建议使用 mp3-freeass.dll, 这是免费的;3、有不少的音乐播放器使用了不...

Delphi类的的入门例子（1）: 继承窗体

2017年02月06日 62 阅读

Delphi类的的入门例子（1）: 继承窗体2011-12-12 万一 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TButton; procedure ...

Delphi类的入门例子（2）: 数字盒子

2017年02月06日 62 阅读

Delphi类的入门例子（2）: 数字盒子2011-12-12 万一 //类单元unit NumBox;interfacetype TNumBox = class private FCount: Integer; public procedure AddOne; procedure AddFive; procedure ZeroCount; function GetCount: Integer; end;implementation{ TNumB...

Delphi类的入门例子（3）: Create与Destroy

2017年02月06日 59 阅读

Delphi类的入门例子（3）: Create与Destroy2011-12-12 万一 //类单元unit Person;interfaceuses Dialogs;type TPerson = class（TObject） private FName: string; FAge: Integer; public constructor Create（strName: string; intAge: Integer）; destructor De...

Delphi类的入门例子（4）: property

2017年02月06日 67 阅读

Delphi类的入门例子（4）: property2011-12-12 万一 //类单元unit Person;interfacetype TPerson = class（TObject） private FName: string; FAge: Integer; public procedure SetName（const strName: string）; procedure SetAge（const intAge: Integer）; pr...

Delphi类的入门的例子（5）: override

2017年02月06日 64 阅读

Delphi类的入门的例子（5）: override2011-12-12 万一 unit Unit1;interfaceuses Classes, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; procedure Button1Click（Sender: TObject）; end; TBase = class procedure pro...

Delphi类的入门的例子（6）: 类引用示例

2017年02月06日 67 阅读

Delphi类的入门的例子（6）: 类引用示例2011-12-12 万一 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class（TForm） RadioGroup1: TRadioGroup; procedure ...

Delphi类的入门例子（7）: 遍历窗体的所有父类

2017年02月06日 66 阅读

Delphi类的入门例子（7）: 遍历窗体的所有父类2011-12-12 万一 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TButton; Button...

Delphi类的入门例子（8）: 遍历窗体中所有控件的函数

2017年02月06日 62 阅读

Delphi类的入门例子（8）: 遍历窗体中所有控件的函数2011-12-12 万一 //显示窗体中所有控件的函数function GetCtrls（Control: TWinControl; List: TStringList）: Boolean;var i: Integer; obj: TWinControl;begin for i := 0 to Control.ControlCount-1 do begin obj := TWinControl（...

Delphi类的入门例子（9）: 获取对象的 RTTI 属性与事件的函数

2017年02月06日 62 阅读

Delphi类的入门例子（9）: 获取对象的 RTTI 属性与事件的函数2011-12-12 万一 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, xmldom, XMLIntf, XMLBrokr, msxmldom, XMLDoc;type TForm1 = cla...

Delphi语言学习1-Program和Unit

2017年02月06日 65 阅读

Delphi语言学习1-Program和Unit2011-12-12 博客园 铁掌水上飘1.单元和程序（Units和Programs）1）Programsprogram Editor;uses Forms, REAbout, // An "About" box REMain; // Main form{$R *.res}begin Application.Title := "Text Editor"; Application.Creat...

Delphi语言学习2-基本语法

2017年02月06日 67 阅读

Delphi语言学习2-基本语法2011-12-12 博客园 铁掌水上飘1.基本赋值语句Size :=20;Price :=10;2.特殊符号1）单个特殊符号# $ & " （ ） * + , - . / : ; < = > @ [ ] ^ { }2）成对的特殊符号（* （. *） .） .. // := <= >= <>3）.等价的特殊符号特殊符号等价的特殊符号[（.].）{（*}*）3.注释和编译器指令1）注...

Delphi语言学习3-数据类型概述

2017年02月06日 72 阅读

Delphi语言学习3-数据类型概述2011-12-12 博客园 铁掌水上飘Delphi有如下数据类型：1.简单数据类型：ordinalintegercharacterBooleanenumeratedsubrangereal2.字符串类型string3.集合类型setarrayrecordfileclassclass referenceinterface4.指针类型pointer5.函数类型procedural6.变量类型Variant7.类型声明typ...

Delphi语言学习4—数据类型的基本使用

2017年02月06日 61 阅读

Delphi语言学习4—数据类型的基本使用2011-12-121.基本数据类型1）Delphi自带了一些对基本类型的操作函数，如Ord ，Pred,Succ ,High,Low2）枚举类型声明 type Suit = （Club, Diamond, Heart, Spade）;//where Ord（Club） returns 0, Ord（Diamond） returns 1...如果枚举类型的名称和类型名重复的使用方法：type TSound = （C...