自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

海洋

工作、学习、生活

原创 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 705

原创 ehlib使用内存表的方法

delphi ehlib TMemTableEh 内存表

2011-03-08 17:49:00 1909

原创 Ehlib导出至excel时的问题

ehlib,SaveDBGridEhToExportFile,显示

2010-12-28 23:05:00 971

原创 解决Raize日历控件显示的问题

Raize,TRzDateTimeEdit,显示

2010-12-28 22:49:00 791

原创 关于CreateProcess的使用

CreateProcess,句柄

2010-12-25 17:10:00 842 1

原创 pb11.5连接oracle10g出现“please connect as the powerbuilder catalog owner。。。。”错误

pb 连接 oracle

2010-12-25 17:05:00 4747 4

原创 pb11.5所用到的dll

pb8升级到pb11.5 pb11.5编译的程序发布

2010-08-18 17:34:00 2150

原创 pchar手动分配内存的疑惑

pchar ,GetMem

2010-06-02 11:48:00 539

转载 巧妙给USB存储设备加个“写保护”

为了防止资料外泄,对USB移动存储设备的预防也很重要。目前,为了禁用USB移动存储设备,较为流行的方法不外乎是在主板CMOS中禁止USB接口并设置密码,或在系统中禁用USB存储设备的驱动。   不过,实际上很多时候我们只是想阻止别人通过USB接口从我们的计算机上拷贝资料,而并不想禁止使用USB存储设备。对于这种情况,上述两种方法就无能为力了。点击“开始->运行”,在输入框中键入regedi

2010-02-23 17:20:00 421

原创 两种拷贝文件方式的速度比较。

//方式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 705

原创 解决 ModName: unknown ModVer: 0.0.0.0 Offset: 00000000 问题

      最近一个优盘上的程序,在退出的时候偶尔会“.........ModName: unknown ModVer: 0.0.0.0 Offset: 00000000 ”这个错误,在我自己开发的机器上,反而没有这个情况;凭经验判断,出现这样的错误应该是窗口关闭时内存没有释放或者已经释放了额,而再次释放造成的,可是我仔细检查了代码,也没有发现问题。      实在是没有办法,偶尔出错,况且自

2009-11-27 15:42:00 2024

原创 应用程序发生异常 未知的软件异常(0x0eedfade),位置为0x7c812a5b

      最近我们一个客户打电话说,我们的客户端程序在他们的XP系统上经常出现此错误。但是我们的客户端已经装了了很多台了,是第一次碰到此问题,因此断定可能是他系统的问题,于是我就在google里搜索0x0eedfade这个地址,一搜还真不少,看来这个肯定是系统问题了。于是慢慢找解决方法,最后找到了一篇博文,说是在DOS窗口中执行一些命令可以解决此问题。于是我就把这个命令发给了客户,还真解决了问题

2009-09-27 16:04:00 2808 1

原创 二手车1500公里感受

     8月1号买的车,老款进口版马自达3(1.6MT),车标是圆圈的那种,9X年的车,已经跑了31万多公里了。购入价2万多,买来至今已经跑了1500多公里了,写些感受。     一、买车     说实在话,这次买车还是比较鲁莽的。7月份才考完驾照,在和朋友在一起的时候,说想弄个二手车练练,其实说这话时也未必当真,但是有个伙计就当真了,1号那天打电话给弟弟,说有辆车2万多,绿标,进口马自

2009-09-16 15:22:00 1578

原创 给xp打补丁

     最近我们一个产品要大规模安装,但是对客户端的操作系统要求比较高,xp必须是SP2及以上。在一些网络管理比较正规的单位,一般没有啥问题,但是如果碰到网络管理比较差的单位,我们也是比较郁闷。     最近,我们就碰到这种情况。某单位内30多台机器,都是未打过补丁的机器,并且都是很多年前的老机器。从官网下载的补丁,打了半天也不一定能打上,打不上就导致我们的软件装不上,客户非常的不满意,真是

