- 博客(25)
- 资源 (9)
- 收藏
- 关注
RSS订阅原创 python小说爬虫源代码
利用python来获取网络小说是非常方便的，编程也不难，稍微改一下代码内容，基本上网络小说都能抓取下来。留下源代码方便以后使用。
2023-10-25 12:10:21
1757
原创 python和django中安装mysqlclient失败的解决方案
在Pychram中和pip中安装mysqlclient都不成功，只能直接下载二进制包进行安装了，下载页面中根据python的版本选择对应WHL包下载，下载地址。通过pip命令进行安装。
2023-07-18 21:23:11
2512
原创 关于“Zabbix服务器端运行中 否“错误
将”/etc/zabbix/zabbix_server.conf"中的“DBHost=localhost”改成“DBHost=127.0.0.1”后重启服务“systemctl restart zabbix-server”，问题解决。在Zabbix管理界面中显示"Zabbix服务器端运行中 否"错误。查看ZABBIX日志文件连接数据库错误。
2023-07-18 14:00:43
2769
原创 最新发布EhLib 6.2中的新功能DropDownForms的应用
DropDownForms 为这次更新中新增的一个功能，可定制下拉窗口。其实这个功能在以前版本的DEMO中已经实现了，使用起来也很简单。不过这次的更新，全我们使用起来更方便。现在让我们来看一下怎样来实现这个功能。一、新建一个下拉窗口类TCustomDropDownFormEh的实例，通过菜单 File->New->Other …->Delphi Projects-> “EhLib Forms”
2013-09-18 20:23:50
2872
原创 EhLib表格控件DBGridEh自动排序、自动过滤的实现
一、排序功能：(原文链接：www.tansoo.cn)首先在uses节中根据你选用的数据集引用对应的 EhLibXXX (EhLibADO, EhLibCDS…)然后再设置下面几个DBGridEh控件的属性：1procedure TForm1.FormCreate(Sender: TObject);2var
2013-09-18 20:20:40
3940
原创 Unicode汉字拼音首字母Delphi查询函数
本函数可查询Unicode国际编码表中4E00至9FA5共20902个汉字中的20807个，另外的95个用“*”代替。本程序根据《现代汉语常用字表》中3752个常用汉字为蓝本，提取常用汉字拼音首字母，不在这个范围内的非常用汉字以极点输入法的拼音方案为蓝本，其他数字、字母等符号直接输出。在Delphi2010+Win7下调试通过。由于源代码内容太多，此处只贴部分代码，全文请看 ht
2013-09-05 21:33:57
1726
原创 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
3028
原创 随鼠标移动的十字线的快速画法
在鼠标移动事件中画当前点的十字坐标线时，为抹掉老线常采用刷新画面的方法，这样就产生了非常严重的闪烁现象。因此，我们采用在画新线前将老线抹去的方法就能很好的解决这个问题，而且速度非常快。现举例如下：var OldX, OldY: Longint;// 使用前初始化OldX:=－1； procedure TfrmMain.PaintBoxCMouseMove(Sender: TObje
2013-04-07 15:11:13
3335
原创 Delphi编程中，如何在可执行程序中执行四则运算
Delphi编程中，有时我们需要在编译完后的可执行程序中执行四则运算，这是好多年前用过的，现把它整理出来供大家使用，算计形式如下图所示： 调用方法如下代码：procedure TForm1.Button1Click(Sender: TObject);var c:TCalcer;begin c := TCalcer.Create; Edit2.Text := c.
2013-04-07 15:08:16
1817
原创 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
1688
原创 诛仙V2.1.1喊话CALL调用举例
找这个CALL很快,几分钟就找到了,4个参数也很明确,三个常数,1个喊话内容首址,但该喊话CALL还要用到ECX的值,每次都不一样,找这个值花了一段时间也没找到,实在是不想找了,于是就用OD在这个CALL处下断,然后用CE在内存中搜索ECX中的这个值,找到了不少,发现第一个$00B1EF00还比较像,拿它一试,还真成了,现将调用方法公布如下: procedure TfrmMain.Button
2010-02-19 17:20:00
1296
原创 获取热血江湖怪物信息的DELPHI2010源代码
为了大家看的方便,编程环境又用的是DELPHI2010,所以一些变量就用汉字来定义了.procedure TfrmMain.Button8Click(Sender: TObject); var 怪物基址, 怪物类型, 怪物数组下标, 怪物服务器ID, 怪物当前血, 怪物最大血, 怪物等级: PDword; 怪物距离: PSingle; 怪物名字
2010-02-19 17:19:00
1132
原创 热血江湖V40006版普通攻击CALL的调用方法(Delphi2010源码)
热血江湖V40006版普通攻击CALL的调用方法举例,其实这个方法可用功能键的调用来代替,将普通攻击的快捷键放在功能键上,再调用功能键CALL,也可达到同样的目的.procedure TfrmMain.Button3Click(Sender: TObject); var Address: Pointer; begin Address := Point
2010-02-19 17:17:00
1526
原创 热血江湖V40006版功能键CALL的调用方法(Delphi2010源码)
今天热血江湖升级了,前几天发布的喊话CALL的地址都变了,今天又重新修改了一下,找到这个新CAL的地址,现将调用方法以布出来.procedure TfrmMain.Button2Click(Sender: TObject); var Address: Pointer; begin Address := Pointer($00618910); //
2010-02-19 17:16:00
1129
原创 热血江湖V40006版喊话CALL(Delphi2010源码)
热血江湖最新V40006版的喊话CALL,找了好长时间也无法找到,只找到了逐字符发送的CALL,由于我是在DELPHI2010版下写的代码,所以字符串做了些转换,2010版以下就不用转换直接用了.好长时间没写代码了,脑子快不行了,该忘的都忘的差不多了.现在得找点东西写写了,呵呵,找游戏的CALL也蛮好玩的,其他的CALL慢慢的找吧..．怎么江湖只能用＂bp WSASend＂下断了哦?
2010-02-19 17:12:00
1059
原创 计算机处理浮点数时的误差处理技巧
通常计算机在处理浮点数时，会产生误差，下面介绍一种方法，可消除部分误差的产生。如：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
1312
1
原创 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
647
转载 分布式数据库应用开发正解
Delphi做为一个快速应用开发工具，深受程序员的喜爱。其强大的组件功能，让程序员能够轻松、高效地完成常见的界面开发、数据库应用等功能。然而，帮助的相对缺乏，使得许多组件的功能并不为人们正确地使用，究其原因，仍然是认识上的问题。对于MIDAS开发中的核心部件，TClientDataSet和TDataSetProvider，由于资料的缺乏，人们在网上大多谈论的是李维的书籍内容。我有幸在BD
2009-11-23 14:57:00
446
转载 Delphi 消息机制学习笔记（转贴）
最近几天又将李维《Inside VCl》书中关于 Delphi 中 Windows 消息机制的实现看了一遍，这是第二遍了，本来看第一遍时已经完全看懂了，但没做笔记，害得我又看了一遍，这回下定决心写一个笔记。与此同时，我在网上游荡时幸运地看到了两篇论述 Delphi 消息框架的文章，某些部分分析得相当深入，非常好的 Delphi 消息机制总结。这下一来又不想写笔记了，但后来一琢磨他们这些文章写
2005-09-21 09:33:00
951
原创 关于在ehlib的DBGridEh控件中使用过滤功能的方法
在ehlib的DBGridEh控件中使用过滤功能很方便，但使用过程中有几个容易被忽略的地方，它曾经困绕了我很长时间，过滤功能就是用不起来。1.在UNIT中加入uses EhLibXXX（EhLibADO、EhLibDBE等，根据你选用的数据集来定）;initialization DBGridEhDefaultStyle.FilterEditCloseUpApplyFilter :=
2005-06-29 15:38:00
4382
原创 在WIN2000/XP下添加自定义纸张的Delphi源代码
//////////////////////////// // 武汉探索电脑工作室 // // http://tansuo.51.net // //////////////////////////// //增加规格自定义纸张 //PaperName: 自定义纸张名称 //PaperWidth: 纸张的宽度，以0.1mm为单位 //PaperLength: 纸张的高度，以0.1mm为单位
2004-12-31 23:28:00
1938
1
原创 金额小写转大写函数
//////////////////////////// // 金额小写转大写 // // 武汉探索电脑工作室 // // http://tansuo.51.net // //////////////////////////// function ToBigRMB(Num: Currency): String; const BigNumber=零壹贰叁肆伍陆柒捌玖;
2004-12-31 23:26:00
1461
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
1415
原创 关于如何使用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
1269
热血辅助Delphi2010源代码
2010-02-26
热血江湖伴侣的Delphi源代码
2010-01-12
JEDI.Visual.Component.Library.v3.38.Full.Source.part2
2009-11-10
JEDI.Visual.Component.Library.v3.38.Full.Source.part1
2009-11-10
jcl-2.0.1.3449
2009-11-10
热血江湖伴侣DELPHI源码(www.tansoo.cn)
2008-05-07
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人