- 博客(125)
- 收藏
- 关注
RSS订阅原创 SVN更新时报错，提示“校验和不匹配”
1.使用 cmd 命令，进入出现问题的文件所在的目录。2.执行命令svn update --set-depth empty。3.执行命令svn update --set-depth infinity。
2023-08-08 20:09:13
897
原创 uni-app开发微信小程序，关于获取手机号事件绑定的坑
闲话少说，直接上代码。微信官方的代码是这样的：<button open-type="getPhoneNumber" bindgetphonenumber="getPhoneNumber"></button>Page({ getPhoneNumber (e) { console.log(e.detail.errMsg) console.l...
2020-02-03 23:26:02
3424
1
原创 解决Goland debug模式编译启动很慢的问题
File -> Settings -> Build, Execution, Deployment -> Debugger把Rebuild transitive packages勾选框去掉就可以了
2019-04-04 17:06:32
6405
原创 让Chrome/Firefox轻松兼容老旧的ActiveX，让访问硬件外设变得更友好
因为不常来，所以无法及时回复，看到很多人需要交流，请加QQ群：1041052470【JS调用ActiveX解决方案】同学公司的医院系统是B/S架构的，之前为了兼容各种二代证读卡器（神思、握奇、精纶等）、IC卡读卡器（明华等）、还有各地神奇的健康卡，还有一个奇葩的ActiveX打印控件Lodop，还要支持汉王手写板签名，还要兼容客户的Windows XP，还要照顾前端的js框架......，为了...
2018-11-02 21:01:16
24560
13
原创 一直苦恼于找不到获取系统默认的UserAgent的方法，今天偶然想到一种方法，可实现效果
<br />/// <summary>/// 获取系统默认的UserAgent/// uses SHDocVw, MSHTML;/// </summary>function GetUserAgent: string;var Doc: IHTMLDocument2; win: IHTMLWindow2; wb: TWebBrowser;begin Result := ''; try wb := TWebBrowser.Create(nil);
2010-08-24 00:17:00
1779
转载 调用API实现MD5加密
<br />代码如下：<br />end.unit uMD5;interfaceuses SysUtils,Windows;function MD5(const Input: String): String;implementationconstADVAPI32 = 'advapi32.dll';function CryptAcquireContext(phProv: PULONG; pszContainer: PAnsiChar; pszProvider: PAnsi
2010-06-20 04:17:00
1851
转载 Delphi 运算符及优先级
Delphi 运算符及优先级单目运算符 (最高优先级)@取变量或函数的地址(返回一个指针)not逻辑取反或按位取反乘除及按位运算符*相乘或集合交集/浮点相除div整数相除mod取模 (整数相除的余数)as程序运行阶段类型转换 (RTTI运算符
2009-08-11 17:29:00
4257
原创 创建多层目录函数
//创建多层目录procedure MkDirMulti(sPath: string);begin if(/=sPath[Length(sPath)]) then begin sPath :=Copy(sPath, 1, Length(sPath)-1); end; if (Length(sPath)<3) or DirectoryExists(sPa
2009-06-05 17:47:00
797
1
原创 在delphi程序中实现QQ用户的Web登陆并获取个人信息
{code by siowhttp://blog.csdn.net/siowver 0.2 2009-04-16 修正了分组信息与好友信息获取不到的bugver 0.1 2009-04-15 初步实现QQ账号的Web登陆，个人信息和头像的获取}unit Unit1;interface{.$DEFINE ID10}uses Windows,
2009-04-16 10:41:00
7560
5
原创 整理的两个图像处理函数
unit Graphics2;interfaceuses Windows,SysUtils,Graphics,Math;const MaxPixelCount = 32768;type pRGBTripleArray = ^TRGBTripleArray; TRGBTripleArray = ARRAY[0..MaxPixelCount-1]
2009-03-31 01:22:00
832
原创 二月雪
二月雪路边的小店里响起的歌是在夜色中迷失的心情街灯的光晕中散落的雪是任凭风如何也吹不散的精灵在最不经意的时刻你悄悄的来了我觉得我看到了春天的使者你是那样的美丽我只需深情地望一眼便铭记了你的容颜你知道吗就算你是如此
2009-02-24 00:11:00
970
原创 通过消息拦截达到在Delphi控件中屏蔽原有事件处理的一种方法
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) btn1: TButton;
2009-02-10 17:33:00
5030
1
转载 Delphi与Java中的日期互换
在最近做的一个项目中用到了Java和Delphi，发现它们不能正确读取对方的日期类型，如在Java中写入一个值为“2007-12-1”的日期值，通过Delphi读取却不是这个值了。 通过查阅资料，发现两者对日期类型的定义略有不同。Java中日期使用的是长整型进行存储的，它表示距“1970-1-1”的毫秒数。如 “1970-1-2”是在“1970-1-1”后的86400000毫秒，所以
2008-11-20 02:26:00
912
原创 凌晨
凌晨 酒醒的凌晨，天光昏暗。 躺在床上，确认一下自已身在何处，然后继续享受着半睡半醒的惬意。窗外是不知何时响起的啪啪作响的雨声。 除了雨声，还是雨声! 思绪很飘乎地在过去与现在，梦境与现实之间游离。这样的时刻，任何人我都不愿想起。这样的时刻，属于自我与内心对白的过程。 在过去，对现在充满希望。在现在，对过去充满遗憾。 在梦境，梦回过去。在现实，依然是现在。
2008-08-30 09:15:00
724
1
原创 delphi图片换肤处理优化修正
原来见过一个png图像换肤处理的文章，但其中颜色处理上有些问题，特作优化修正处理，本是回复群友的问题的，所以用的是bmp图片，png图片处理原理是一样的。代码如下：<!--body { font-family: "Courier New"; font-size: 10pt;color: #000000 }.u0 { font-family: "Courier New"; font-
2008-08-21 17:42:00
985
转载 ACCESS导入导出
Access有很强的导入导出功能. 可以使用SELECT ... INTO 语法来导入非ACCESS表, 这样就不需要一条条地写入. 这种导入方式效率极高, 近30万条的数据, 不到半分钟就导入完成.假设有一个dBase表customer.db位于D:/dbase目录中, 需要导入ACCESS中, 首先创建一个ADO 连接指向要导入的ACCESS数据库, 然后执行SQL:SELEC
2008-07-09 11:03:00
3554
1
原创 ACCESS中奇怪的问题！
前几天写了个函数：//函数说明：根据ID字段比较两个Access数据库中的数据表中的记录异同// p1 第一个数据库// p2 第二个数据库// tName 要对比的数据表名function CompRecordById(AdoQuery:TADOQuery;p1,p2,tName:string):Boolean;var sqlstr:string;begin sqlst
2008-05-29 17:00:00
1441
转载 各种数据库的ado连接字符串
1.Oracle: a>先设置好Oracle本地服务名配置,如:USER_DB b>配置ODBC引擎:ODBC_DB,该引擎的服务器指向Oracle的本地服务名,即:USER_DB c>配置联接字符串,如:Provider=MSDASQL.1;Password=user;Persist Security Info=True;User ID=user;Data Source=ODBC_DB;Exte
2008-05-15 20:57:00
946
原创 根据ID字段比较两个Access数据库中的数据表中的记录异同
//函数说明：根据ID字段比较两个Access数据库中的数据表中的记录异同// p1 第一个数据库// p2 第二个数据库// tName 要对比的数据表名function CompRecordById(AdoQuery:TADOQuery;p1,p2,tName:string):Boolean;var sqlstr:string;begin sqlstr:=select
2008-04-10 18:01:00
3022
1
原创 第三只眼网络监控软件简单分析,试用及清除
总体感觉:界面很漂亮,功能很多,操作界面比较人性化,但性能很差,而且不是一般的差,尤其是实时临控时值传输的图片,根本没做任何算法上的优化,初步断定是VB写的以下只是简单分析,并不包括安装客户端所产生的所有文件,而且我安装的是试用版,跟正式版可能有一定区别敬告各位:使用这种软件对企业没有任何好处,只能让员工对公司产生更严重的消极抵触情绪!严重BS这种恶心软件的流氓行为!安装程序修改过的键值HKEY_
2008-03-02 18:52:00
10087
1
原创 断章之关于“想起来的爱情”
“有谁会用１０年的时间去等一个远行的人．有谁会在１０年的远行之后，依然想回头找到那个人．” 我会用１０年的时间去等一个远行的人，只是１０年的远行之后，却不会再想回头找到那个人． 人生是一种经历，更是一种改变。在时间的长河里，于同一个地方，和同样的人相逢，却永远都不可能再找回当时的你我。依然相信有爱情存在，依然希望有机会能倍加珍惜。否定过去，不是否定爱情。 “我们的爱情，之
2008-02-17 18:18:00
1017
原创 断章之落叶
秋天忽然就过去了，我还来不及确认它是否真的曾经来过。 雪还没有来，所以我不认为冬天真的已经到来。 在季节的罅隙里，心情忽然很落寞。脑海浮想起的是那样的漫天飞舞的雪，那样滴水成冰的日子，那样昏暗灯光的屋子里有明亮窗台的角落，那样削瘦的双肩但却坚定的背影。不管怎样的凝眸笑靥或许终会忘记，只是这样的背影影像却时常浮现。 天际的冷星残月，一如既往，若隐若现。 生命。爱情。理
2007-11-19 02:08:00
822
转载 爱的守则
爱的守则 有家宠物店的玻璃窗上贴着“宠物给主人的十大叮咛”：一、把我带回家之前，请记得我的寿命约有10年到15年。你若离弃我，会是我最大的痛苦。二、请对我有耐心，你要给自己一些时间了解我。三、信任我——那对我十分重要。四、请别对我生气太久，也别把我关起来当作惩罚。你明白吗？你有
2007-10-31 22:47:00
2560
2
转载 秒速5厘米
秒速5厘米 ——什么时候，能再一次一起赏樱花 时间的洪流将记忆淹没 雪与樱花的飘落 无法跨越的鸿沟 印在双唇上的冰凉 凝结着萌动的爱意 什么时候开始 身边陪伴的不再是你 什么时候开始 邮箱的来信不再有你 什么时候开始 你我的距离变的这般遥远 无数次擦肩而过 仿佛最后的邂逅 即便真的在那一刻回头 我们也终究不会再见 永恒不变的秒速5厘米 让一切埋藏 我别无所求 因为已经没有什么 比你更为重要
2007-09-04 16:43:00
1183
转载 把DBGrid输出到Excel表格（支持多Sheet）
{ 功能描述：把DBGrid输出到Excel表格（支持多Sheet） 调用格式：CopyDbDataToExcel([DBGrid1, DBGrid2]); } procedure CopyDbDataToExcel(Args: array of const); var iCount, jCount: Integer; XLApp: Variant; Sheet: Variant;
2007-08-02 23:46:00
1067
转载 Delphi 代码优化
Delphi 代码优化 Come from: http://www.optimalcode.com 文章编目 [显示隐藏] 1. 字符串优化 1.1. 不重复初始化 1.2. 使用SetLength预分配长字符串（AnsiString） 1.3. 字符串与动态数组的线程安全(Thread Safety) 1.4. 避免使用短字符串 1.5. 避免使用copy函数 1.6. 总是使用长字符串，必
2007-06-29 23:32:00
3308
转载 再见
再见 你说的多明显我却当成悬念是否这是你心愿再见 你只说了一遍我却当成誓言明知你不会兑现若不是你转身前 委婉的拒绝曾习惯的吻别我不会发觉 心痛到极点你在谁身边都是我心里的残缺现在我才了解 执着是一种冒险无论我在谁身边离你总是不会太远思念叫人疲倦 但我偏要越过它的极限再见 又一年再见多少年再见 永远的永远到最后败给时间
2007-05-20 01:19:00
1018
转载 有些秘密，我不想知道
有些秘密，我不想知道 转自：《意林》作者：安宁 这是很多年前的事了。那时他还是一个见人就会拘谨的青涩男生，刚刚从西部边远的小县城，考到繁华的上海读书。那种无人结伴的落寞和孤单，每到周末大家纷纷出去跳舞K歌的时候，就会愈发地深下去一层。幸亏所学是自己喜欢的园林设计，所以别人游玩嬉闹的时光，他全都去泡了图书馆。这样的努力与勤奋，让他不过是一年，便很快地在同系的学生们中间脱颖而出，成为被许
2007-04-22 14:44:00
1207
1
原创 二元一次方程 高斯消元法计算函数
TRS=array[1..2] of Real; {二元一次方程 高斯消元法计算函数} function X1Y1_2(const ia1,ib1,ic1,ia2,ib2,ic2:Real):TRS; const //为数组的行数与列数 Rows = 2; Cols = 3; var C: array[1..Rows, 1..Cols] of Real; //系数及常数项
2007-01-05 12:13:00
2708
2
转载 不用DLL即可Hook得到按键代码（支持XP）
不用DLL即可Hook得到按键代码（支持XP）unit Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMainForm = class(TForm) RMemo: TMemo; Hoo
2006-12-21 19:41:00
1642
原创 今天帮一个哥们弄的查找无标题窗体上的控件句柄的代码
var lst:TStringList; {$R *.dfm} function EnumWndProc(AWnd: HWND; AlParam: LPARAM):Boolean;stdcall; var WndCaption: array[0..254] of Char; str:string; begin GetWindowText(AWnd, @WndCaption, 25
2006-09-14 18:35:00
1917
转载 文件自启动方式
一.自启动项目:开始---程序---启动,里面添加一些应用程序或者快捷方式.这是Windows 里面最常见,以及应用最简单的启动方式,如果想一些文件开机时候启动,那么也可以将他拖入里面或者建立快捷方式拖入里面.现在一般的病毒不会采取这样的启动手法.也有个别会.二. 第二自启动项目:这个是很明显却被人们所忽略的一个,使用方法和第一自启动目录是完全一样的, 只要找到该目录，将所需要启动的文件拖放进去就
2006-09-07 22:30:00
1804
转载 rs.open sql,conn,1,1全接触
经常会在连接DB的时候用到，就是不知道代表什么意思。。。RS.OPEN SQL,CONN,A,BA: ADOPENFORWARDONLY(=0) 只读,且当前数据记录只能向下移动ADOPENKEYSET(=1) 只读,当前数据记录可自由移动ADOPENDYNAMIC(=2) 可读写,当前数据记录可自由移动ADOPENSTATIC(=3) 可读写,当前数据记录可自由移动,可看到新增记录B:
2006-09-07 22:10:00
1198
原创 如何在程序发布时不附带midas.dll文件
Delphi程序中，如果用到了ClientDataSet控件，程序发布时需要附带midas.dll文件，在客户端和服务器内uses midaslib单元，这样就不用发布midas.dll文件了。
2006-08-30 11:04:00
1674
原创 Access的SQL语句中不能便用CEILING的解决办法
因为要取两个时间之间相差的分钟数，不够一分钟按一分钟来算，但万恶的ACCESS里N多函数都是内置的，CEILING等函数在程序中无法使用，所以想了个办法折衷实现：int((datediff(s,Begin_Time,stop_time)+59)/60) 或(datediff(s,Begin_Time,stop_time)+59)/60
2006-08-23 18:34:00
2371
转载 死了老婆，放声歌唱
死了老婆，放声歌唱 中国人的达观有一部分来自于他，来自于距我们2400年的这个我们称作“庄子”的人。纵横生死，豪迈豁达，终其一生，庄子一直对生命严肃而幽默，从未亵渎。这个夜里我翻开他的书，听他用河南口音说“生也死之徒，死也生之始”，感到彻骨的凉意。 我不知道庄子的人生观和世界观是如何形成的，但毫无疑问他是一位真正的哲学家。他在池塘前问鱼，在墓道里问骷髅，在梦里问翩翩飞临的蝴蝶，他的问题
2006-08-18 01:40:00
1534
原创 云台记趣
从云台山回来都几个星期了， 早就想写篇游记或是贴点观感什么的，可是一直懒得写，今天终于把照片都传上来了，终于下定决心，凑篇东东出来。想了半天，不知道写什么，大家还是看照片吧。都放在这里了：http://blog.csdn.net/siow/Gallery/223950.aspx只贴一张最有意思的，一只蜻蜓停在偶的胸前休憩，呵呵，是活的哦！可惜没把飞走时的镜头拍下来。
2006-08-07 11:56:00
1200
转载 Sql Server 和 Access 操作数据库结构Sql语句
下面是Sql Server 和 Access 操作数据库结构的常用Sql，希望对你有所帮助。内容由海娃整理，不正确与不完整之处还请提出，谢谢。新建表：create table [表名]( [自动编号字段] int IDENTITY (1,1) PRIMARY KEY , [字段1] nVarChar(50) default 默认值 null , [字段2] ntext null ,
2006-07-19 11:11:00
1365
2
原创 TStringList类的字符分割有问题，另贴一替代函数
TStringList类的字符分割有问题，当字符串中有#0到空格之间的任一字符时，都会被当作分割符，郁闷，另贴一替代函数：function SplitString(Source, Deli: string ): TStringList;var EndOfCurrentString: byte; StringList:TStringList;begin StringList:=TStringL
2006-07-17 18:08:00
1537
2
转载 许巍-曾经的你
曾经的你演唱:许巍曾梦想仗剑走天涯看一看世界的繁华年少的心总有些轻狂如今你四海为家曾让你心疼的姑娘如今已悄然无踪影爱情总让你渴望又感到烦恼曾让你遍体鳞伤dilililidilililidadadilililidilililidadadilililidilililidada走在勇往直前的路上dilililidilililidadadilililidilililidadadilililidil
2006-07-15 01:40:00
1137
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人