2009-09-14 09:46:00 486

原创 学车(七)

 路考      路考前练了大概有3、4个小时吧,昨天下午4点去车管所考试,先是在车管所考试的路的练习,练习到5点多时,进车管所排队,验指纹。验完指纹后,开车去排队,考试的人到很多,总共排了8队,每队好像有10台车,然后每个考官带一队考试,我们的车是一队中的第六车,考试也很快,一个人基本上也就开200~500米的距离,轮到我们的车开始考试时,我们已经转了1圈了,我是我们车上第一个考试的,考官上

2009-07-24 10:03:00 408

原创 学车(六)

 韶关长训  早上八点到TP学车总部,因为我们此次去的6个人都是一个报名点的,所以报名点的小姐让长训教练来报名点来接,而不是自己坐车去总部签到,这点报名点还是考虑比较周到的。  到总部后,总部的老师讲了去长训的注意事项,然后就出发了,这次去的是6个人,每个人开70分钟,本来我想开第一个的,结果因为要上厕所,回来后已经有个同学座在驾驶座上了,想想也就算了。还有,我们这次的车是江淮瑞风,而不是

2009-07-20 11:07:00 734

原创 学车(五)

 6月26号,早上9点多,去车管所考试9选3,还好,运气比较好,被分到2号道,考试项目是定点停车、直角转弯、侧方停车,我比较没底的单边桥没开,铁饼在一号道,s弯在4号道,3号道和我的一样。 考试项目简单,所以考试也比较顺利,一次性满分通过,一起去了5个人,其它4个也不错,都过了。   下一个项目是韶关长训,这个应该没啥问题,教练跟着的。 

2009-06-26 14:05:00 411

原创 学车(四)

6月4号去考的蝴蝶桩,还算顺利,一次通过。接着,报名的给我约26号考9选3,但是暂时还不能约车练习,只能等离考试 一个星期左右才能给约车学习。     前几天,连着去了两次,累计练习时间有4个多小时吧,总结下各个项目的练习要点:1、半坡起步及定点停车    半坡起步应该比较简单,首先慢慢松离合,当感觉车震动比较强烈的时候,慢慢送刹车,就行了。    定点停车,教练让观察右边雨刮

2009-06-19 22:06:00 559

原创 缺少关键字Stdcall会是什么样子?

 要写个dll给同事调用,一时疏忽,忘了写stdcall了,结果造成的结果是,传进来的结构指针,我改了,传不出去。最后释放时还报错。

2009-06-15 16:28:00 472

原创 学车(三)

第一进:向右打死方向,挂1档,车头向右摆,看到2号杆和车前档风玻璃左下角重合,马上向左打死方向,等车头距离2号杆20公分左右停车。 第一退:挂倒档,再从右后视镜看4号杆,看到4号杆消失在车窗中间,马上快速向左打死方向,看到车头基本摆正了,停车。 第二进:挂1档,车缓慢前行,开始第二进。慢慢转动方向盘,尽量让车前盖左边的缝隙对准2号杆,距2号杆一米左右停车。 第二

2009-06-15 16:21:00 370

原创 学车(二)

    还是蝴蝶桩,据别人说,蝴蝶桩在整个学车过程中占得比重还是比较大的。所以要练久一点。   上次,教练教了练习倒入乙库(即左边的库),这次教练让学习,车在甲库,从乙库的门出去,然后倒入甲库,再出去。   总结下教练的要点:  1、车在甲库,向左打死方向盘,慢走,看见3号杆与左雨刷的根部一条线时,回正方向盘,出门时,先看右倒车镜,注意别碰杆,再看左倒车镜,注意,左倒车镜与3号杆一定间

2009-05-21 15:15:00 467

