自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(21)
  • 资源 (9)
  • 收藏
  • 关注

原创 最新发布EhLib 6.2中的新功能DropDownForms的应用

DropDownForms 为这次更新中新增的一个功能,可定制下拉窗口。其实这个功能在以前版本的DEMO中已经实现了,使用起来也很简单。不过这次的更新,全我们使用起来更方便。现在让我们来看一下怎样来实现这个功能。一、新建一个下拉窗口类TCustomDropDownFormEh的实例,通过菜单 File->New->Other …->Delphi Projects-> “EhLib Forms”

2013-09-18 20:23:50 2548

原创 EhLib表格控件DBGridEh自动排序、自动过滤的实现

一、排序功能:(原文链接:www.tansoo.cn)首先在uses节中根据你选用的数据集引用对应的 EhLibXXX (EhLibADO, EhLibCDS…)然后再设置下面几个DBGridEh控件的属性:1procedure TForm1.FormCreate(Sender: TObject);2var

2013-09-18 20:20:40 3272

原创 Unicode汉字拼音首字母Delphi查询函数

本函数可查询Unicode国际编码表中4E00至9FA5共20902个汉字中的20807个,另外的95个用“*”代替。本程序根据《现代汉语常用字表》中3752个常用汉字为蓝本,提取常用汉字拼音首字母,不在这个范围内的非常用汉字以极点输入法的拼音方案为蓝本,其他数字、字母等符号直接输出。在Delphi2010+Win7下调试通过。由于源代码内容太多,此处只贴部分代码,全文请看  ht

2013-09-05 21:33:57 1509

原创 WordPress无法在线安装主题、插件及快速发布无法上传图片的解决办法

WordPress在线安装主题、插件,或在使用快速发布的文章中含有图片时,会提示:正在安装主题:Frontier 1.0.2正在从http://wordpress.org/themes/download/frontier.1.0.2.zip下载安装包…Warning: touch() [function.touch]: Utime failed: Result too la

2013-09-05 21:23:09 2752

原创 随鼠标移动的十字线的快速画法

在鼠标移动事件中画当前点的十字坐标线时,为抹掉老线常采用刷新画面的方法,这样就产生了非常严重的闪烁现象。因此,我们采用在画新线前将老线抹去的方法就能很好的解决这个问题,而且速度非常快。现举例如下:var OldX, OldY: Longint;// 使用前初始化OldX:=-1; procedure TfrmMain.PaintBoxCMouseMove(Sender: TObje

2013-04-07 15:11:13 2873

原创 Delphi编程中,如何在可执行程序中执行四则运算

Delphi编程中,有时我们需要在编译完后的可执行程序中执行四则运算,这是好多年前用过的,现把它整理出来供大家使用,算计形式如下图所示: 调用方法如下代码:procedure TForm1.Button1Click(Sender: TObject);var c:TCalcer;begin c := TCalcer.Create; Edit2.Text := c.

2013-04-07 15:08:16 1545

原创 Modbus协议CRC的两种算法源码

Modbus协议CRC的两种Delphi算法源码举例。在工控开发时经常用到.原文 http://tansoo.cn/?p=127unit Unit1;     interface     uses       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, St

2013-04-07 14:58:24 1482

原创 诛仙V2.1.1喊话CALL调用举例

找这个CALL很快,几分钟就找到了,4个参数也很明确,三个常数,1个喊话内容首址,但该喊话CALL还要用到ECX的值,每次都不一样,找这个值花了一段时间也没找到,实在是不想找了,于是就用OD在这个CALL处下断,然后用CE在内存中搜索ECX中的这个值,找到了不少,发现第一个$00B1EF00还比较像,拿它一试,还真成了,现将调用方法公布如下: procedure TfrmMain.Button

2010-02-19 17:20:00 995

原创 获取热血江湖怪物信息的DELPHI2010源代码

为了大家看的方便,编程环境又用的是DELPHI2010,所以一些变量就用汉字来定义了.procedure TfrmMain.Button8Click(Sender: TObject); var 怪物基址, 怪物类型, 怪物数组下标, 怪物服务器ID, 怪物当前血, 怪物最大血, 怪物等级: PDword; 怪物距离: PSingle; 怪物名字

2010-02-19 17:19:00 922

