- 博客(59)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 delphi Ado的一个bug
在delphi中，Tadoquery在传参数时，如果传递的参数为中文，则有可能会被截断。例如：qry.close;qry.sql.clear;qry.sql.add(insert into t(a) values(:aa));qry.Parameters.ParamByName("aa").value := 中华人民共和国;qry.executesql;
2020-02-20 09:44:18
867
原创 pb11.5连接oracle10g出现“please connect as the powerbuilder catalog owner。。。。”错误
pb 连接 oracle
2010-12-25 17:05:00
6187
4
转载 巧妙给USB存储设备加个“写保护”
为了防止资料外泄，对USB移动存储设备的预防也很重要。目前，为了禁用USB移动存储设备，较为流行的方法不外乎是在主板CMOS中禁止USB接口并设置密码，或在系统中禁用USB存储设备的驱动。 不过，实际上很多时候我们只是想阻止别人通过USB接口从我们的计算机上拷贝资料，而并不想禁止使用USB存储设备。对于这种情况，上述两种方法就无能为力了。点击“开始->运行”，在输入框中键入regedi
2010-02-23 17:20:00
663
原创 两种拷贝文件方式的速度比较。
//方式1，用文件流的方式Procedure TForm1.fFileCopy( Const sourcefilename, targetfilename: String );Var S, T: TFileStream;Begin S := TFileStream.Create( sourcefilename, fmOpenRead ); try T := TFileStream
2010-01-04 17:12:00
1170
原创 解决 ModName: unknown ModVer: 0.0.0.0 Offset: 00000000 问题
最近一个优盘上的程序，在退出的时候偶尔会“.........ModName: unknown ModVer: 0.0.0.0 Offset: 00000000 ”这个错误，在我自己开发的机器上，反而没有这个情况；凭经验判断，出现这样的错误应该是窗口关闭时内存没有释放或者已经释放了额，而再次释放造成的，可是我仔细检查了代码，也没有发现问题。 实在是没有办法，偶尔出错，况且自
2009-11-27 15:42:00
2666
原创 应用程序发生异常 未知的软件异常(0x0eedfade)，位置为0x7c812a5b
最近我们一个客户打电话说，我们的客户端程序在他们的XP系统上经常出现此错误。但是我们的客户端已经装了了很多台了，是第一次碰到此问题，因此断定可能是他系统的问题，于是我就在google里搜索0x0eedfade这个地址，一搜还真不少，看来这个肯定是系统问题了。于是慢慢找解决方法，最后找到了一篇博文，说是在DOS窗口中执行一些命令可以解决此问题。于是我就把这个命令发给了客户，还真解决了问题
2009-09-27 16:04:00
6423
1
原创 二手车1500公里感受
8月1号买的车，老款进口版马自达3（1.6MT），车标是圆圈的那种，9X年的车，已经跑了31万多公里了。购入价2万多，买来至今已经跑了1500多公里了，写些感受。 一、买车 说实在话，这次买车还是比较鲁莽的。7月份才考完驾照，在和朋友在一起的时候，说想弄个二手车练练，其实说这话时也未必当真，但是有个伙计就当真了，1号那天打电话给弟弟，说有辆车2万多，绿标，进口马自
2009-09-16 15:22:00
1721
原创 给xp打补丁
最近我们一个产品要大规模安装，但是对客户端的操作系统要求比较高，xp必须是SP2及以上。在一些网络管理比较正规的单位，一般没有啥问题，但是如果碰到网络管理比较差的单位，我们也是比较郁闷。 最近，我们就碰到这种情况。某单位内30多台机器，都是未打过补丁的机器，并且都是很多年前的老机器。从官网下载的补丁，打了半天也不一定能打上，打不上就导致我们的软件装不上，客户非常的不满意，真是
2009-09-14 09:46:00
687
原创 学车（七）
路考 路考前练了大概有3、4个小时吧，昨天下午4点去车管所考试，先是在车管所考试的路的练习，练习到5点多时，进车管所排队，验指纹。验完指纹后，开车去排队，考试的人到很多，总共排了8队，每队好像有10台车，然后每个考官带一队考试，我们的车是一队中的第六车，考试也很快，一个人基本上也就开200~500米的距离，轮到我们的车开始考试时，我们已经转了1圈了，我是我们车上第一个考试的，考官上
2009-07-24 10:03:00
508
原创 学车（六）
韶关长训 早上八点到TP学车总部，因为我们此次去的6个人都是一个报名点的，所以报名点的小姐让长训教练来报名点来接，而不是自己坐车去总部签到，这点报名点还是考虑比较周到的。 到总部后，总部的老师讲了去长训的注意事项，然后就出发了，这次去的是6个人，每个人开70分钟，本来我想开第一个的，结果因为要上厕所，回来后已经有个同学座在驾驶座上了，想想也就算了。还有，我们这次的车是江淮瑞风，而不是
2009-07-20 11:07:00
827
原创 学车（五）
6月26号，早上9点多，去车管所考试9选3，还好，运气比较好，被分到2号道，考试项目是定点停车、直角转弯、侧方停车，我比较没底的单边桥没开，铁饼在一号道，s弯在4号道，3号道和我的一样。 考试项目简单，所以考试也比较顺利，一次性满分通过，一起去了5个人，其它4个也不错，都过了。 下一个项目是韶关长训，这个应该没啥问题，教练跟着的。
2009-06-26 14:05:00
505
原创 学车（四）
6月4号去考的蝴蝶桩，还算顺利，一次通过。接着，报名的给我约26号考9选3，但是暂时还不能约车练习，只能等离考试 一个星期左右才能给约车学习。 前几天，连着去了两次，累计练习时间有4个多小时吧，总结下各个项目的练习要点：1、半坡起步及定点停车 半坡起步应该比较简单，首先慢慢松离合，当感觉车震动比较强烈的时候，慢慢送刹车，就行了。 定点停车，教练让观察右边雨刮
2009-06-19 22:06:00
658
原创 缺少关键字Stdcall会是什么样子？
要写个dll给同事调用，一时疏忽，忘了写stdcall了，结果造成的结果是，传进来的结构指针，我改了，传不出去。最后释放时还报错。
2009-06-15 16:28:00
577
原创 学车（三）
第一进：向右打死方向，挂1档，车头向右摆，看到2号杆和车前档风玻璃左下角重合，马上向左打死方向，等车头距离2号杆20公分左右停车。 第一退：挂倒档，再从右后视镜看4号杆，看到4号杆消失在车窗中间，马上快速向左打死方向，看到车头基本摆正了，停车。 第二进：挂1档，车缓慢前行，开始第二进。慢慢转动方向盘，尽量让车前盖左边的缝隙对准2号杆，距2号杆一米左右停车。 第二
2009-06-15 16:21:00
440
原创 学车（二）
还是蝴蝶桩，据别人说，蝴蝶桩在整个学车过程中占得比重还是比较大的。所以要练久一点。 上次，教练教了练习倒入乙库（即左边的库），这次教练让学习，车在甲库，从乙库的门出去，然后倒入甲库，再出去。 总结下教练的要点： 1、车在甲库，向左打死方向盘，慢走，看见3号杆与左雨刷的根部一条线时，回正方向盘，出门时，先看右倒车镜，注意别碰杆，再看左倒车镜，注意，左倒车镜与3号杆一定间
2009-05-21 15:15:00
555
原创 学车（一）
看着周围的朋友、同学个个都考了驾照，心里也痒痒的。于是乎，3月份的时候，在通品报了名，报名后，接下来就是考试了。按车管所的考试流程，首先考试理论，在计算机上考试，从1500多道题库中随机抽取100道题，只要做对90道以上，就算及格。看了几天书，然后去考试，还行，感觉只要认真看，比较容易过。 接下来，就是上车练习了，没上车之前，觉得应该不是很难，可是当我实际操作时，却觉得并不简单。
2009-05-16 23:53:00
659
原创 delphi使用sqlite数据库时的中文路径问题
写程序的时候，还没有发现。等到使用的时候，才发现这个问题。如果数据库所在的路径是中文路径的话，根本运行不起来，会报错，因为sqlite用的是utf8编码。 解决办法：AnsiToUtf8() 例如： DBPath := ExtractFilepath(application.exename)+ MyInfo.db; gdb := TSQLiteDatabase.C
2009-05-14 17:25:00
1717
1
原创 获取网卡的mac地址
下面这段代码是网上找到的，不过由于业务需要，我改了下：原来返回值是字符串，我现在改为返回int64类型了 function fGetMac(adapterNum :integer):Int64;//adapter00为指定的网卡适配器var NCB :TNCB; // NetBios控制块 ADAPTER :TADAPTERSTATUS; // 获取网卡状态 LANAENU
2009-04-15 16:53:00
556
原创 骑电动车上下班的快乐
自从年前搬了家之后，新租的房子离公司更远了，每天上下班坐公交车需要很久时间。原来我骑自行车上下班，现在远了，况且路也不是很好（主要有上下坡），就把单车给卖了。 首先从家里出来，步行到公交车站，至少得8分钟左右，然后还需要等车，上车之后，因为是上下班高峰期，塞车是经常发生的，另外，深圳的公交车都很绕圈，到了离公司最近的站下车，因为公司所在的这边修地铁，所以下车之后还要走上10分钟
2009-04-15 16:18:00
1468
原创 订机票碰到的问题
今年春节因为刚刚生了小孩，不方便会北方老家过年，况且父母也都在深圳，因此打电话给姐姐、哥哥让他们来深圳过年，在征得他们的同意后，我就开始帮他们定机票。 上网上查，年前从北方老家来深圳的机票还挺便宜，比回去的便宜老多了，基本上是3折左右。心中窃喜呀，这个价格和座火车卧铺的价格差不多了。马上，给我姐姐3口定了往返，给哥哥3口定了单程，其中往返的为深航的，单程的为海航的。 马
2009-02-10 11:06:00
714
原创 用代码安全移除u盘
最近做的一个优盘项目中需要用到，因此在网上找的例子，然后从里面摘出来的。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,SetupApi;const CfgMgr32
2009-01-17 17:19:00
2002
原创 Application.Terminate关不掉程序。
程序要求运行时需要狗，如果运行时狗被拔掉，则程序退出。本来这也没什么，我的处理方法是：程序接收WM_DEVICECHANGE系统消息，然后判断狗是否存在，不存在则退出。代码： irtn := fIsUkeyExist; if irtn 1 then Application.Terminate;但是今天，测试人员发现，如果拔出狗时，鼠标正在浏览菜单（停留在程序
2008-11-18 17:20:00
1840
原创 sql server中十六进制用字符串表示
十六进制用字符串形式表示例如：int数：16777216 16进制：0x01000000字符串形式：01000000 if exists(select * from sysobjects where name = inttohex and xtype = FN) drop function inttohexgocreate function inttohex(@
2008-11-07 16:52:00
3566
原创 TreeView的Data的内存泄漏问题
经常使用TreeView控件，一直都没有注意到结点的DATA的内存释放问题，因为虽然经常用，但是有时候data就是一个ID值，有时候是一个结构指针，而用指针是需要new的，想着delphi会自动释放的（好像也有人这么说）。 其实，一直以来都是错误的呀，因我最近用了检测内存泄漏的工具才发现，真笨呀。释放此指针也很简单，在TreeView的OnDelction事件中写代码：
2008-11-07 16:36:00
1064
1
原创 Delphi7做WebService应用pb调用
最近要帮朋友做一个软件在线注册的程序，考虑到pb11支持WebService，并且就在一个月前我还试验成功的， 但是当真正使用时，却怎么也弄不成。发布的时候出现“pbwsemit 遇到问题需要关闭”发布失败，我的计算机系统也没有什么变化，.net 的frmework也没有动，系统安装的是pb11.2，也一直没有动，这次就不行了，真是晕死了，在网上也没有找到什么原因，最后还是放弃了用pb11做
2008-08-20 11:15:00
945
原创 在PB中，字符串与十六进制的互转
//字符串转换为16进制string ls_hex = ,hex = char lch_hex[0 to 15] = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, a, b, c, d, e, f} int li_d,icharacter ac_dIf IsNull(astr) Then SetNul
2008-07-28 17:53:00
6688
转载 delphi的指针
delphi中的指针确实很方便也很强大。现在将网络上关于指针的一篇文章转载如下：正文如下：====================大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人 产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针
2008-07-06 20:11:00
1313
2
原创 pb11开发webservice
用pb11开发webservice真是很简单，现在我把搭建的过程简单描述一下。1、服务端打开pb11，选择菜单file->new->target->.net web service，然后一路next，最后生产的项目文件中至少包含三项，一个webservice应用，一个p_webservice部署，一个n_webservice用户对象，然后在这个n_webservice对象中写自己的公开函数
2008-07-01 21:22:00
3986
1
原创 delphi程序不能最小化
csdn的博客系统真是垃圾，我刚才写了很多结果没有保存上。郁闷死了。算了，只贴一段代码吧。解决在某种情况下窗口不能最小化的问题。 if IsIconic(Application.Handle) then begin DefWindowProc(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, 0); end
2008-06-19 13:03:00
1414
原创 在delphi中操作ms sql的varbinary类型数据
在项目中要将一个结构加密，加密后的数据都是二进制，而要将这些二进制结果存储到数据库中，等用到时再从数据库中读出，然后根据解密算法，获取结果。希望能对大家有所帮助。sql server中用到的数据类型是varbinary，可变长的二进制。delphi中主要用到variant类型1、写//根据密文，生成数据库能存储的格式，其中二进制长度为32字节function fGetVar
2008-06-16 15:53:00
2463
原创 项目总结
从北京回来有一个星期了，想想刚刚做完的这个项目，其实也有很多东西要总结的。 1、作为一个安全类的软件系统，有几种功能是不能缺少的。其实这几个功能也不算很难，但是如果没有，就很难通过测评中心（国家级）的评测。 a、超时认证保护功能 在系统间隔某端时间，无人使用，系统将自动切换至登陆界面。 function fGetKXTime //得到当前空闲的时间,ms
2008-05-21 10:51:00
561
原创 EHLIB使用经验（一）
Ehlib这个表格组件真的不错，比delphi自带的DBgrid强太多了。下面说下里面的三个具体功能！1、自动排序（无代码） 不用写代码，只要选择相应的属性就可以了。 A、将该组件的[OptionsEn]中的 dgAutoSortMarking 属性设置为 True B、将要排序的字段的属性列表的 [Title]的 TitleButton 属性设置为 True C、uses 子句中
2008-03-24 12:06:00
2607
1
原创 将Rtf转换为Html格式
工作需要，并且以前也没有做过，所以就在网上搜索有关方面的资料。还好，找到了一些，有现成的程序，也有提供动态库的，大多是国外的。我下载了几个，试了试，还是有点问题的。原来的纯文本、带一些格式并且为中文的rtf转为html后，都变成乱码了，全英文的就不会，也不知道是怎么回事？从网上下载的动态库也是如此，并且，动态库还有版权限制。 偶然的机会，发现网上有RtfToHtm
2008-01-03 17:02:00
4100
4
原创 用delphi7编写windows服务程序总结
本来是没有打算把软件写成服务形式的。起因是因为，我原来写的一个TCP通讯程序的客户端，客户在使用时，因为经常断电，所以服务器有时候会重启，因为原来的程序不是服务形式的，在没有登陆windows界面的情况下，不能够自动运行。因此，才决定把现有的程序改为服务形式。 一、服务程序的创建 delphi编写服务程序非常简单，点击菜单 File－>New－>
2007-12-11 16:47:00
3984
3
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人