内容列表
- 华为CMPP源码delphi6版
-
华为CMPP源码delphi6版，请高手多多指教http://skybird.9s9s.com/bbs/topic.asp?topic_id=4350
以前发过的SGIP的源码http://skybird.9s9s.com/bbs/topic.asp?topic_id=1129
CMPP源码在这http://skybird.9s9s.com/upload/upfile/20
- 分类：Delphi 查阅全文
- “磁性”窗口
- “磁性”窗口
Winamp的用户都知道，Winamp的播放列表或均衡器在被移动的时候，仿佛会受到一股磁力，每当靠近主窗口时就一下子被“吸附”过去，自动沿边对齐。我想让我的Winamp插件也具备这种奇妙特性，于是琢磨出了一种“磁化”窗口的方法。该法适用于Delphi的各个版本。为了演示这种技术，请随我来制作一个会被Winamp“吸引”的样板程序。 先新建一应用程序项目，
- 分类：Delphi 查阅全文
- Delphi组件与属性编辑器
- Delphi组件与属性编辑器
(一)前言本文将用一个例子描述组件开发与属性编辑器。例子(TdsWaitDialogEx)是一个可视组件，调用其show方法后显示一个Dialog,其中包含一个TAnimate,两个提示信息(即TLabel),一个进度条(TGauge)。 枚举属性：DialogStyle，AVIPosition 记录属性：Options 属性集
- 分类：Delphi 查阅全文
- 简单的在线升级的实现方法
- 作者：徐长友 用过一般的杀毒软件，都知道，启动程序时，常会问，网上已经有新版本的，是否升级之类的提示，现在越来越多的软件都支持在线升级，你是否也想实现这个功能？本文就是如何实现在线升级，讲述一下如何通过HTTP检测是否需要下载升级版本，并下载升级。
实现方法： 1、网站提供升级信息。 2、使用HTTP从网站下载升级信息。&nb
- 分类：Delphi 查阅全文
- Delphi编码规范
-
Delphi编码规范
作者：Tulipsys 更新日期：2003年12月16日
目录
1． 一般的惯例（命名 - 缩进和空格 - 边距 - 大小写 - 注释）
2． 语句（begin…end语句-if语句-case语句-for语句-while语句-repeat语句-with语句-异常处理语句）
3． 过程和函数（命名与格式
- 分类：Delphi 查阅全文
- 计算PI值到一亿位的算法
- 我大体上考虑了一下用DELPHI计算PI值到一亿位的算法，得到一个大体的算法，也好用来交流一下。这是一个构造一种新的长四则运算的算法。所谓长四则运算，是指用数据库的字段来作一个小数，用一个记录来作一个小数数位的算法。先作出longadd(),longsub(),longmulti(),longdiv(),然后再用求PI公式来求即可。下面我大体上作出了longadd()，并尚未经过上机调试的。先作六
- 分类：Delphi 查阅全文
- 使你的窗体保留在桌面的最上面
- 当我们想让一个窗体保留在桌面的最上面时，可以定义窗体的FormStyle属性，使窗体保持在最上面。但是，使用这种方法后，在切换窗体的模式时，窗体将闪烁。为了避免切换窗体模式时的闪烁，可以使用Windows API函数SetWindowPos来解决这一问题，使用方法如下：SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top, F
- 分类：Delphi 查阅全文
- override deal with window closing in database application
- In the database application development, the programmer should often deal with one thing that is when the user close a window (called Form in Delphi) where data was maintained, the program should judg
- 分类：Delphi 查阅全文
- Delphi程序设计之--经验技巧
- 这些日子太忙了，今天把剩下的部分贴完，希望对大家有用。看过前一篇的都知道此文的作者和出处，我就不详细说了。
{ No. 16 }//对于记录类型Record的分析。实例：type TBaseRec = record rStr: Integer; rStr2: String; rStr3: String;
- 分类：Delphi 查阅全文
- Sender 的應用：所有Edit共用一個過濾格式
- 1. 所有的Edit 都只允許輸入數字，即只可以輸入一次小數點2. 不想對多達幾十個的Edit 都寫onKeyPress 事件
那你就寫一個，其它的全部在Object Inspector 中指向這一個：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);var IntCompIdx: Integ
- 分类：Delphi 查阅全文
- 研究心得------->CPU信息的获得，比较全面的。
- 最近到整理了一份CPU的信息，应该算是比较全面的吧。几乎现在所有的X86 CPU都内置了CPUID指令以辨别真伪，一些CPU厂商例如AMD，VIA等还内置了更加丰富的扩展CPUID指令，用着更方便了。下面我们利用Delphi来实现一个CPU检测的软件。CPUID的调用方式如下： asm push eax push ebx push ecx push
- 分类：Delphi 查阅全文
- 研究心得------->Seskin控件包中SeskinEdit汉字问题的解决办法
- 公司采用Seskin控件包来开发。却发现SeskinEdit在使用汉字是有问题。主要是由汉字时光标定位不准。鼠标选字也选不准。于是看了其代码。发现它在计算文本长度时采用的函数TextLength有问题。其实TCanvas提供了一个TextLength方法，在去文本长度时汉字没有问题。所以把这里替换下来就行了。替换后的se_controls单元中的TSeCustomEdit的代码如下 TS
- 分类：Delphi 查阅全文
- C++ 和 Delphi 的函数覆盖(Override)与重载(overload)
- C++ 和 Delphi 的函数覆盖(Override)与重载(overload)
Spacesoft【暗夜狂沙】
在面向对象编程中，当子类继承了来自基类的函数后，子类有可能需要对其中的一些函数作出与基类不同处理，比如：
class CHuman{public: void SayMyName()//打印出对象的姓名 {&
- 分类：Delphi 查阅全文
- 串口通讯应用程序的解决方案
- delphi中常用串口控件简介：mscomm:微软的东西，是VB中带的一个ActiveX控件，使用简单，性能一般，由于是ActivX控件，打包时需要注册好多信息，在Delphi中使用，建议使用VCL控件，编译程序时直接编入程序中，再不需任何其它处理。spcomm:比较好的vcl控件，算是比较专业的，解剖了一下，功能比较完善。TurboPower:公认的专业通讯vcl控件。可以到其站点下载，开放源码
- 分类：Delphi 查阅全文
- TManagedDataSet和DataSetPool的实现
- TManagedDataSet和DataSetPool的实现
天天用Delphi，自己有了很多想法。写代码之余，有空闲时间就把一些东西整理成文档。
Delphi中使用最多的大概是Ado
- 分类：Delphi 查阅全文
- 分布组件对象模型(DCOM)研究
- 在Microsoft推出Windows NT4.0之后，以往只有在大型主机或者工作站上才可能出现的分布式处理终于可以在PC的世界中工作了。造成Windows NT可以成为企业计算环境除了NT的日渐成熟和执行效率增加以外，最重要的就是加入了DCOM(Distributed Component Object Mode1)的功能。Microsoft在NT4.0中第一次推出了该项技术，但是Microsof
- 分类：Delphi 查阅全文
- 用Delphi创建COM+ 应用服务器(二)
-
用Ｄelphi创建COM+ 应用服务器(二)
步骤六：
接着在类型编辑器中声明组件的接口方法，如图：
方法的参数在右边的编辑框中定义：
刷新后，系统自动会在单元文件中产生方法的
- 分类：Delphi 查阅全文
- 用Delphi创建COM+ 应用服务器(一)
-
用Ｄelphi创建COM+ 应用服务器(一)
一、创建实体对象
步骤一：
Ｎew->Other->ActiveX->ActiveX Library
如图：
步骤二：
New-&
- 分类：Delphi 查阅全文
- 防止用DeDe软件反编译delphi程序
- 防止用DeDe软件反编译delphi程序这里有一篇防止用DeDe软件反编译delphi程序～用『』里的是我的注释，其余的是原创作～
Program Project1;
Uses Forms, windows, sysutils, Unit1 In 'Unit1.pas' {Form1}, Unit2 In 'Unit2.pas' {Form2};
Function Registe
- 分类：Delphi 查阅全文
- 设置全局快捷键
- type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); protected procedure hotykey(var msg:TMessage); message WM_HOTKEY; end; var Form1: TForm1; id,i
- 分类：Delphi 查阅全文