原创 热血江湖V40006版普通攻击CALL的调用方法(Delphi2010源码)

热血江湖V40006版普通攻击CALL的调用方法举例,其实这个方法可用功能键的调用来代替,将普通攻击的快捷键放在功能键上,再调用功能键CALL,也可达到同样的目的.procedure TfrmMain.Button3Click(Sender: TObject); var Address: Pointer; begin Address := Point

2010-02-19 17:17:00 1340

原创 热血江湖V40006版功能键CALL的调用方法(Delphi2010源码)

今天热血江湖升级了,前几天发布的喊话CALL的地址都变了,今天又重新修改了一下,找到这个新CAL的地址,现将调用方法以布出来.procedure TfrmMain.Button2Click(Sender: TObject); var Address: Pointer; begin Address := Pointer($00618910); //

2010-02-19 17:16:00 914

原创 热血江湖V40006版喊话CALL(Delphi2010源码)

热血江湖最新V40006版的喊话CALL,找了好长时间也无法找到,只找到了逐字符发送的CALL,由于我是在DELPHI2010版下写的代码,所以字符串做了些转换,2010版以下就不用转换直接用了.好长时间没写代码了,脑子快不行了,该忘的都忘的差不多了.现在得找点东西写写了,呵呵,找游戏的CALL也蛮好玩的,其他的CALL慢慢的找吧...怎么江湖只能用"bp WSASend"下断了哦? 

2010-02-19 17:12:00 865

原创 计算机处理浮点数时的误差处理技巧

通常计算机在处理浮点数时,会产生误差,下面介绍一种方法,可消除部分误差的产生。如:var  a,b,c:real;begin  a := 68;  b := 5.6;  c := trunc(a*b*10)/10;  ShowMessage(floatToStr(c));end;这个算式的正确结果应该是:380.8,但你试着用计算机执行一下看看结果是什么?奇怪,怎么是380.7呢?呵呵,用下面我教

2010-01-03 12:02:00 1050

原创 Delphi2010下的小写金额转大写的函数

function ToBigRMB(Num: Currency): String;const  BigNumber=零壹贰叁肆伍陆柒捌玖;  BigUnit=万仟佰拾亿仟佰拾万仟佰拾元;       {共可表示13位金额}var  nLeft, nRigth, lTemp, rTemp, BigNumber1, BigUnit1, RMB,s: string;  I: Integer;be

2009-12-02 13:44:00 562

转载 分布式数据库应用开发正解

     Delphi做为一个快速应用开发工具,深受程序员的喜爱。其强大的组件功能,让程序员能够轻松、高效地完成常见的界面开发、数据库应用等功能。然而,帮助的相对缺乏,使得许多组件的功能并不为人们正确地使用,究其原因,仍然是认识上的问题。对于MIDAS开发中的核心部件,TClientDataSet和TDataSetProvider,由于资料的缺乏,人们在网上大多谈论的是李维的书籍内容。我有幸在BD

2009-11-23 14:57:00 388

转载 Delphi 消息机制学习笔记(转贴)

   最近几天又将李维《Inside VCl》书中关于 Delphi 中 Windows 消息机制的实现看了一遍,这是第二遍了,本来看第一遍时已经完全看懂了,但没做笔记,害得我又看了一遍,这回下定决心写一个笔记。与此同时,我在网上游荡时幸运地看到了两篇论述 Delphi 消息框架的文章,某些部分分析得相当深入,非常好的 Delphi 消息机制总结。这下一来又不想写笔记了,但后来一琢磨他们这些文章写

2005-09-21 09:33:00 822

原创 关于在ehlib的DBGridEh控件中使用过滤功能的方法

在ehlib的DBGridEh控件中使用过滤功能很方便,但使用过程中有几个容易被忽略的地方,它曾经困绕了我很长时间,过滤功能就是用不起来。1.在UNIT中加入uses EhLibXXX(EhLibADO、EhLibDBE等,根据你选用的数据集来定);initialization  DBGridEhDefaultStyle.FilterEditCloseUpApplyFilter :=

2005-06-29 15:38:00 4003

原创 在WIN2000/XP下添加自定义纸张的Delphi源代码

