- 博客(29)
- 资源 (7)
- 收藏
- 关注
RSS订阅原创 autojs微信运动自动点赞
进入微信运动--步数排行榜再运行第一行的nameList填入你的微信昵称，防止点击进入“赞我的朋友”页面由于没有判断心形的位置，可能会有点击到虚拟按键的情况貌似有漏点的情况，调试太耗时，就这样吧var nameList = ["xxx"];//你的威信昵称function findName(n) { return nameList.findIndex(x => ...
2020-01-02 09:46:39
3124
2
原创 python 出现socket.gaierror: [Errno 11004] getaddrinfo failed错误
python程序之前一直没有问题，有半个多月没有运行，就出现了这个问题：socket.gaierror: [Errno 11004] getaddrinfo failed尝试重新安装python和依赖库，还是不行，查资料说是网络问题或dns的问题，换了网络也没有解决，正打算重做系统时，看到了错误提示的上一行：s.bind(('localhost', 0))，是不是localho...
2019-06-05 18:29:40
21970
4
原创 fastmm 遇到的问题
程序退出时总是弹出提示框This application has leaked memory. The small block leaks are (excluding expected leaks registered by pointer):5 - 12 bytes: TObject x 113 - 20 bytes: TList x 1, TThreadList x 1,
2015-10-22 23:18:44
684
原创 delphi编写函数，出现over flow
//对大字符操作，每个字符串大概3000-5000字节procedure Texchanger.AnalysisDepthData(value,asks,bids,splitstr,ADelim: string);var apos,bpos,ipos:Integer; str,stmp,stra,strb:string; i,j:Integer;begin stmp := St
2015-10-20 20:27:27
606
原创 自己项目用的一个控件，自己封装的
unit rzpanelEX;interfaceuses SysUtils, Classes, Controls, ExtCtrls, RzPanel,RzLabel,Graphics,RzCommon;type trzpanelEX = class(TRzPanel) private label_top :TRzLabel; label_bg :TRzL
2014-12-01 15:14:33
2032
1
翻译 delphi获取硬盘序列号的dll代码，支持win7
library GetDiskSN;{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your
2014-12-01 15:10:09
3888
原创 “数据提供程序或其他服务返回 E_FAIL 状态” 的问题
dlephi通过ado连接dbf数据库strsql := Provider=MSDASQL.1;User ID="";Extended Properties="Driver={Microsoft Visual FoxPro Driver};UID=;PWD=;SourceDB=+ffff+;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Col
2008-11-21 16:41:00
22460
10
原创 spcomm数据丢失解决方法
上位机为delphi编写，控件使用spcomm通过单片机向上位机串口发送数据，数据总长度为53，总是在第18位丢失一个字节 17（0x11），查看spcomm属性xOnChar的值为#17，怀疑和此值有关，但又不知道修改为和值。于是找goole大神，说将Outx_XonXoffFlow的属性设为false即可，果然如此。顺便将搜到的一些宝贵资料贴出，以便查阅目前我已经在1.2的版本中修复了一些错误
2008-11-04 16:19:00
3569
3
原创 X-FREE的loader程序
算法对我来说挺复杂，没那么多时间研究，等有空再说写了个loader程序，顺便了解一下debug api，主要思路是在地址$42B425处，置ZF为1代码是随手写的缺少很多检测program CPPIDE_LOADER;uses Windows;{$R *.res}const BP = $42B425; int3 :DWORD = $CC;var startinfo :STARTUPINFO
2008-10-09 16:31:00
753
原创 调试api初步学习
//加密解密技术内幕，示例，asm转delphiunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB;type TForm1 = class(TForm) OpenDialog1: T
2008-09-12 16:35:00
603
转载 电阻电容的标注
电阻电容的标注一、电阻1、参数识别：电阻的单位为欧姆（Ω），倍率单位有：千欧（KΩ），兆欧（MΩ）等。换算方法是：1兆欧=1,000千欧=1,000,000欧。电阻的参数标注方法有3种，即直标法、色标法和数标法。a、数标法主要用于贴片等小体积的电路，如：472 表示 47×100Ω（即4.7K）； 104则表示100K。b、色环标注法使用最多，常见的有四色环电阻和五色环电阻（精密电阻），其末位是代
2008-09-08 11:23:00
2050
原创 X-FREE 破解
先写暴力破解的方法，有空再看算法1、注册信息保存在注册表，OD中CTRL+N找到 RegQueryValueExA函数，查找输入函数参考，在每个命令上设置参考，F9执行找到关心的地方0042A7E3 . BA 06F36800 mov edx, 0068F306 ; ASCII "RegistryCode"0042A7E8 . 8D8
2008-09-04 16:45:00
2702
转载 Visual Web Developer 2005中文版下载地址
Microsoft未公开的Visual Studio2005 Express中文版下载地址下面是安装 Visual Web Developer 2005 Express版 必须的包包 (依次安装) Windows Installer 3.1 http://go.microsoft.com/fwlink/?LinkId=51430&clcid=0x804 WindowsInstaller-
2008-04-08 14:51:00
1311
原创 从access导入数据到sqlserver
执行：select * into 巡查记录1 from OPENDATASOURCE (Microsoft.Jet.OLEDB.4.0, Data Source=E:/导入导出/black_hd_catayou_20071128.mdb;Persist Security Info=false;Jet OLEDB:Database Password=; )...black_client因为
2007-12-06 11:20:00
843
原创 让AdoConnection弹出配置对话框
则弹出ADO配置窗体让用户设定 如果是选择单个文件： stemp:=PromptDataLinkFile(Handle,stemp); 如果选择SQL数据库，则用这句话 sTemp:=PromptDatasource(Handle, stemp);
2007-12-06 10:30:00
877
原创 delphi7 打开project/options 出错
出错提示：Access violation at address 0012F88F. Write of address 0012F88F.然后又提示一条：Access violation at address 0012F9DB. Write of address 0012F9DB.操作系统windows2003，sp2在网上搜索到，原来是操作系统2003的数据保护引起的解决方法：右键我的电脑--属
2007-11-30 14:17:00
2884
2
原创 dbgrideh排序的奇怪问题
做的一个项目中，dbgrideh某一列点击标题排序，出现莫名其妙的问题，排出顺序根本不对，乱七八糟。最后发现是 adoquery的sql语句问题：select a.*,b.*,c.* from a left outer join b on a.电表ID=b.电表IDleft outer join c on a.电表ID= c.电表IDadoquery中就会有3个电表ID的字段，当我重新优化sql语
2007-11-23 15:50:00
1589
原创 delphi 菜单授权
初学delphi时做的，模仿白貂的用pb开发的那个框架，代码很垃圾，有时间在重新整理吧treeview用3个图片，模仿checkbox的三态授权窗口unit YHGL;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Ex
2007-11-05 08:59:00
1477
原创 excel 错误：OLE error 800A03EC
对excel单元格赋值，值为公式，类似 =SUM(A4:J5) 由于没有判断列超出Z，导致出现 =SUM([3:]4)的公式，Z的ASC码值为90，[ 的asc码值为91 就会出现OLE error 800A03EC 的错误提示 估计此错误提示多数是对单元格赋值或赋表达式不正确导致的，或超出excel可识别值的范围
2007-10-29 16:49:00
15260
原创 delphi 调用excel的宏，并传递参数给宏
excel单元格中要显示 换行的字符串，没有找到直接的方法，所以通过调用宏来实现宏：Sub Macro1(var1 As String, var2 As String) Macro2 Macro 宏由 liuin 录制，时间: 2007-10-26 ActiveCell.FormulaR1C1 = var1 + Chr(10) + var2End Subdelphi中
2007-10-26 16:48:00
4032
原创 delphi 调用excel，修改excel并显示
目的：将查询结果输出到excel，并打开excelfunction TFrmDBCZ_Report_DLBBFK.ProcessExcel(date: string): Boolean;var xlapp,MySheet,MyBooks:Variant; i,j:Integer; filename,savefile :string;begin filename := Extrac
2007-10-22 10:14:00
2490
原创 delphi 中 adoquery 带参数查询的奇怪问题
str = select * from t1 a + left outer join t2 b on a.id=b.id+ left outer join t3 c on a.id=c.id+ where c.field like :v1 ;adoquery.sql.clear; adoquery.sql.add(str) ;adoquery.parameters.paramv
2007-10-08 16:52:00
5244
转载 Delphi ListView的用法(常用技巧)[转载]
Delphi ListView的用法(常用技巧)[转载]2006-12-17 12:29//增加 i := ListView1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:= IntToStr(i); ListItem.SubItems.Add(
2007-09-26 14:40:00
715
原创 '显示桌面'的内容
[Shell]Command=2IconFile=explorer.exe,3[Taskbar]Command=ToggleDesktop
2007-09-21 08:20:00
444
转载 dbgrideh点击标头排序函数
procedure SortDBGridEh(Sender: TObject; ACol: Integer; Column: TColumnEh);var FieldName : string; SortStr : string;begin Screen.Cursor := crSQLWait; try if (Sender is TDBGridEh) and ((Sende
2007-09-12 10:31:00
942
转载 给 StringGrid 的 ACol 列快速法排序
procedure TFrmDBDL.GridQuickSort(Grid: TStringGrid; ACol: Integer; Order, NumOrStr: Boolean);(* 函数功能：给 StringGrid 的 ACol 列快速法排序(* Order: True 从小到大(* : False 从大到小(*
2007-09-12 09:32:00
1184
原创 自定义函数//获取登录计算机用户的名称，获取计算机名称
function GetlocalcomputerName:string;/**/////获取计算机名称 var lpName:pchar; lpSize:DWord; begin lpSize:=255; getmem(lpName,255); GetComputerName(lpName,lpS
2007-09-10 09:36:00
884
原创 清空panel的edit控件文字
unit Unit2;interfaceuses SysUtils,Forms,ExtCtrls,StdCtrls;procedure ClearEdit(pl:TPanel);implementationprocedure ClearEdit(pl:TPanel);var i:integer;begin for i := 0 to pl.ControlCount -1 do begi
2007-09-10 08:16:00
761
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人