原创 学车(一)

    看着周围的朋友、同学个个都考了驾照,心里也痒痒的。于是乎,3月份的时候,在通品报了名,报名后,接下来就是考试了。按车管所的考试流程,首先考试理论,在计算机上考试,从1500多道题库中随机抽取100道题,只要做对90道以上,就算及格。看了几天书,然后去考试,还行,感觉只要认真看,比较容易过。    接下来,就是上车练习了,没上车之前,觉得应该不是很难,可是当我实际操作时,却觉得并不简单。

2009-05-16 23:53:00 540

原创 delphi使用sqlite数据库时的中文路径问题

写程序的时候,还没有发现。等到使用的时候,才发现这个问题。如果数据库所在的路径是中文路径的话,根本运行不起来,会报错,因为sqlite用的是utf8编码。 解决办法:AnsiToUtf8()  例如:  DBPath := ExtractFilepath(application.exename)+ MyInfo.db;  gdb := TSQLiteDatabase.C

2009-05-14 17:25:00 1548 1

原创 获取网卡的mac地址

下面这段代码是网上找到的,不过由于业务需要,我改了下:原来返回值是字符串,我现在改为返回int64类型了 function fGetMac(adapterNum :integer):Int64;//adapter00为指定的网卡适配器var NCB :TNCB; //   NetBios控制块 ADAPTER :TADAPTERSTATUS;   //   获取网卡状态 LANAENU

2009-04-15 16:53:00 449

原创 骑电动车上下班的快乐

   自从年前搬了家之后,新租的房子离公司更远了,每天上下班坐公交车需要很久时间。原来我骑自行车上下班,现在远了,况且路也不是很好(主要有上下坡),就把单车给卖了。    首先从家里出来,步行到公交车站,至少得8分钟左右,然后还需要等车,上车之后,因为是上下班高峰期,塞车是经常发生的,另外,深圳的公交车都很绕圈,到了离公司最近的站下车,因为公司所在的这边修地铁,所以下车之后还要走上10分钟

2009-04-15 16:18:00 1267

原创 订机票碰到的问题

    今年春节因为刚刚生了小孩,不方便会北方老家过年,况且父母也都在深圳,因此打电话给姐姐、哥哥让他们来深圳过年,在征得他们的同意后,我就开始帮他们定机票。    上网上查,年前从北方老家来深圳的机票还挺便宜,比回去的便宜老多了,基本上是3折左右。心中窃喜呀,这个价格和座火车卧铺的价格差不多了。马上,给我姐姐3口定了往返,给哥哥3口定了单程,其中往返的为深航的,单程的为海航的。    马

2009-02-10 11:06:00 506

原创 用代码安全移除u盘

最近做的一个优盘项目中需要用到,因此在网上找的例子,然后从里面摘出来的。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,SetupApi;const CfgMgr32

2009-01-17 17:19:00 1539