//////////////////////////// //  武汉探索电脑工作室    // //  http://tansuo.51.net  // //////////////////////////// //增加规格自定义纸张 //PaperName: 自定义纸张名称 //PaperWidth: 纸张的宽度,以0.1mm为单位 //PaperLength: 纸张的高度,以0.1mm为单位

2004-12-31 23:28:00 1764 1

原创 金额小写转大写函数

//////////////////////////// //  金额小写转大写        // //  武汉探索电脑工作室    // //  http://tansuo.51.net  // //////////////////////////// function ToBigRMB(Num: Currency): String; const BigNumber=零壹贰叁肆伍陆柒捌玖;

2004-12-31 23:26:00 1319 1

原创 利用ADOTable存取Excel文件

1、添加ADOTable1控件,设置下列属性: ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Persist Security Info=false;Data Source=c:/abc.xls"; TableDirect=true; TableName="sheet1"; Ac

2002-03-06 09:00:00 1282

原创 关于如何使用TXT、CSV表的问题.

步骤:1、设置ODBC 生成Microsoft Text Driver(*.txt;*.csv)类型的数据源"Text Files" 设置表所在的目录。如:“c:/TXTDateBase” 2、设置BDE 生成一个“Microsoft Text Driver(*.txt;*.csv)”类型的别名 ODBC DSN设置为第一步所生成的数据源"Text Files" 数据表格式: 1、生成一个表结构说

2002-03-06 09:00:00 1133

delphi xe3 update1 破解补丁

已成功用在XE3 UPD1 (17.0.4723.55752)版本,其他版本未测

2013-01-11

热血辅助Delphi2010源代码

根据我公布的这些热血江湖游戏CALL,我写了个简单的辅助工具。实现了自动补红、蓝,自动打怪等几个简单的功能,大家可以根据源代码继续加入其他功能,来完善它。

2010-02-26

热血江湖伴侣的Delphi源代码

这是我以前写的热血江湖伴侣的Delphi源代码,由于我也没玩了,很长时间也没更新,不过稍微改一下就能用了,关键是有些技术还是可以借鉴的,现免费提供给大家。

2010-01-12

水位PID自动控制仿真演示系统Delphi源码

水位PID自动控制仿真演示系统 环境:DELPHI2010+IOCOMP4.02+WINXP

2010-01-12

Access数据库密码破解软件

office97-2003 Access数据库密码破解软件,很好用。

2009-11-11

JEDI.Visual.Component.Library.v3.38.Full.Source.part2

Delphi5~12,14 / C++Builder5~6,10~12,14 JVCL是由超过500个可视及不可视组件组成的库,可应用到你的Delphi/C++Builder/Kylix工程中。来自JEDI社区大牛们的奉献。The JEDI Visual Component Library (JVCL) consists of a large collection (currently ca 500) visual and non-visual components which can be instantly reused in your Delphi, Kylix and C++ Builder projects. 安装本组件包前需要安装JCL(JEDI Code Library)

2009-11-10

JEDI.Visual.Component.Library.v3.38.Full.Source.part1

Delphi5~12,14 / C++Builder5~6,10~12,14 JVCL是由超过500个可视及不可视组件组成的库,可应用到你的Delphi/C++Builder/Kylix工程中。来自JEDI社区大牛们的奉献。The JEDI Visual Component Library (JVCL) consists of a large collection (currently ca 500) visual and non-visual components which can be instantly reused in your Delphi, Kylix and C++ Builder projects. 安装本组件包前需要安装JCL(JEDI Code Library) 由于只能上传15M以下的文件,下了这个,还得下载第二部分http://download.csdn.net/source/1807061

2009-11-10

jcl-2.0.1.3449

开发工具:Delphi5~12,14 / CBuilder5~6,10~12,14 全世界知名的Open Source Delphi开发组织JCL的作品。JCL包含了很多Delphi和C++Builder中的可重用单元,函数和类(不可视)。站长强烈推荐。The JEDI Code Library (JCL) consists of a set of thoroughly tested and fully documented utility functions and non-visual classes which can be instantly reused in your Delph

2009-11-10

热血江湖伴侣DELPHI源码(www.tansoo.cn)

免费发布 <br>热血江湖伴侣DELPHI源代码 1.80 Build070829(屏幕智能识别),其中用到一些第三方控件。 <br>解压密码:tansoo<br>www.tansoo.cn

2008-05-07

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除