原创 Application.Terminate关不掉程序。

     程序要求运行时需要狗,如果运行时狗被拔掉,则程序退出。本来这也没什么,我的处理方法是:程序接收WM_DEVICECHANGE系统消息,然后判断狗是否存在,不存在则退出。代码:  irtn := fIsUkeyExist; if irtn 1 then Application.Terminate;但是今天,测试人员发现,如果拔出狗时,鼠标正在浏览菜单(停留在程序

2008-11-18 17:20:00 1156

原创 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 2331

原创 TreeView的Data的内存泄漏问题

      经常使用TreeView控件,一直都没有注意到结点的DATA的内存释放问题,因为虽然经常用,但是有时候data就是一个ID值,有时候是一个结构指针,而用指针是需要new的,想着delphi会自动释放的(好像也有人这么说)。     其实,一直以来都是错误的呀,因我最近用了检测内存泄漏的工具才发现,真笨呀。释放此指针也很简单,在TreeView的OnDelction事件中写代码:

2008-11-07 16:36:00 881 1

原创 Delphi7做WebService应用pb调用

   最近要帮朋友做一个软件在线注册的程序,考虑到pb11支持WebService,并且就在一个月前我还试验成功的, 但是当真正使用时,却怎么也弄不成。发布的时候出现“pbwsemit 遇到问题需要关闭”发布失败,我的计算机系统也没有什么变化,.net 的frmework也没有动,系统安装的是pb11.2,也一直没有动,这次就不行了,真是晕死了,在网上也没有找到什么原因,最后还是放弃了用pb11做

2008-08-20 11:15:00 825

原创 在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 4885

转载 delphi的指针

delphi中的指针确实很方便也很强大。现在将网络上关于指针的一篇文章转载如下:正文如下:====================大家都认为,C语言之所以强大,以及其自由性,很大部分体现在其灵活的指针运用上。因此,说指针是C语言的灵魂,一点都不为过。同时,这种说法也让很多人 产生误解,似乎只有C语言的指针才能算指针。Basic不支持指针,在此不论。其实,Pascal语言本身也是支持指针

2008-07-06 20:11:00 1197 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 3263 1

原创 delphi程序不能最小化

csdn的博客系统真是垃圾,我刚才写了很多结果没有保存上。郁闷死了。算了,只贴一段代码吧。解决在某种情况下窗口不能最小化的问题。     if IsIconic(Application.Handle) then    begin       DefWindowProc(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);    end

2008-06-19 13:03:00 1035

原创 在delphi中操作ms sql的varbinary类型数据

在项目中要将一个结构加密,加密后的数据都是二进制,而要将这些二进制结果存储到数据库中,等用到时再从数据库中读出,然后根据解密算法,获取结果。希望能对大家有所帮助。sql server中用到的数据类型是varbinary,可变长的二进制。delphi中主要用到variant类型1、写//根据密文,生成数据库能存储的格式,其中二进制长度为32字节function fGetVar

2008-06-16 15:53:00 2054

原创 项目总结

      从北京回来有一个星期了,想想刚刚做完的这个项目,其实也有很多东西要总结的。  1、作为一个安全类的软件系统,有几种功能是不能缺少的。其实这几个功能也不算很难,但是如果没有,就很难通过测评中心(国家级)的评测。     a、超时认证保护功能     在系统间隔某端时间,无人使用,系统将自动切换至登陆界面。     function fGetKXTime   //得到当前空闲的时间,ms 

2008-05-21 10:51:00 506

原创 EHLIB使用经验(一)

Ehlib这个表格组件真的不错,比delphi自带的DBgrid强太多了。下面说下里面的三个具体功能!1、自动排序(无代码)  不用写代码,只要选择相应的属性就可以了。  A、将该组件的[OptionsEn]中的 dgAutoSortMarking 属性设置为 True   B、将要排序的字段的属性列表的 [Title]的 TitleButton 属性设置为 True   C、uses 子句中

2008-03-24 12:06:00 2004 1

原创 将Rtf转换为Html格式

         工作需要,并且以前也没有做过,所以就在网上搜索有关方面的资料。还好,找到了一些,有现成的程序,也有提供动态库的,大多是国外的。我下载了几个,试了试,还是有点问题的。原来的纯文本、带一些格式并且为中文的rtf转为html后,都变成乱码了,全英文的就不会,也不知道是怎么回事?从网上下载的动态库也是如此,并且,动态库还有版权限制。       偶然的机会,发现网上有RtfToHtm

2008-01-03 17:02:00 3167 4

原创 用delphi7编写windows服务程序总结

        本来是没有打算把软件写成服务形式的。起因是因为,我原来写的一个TCP通讯程序的客户端,客户在使用时,因为经常断电,所以服务器有时候会重启,因为原来的程序不是服务形式的,在没有登陆windows界面的情况下,不能够自动运行。因此,才决定把现有的程序改为服务形式。      一、服务程序的创建          delphi编写服务程序非常简单,点击菜单 File->New->

2007-12-11 16:47:00 2976 3

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