Delphi - 随笔分类(第2页) - 不得闲

一个绘制虚线的非常规函数（常规方法，打印机上绘制不出虚线）

摘要：昨天碰到一个灰常的，郁闷之极的问题！在打印机上，竟然使用Delphi的常规方式绘制虚线的时候，竟然显示的始终是实线。我们常规绘制虚线的方法很简单的，就是指定Canvas的PenStyle为虚线模式就可以了。代码简单了Canvas.pen.style := psdot;canvas.pen.color := clred;canvas.moveto(20,30);canvas.lineto(800,800);这样绘制在窗体上，就可以画一条虚线咯。可是用这个绘制到打印机上，就不行了，在打印机画布上，用这个相同的代码，执行之后，实际上打印机打印出来的是实线。在这个破地方蛋疼了半天，打印的代码又多，前. 阅读全文

posted @ 2011-04-28 11:25 不得闲阅读(3718) 评论(8) 推荐(3) 编辑

使用DxVcl为Python的飞信库写一个简单的GUI

摘要：Python的好处，就是类库超多，多到只有你想不到的库，而没有你想到的，他却没有的库。所以飞信，在Python下也有一个开源的类库，这个就是PyFetion，他自己有带一个Demo，不过是一个CGI的程序，没有窗口界面，于是用之前Delphi写的DxVcl为这个飞信库实现了一个简单的界面GUI。代码很简单，就是两个窗口，一个窗口是验证码输入的窗口，还有一个是主窗口。界面信息：主代码如下：class SeriForm(Form): def __init__(self,Owner): self.Caption = '请输入验证码' self.Position = 5 self.Bo 阅读全文

posted @ 2011-04-08 10:51 不得闲阅读(2977) 评论(4) 推荐(1) 编辑

在Python脚本中使用Delphi控件

摘要：Python设计GUI界面的时候，有强大的WxPython，PyQt等，在Windows下也有一个PyWin32的，不过那个是纯SDK模式开发的，用起来不太方便，这两天通过P4D研究了一下Delphi和Python交互的模式，于是通过P4D写了一个模块，通过本模块，就能实现在Python脚本中使用Delphi的控件。目前转化了几个基本的控件支持，增加了几个常规函数，用来作为一般的需求。比如使用本模块创建一个简单脚本的记事本功能：#-*-coding: gbk-*-from DxVcl import *class MainForm(Form): def __init__(self, Ow... 阅读全文

posted @ 2011-04-03 16:53 不得闲阅读(5263) 评论(3) 推荐(0) 编辑

Delphi使用迅雷的开放下载引擎下载

摘要：迅雷的下载貌似开放了引擎，也就是说，咱们可以写程序用迅雷的下载引擎下载文件了。下载地址http://thunderplatform.xunlei.com/不过，下载的东西，给了一个SDK和一个DLL，只要调用DLL中的相关函数，就能下载了，不过，就我目前测试的来看，只支持Http协议，是阉割版的，而且，启动之后，会在系统右下角多一个图标，一个鸟头的图标。总之是很挫咯。他的SDK给了一个Demo，是VC的代码。顺带把SDK翻译了成Delphi的，有想使用这个阉割方法下载的人，可以偷偷懒试试咯。说明，我没有测试，所以不保证一定翻译有效。因为这个阉割版阉割的太厉害了，就支持一个Http的，所以，我. 阅读全文

posted @ 2011-03-22 16:12 不得闲阅读(4560) 评论(5) 推荐(1) 编辑

Delphi XE的RTTI增强，动态Hook某些内部事件

摘要：Delphi2010之后的RTTI做了很大休整，现在用起来很爽了哦。甚至可以获取某些类的内部私有单元，然后为其赋值！讲这个RTTI增强的，可以参考网上的多个博客内容，我列举一下：Delphi2010RTTI的增强Delphi的Anymouse方法探秘万一的Rtti系列我这里的主要目的是挂钩某些内部私有事件，然后增加上一些自己的处理过程，这里我以TMenuItem的私有内部事件FOnChange作为例程。这个私有事件在菜单内部绑定，我们平常状态下，在外部无法更改！但是XE之后这个问题不在存在，使用它的全新RTTI，可以很容易的获得一个类对象的基本上所有的类的字段以及方法和属性等。代码上面的代码就阅读全文

posted @ 2011-01-04 22:50 不得闲阅读(5821) 评论(9) 推荐(4) 编辑

现有 Delphi 项目迁移到 Tiburon 中的注意事项

摘要：现有 Delphi 项目迁移到 Tiburon 中的注意事项翻译：峪飞鹰2008-08-30随着 Embarcadero 8 月 25 号发布 RAD Studio 2009 （Tiburon) 以来（Tiburon 的RTM 日期可能要延后到 9 - 10 月），随着 Tiburon 全面支持 Unicode，现有的 Delphi / C++Builder 项目要迁移到 Unicode 下应该注意些什么也成为大家最为关心的问题。Tiburon 对 Unicode的支持不仅仅是将原来类型映射为 AnsiString 的 String 类型直接改成 WideString，而是对AnsiStr 阅读全文

posted @ 2011-01-01 23:43 不得闲阅读(1125) 评论(0) 推荐(0) 编辑

Delphi实现的透明阴影以及蒙版效果菜单

摘要：QQ2010的皮肤控件目前实现了一部分，看到有些软件的菜单，都有阴影，透明等效果，于是开始重新实现菜单控件，QQ2009版的菜单控件，是自己从TComponent继承了完全模拟实现的一个菜单，虽然实现了菜单控件的效果，但是设计器没去实现，设计时候不太方便，当时也去为它专门做一个设计器，现在，考虑到写个设计器麻烦，懒得搞，干脆直接从TPopMenu继承来实现一个皮肤效果的菜单，这个实现起来实际上也不难，只要替换掉他的Popup弹出过程就行了。这个实现了之后，就开始实现菜单的阴影效果了！经过一天的研究，终于搞出来了，上图纪念一下！，本菜单可实现蒙版，阴影，以及透明设置等阅读全文

posted @ 2010-12-30 22:24 不得闲阅读(6106) 评论(6) 推荐(0) 编辑

[数据库连接字符串] Access 连接字符串(转)

摘要：ODBC 标准安全策略 Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=; 工作组 Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;SystemDB=C:\mydatabase.mdw; 独占模式 Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Exclusive=1;Uid=admin;Pwd=; 管理员模式如果您需要在程序中使用阅读全文

posted @ 2010-12-29 11:00 不得闲阅读(22848) 评论(0) 推荐(2) 编辑

使用Delphi自带的TDockTabSet组件实现停靠功能（Jeremy North）

摘要：源地址：http://edn.embarcadero.com/article/33446摘要: Instructions on how to use the TDockTabSet component to make advanced docking user interfaces.IntroductionThis article discusses the use of the TDockTabSet component that was originally introduced in Delphi 2005.Creating the applications main formCreat 阅读全文

posted @ 2010-12-15 10:50 不得闲阅读(5243) 评论(0) 推荐(1) 编辑

修改注册表后不重启计算机边生效(转）

摘要：修改注册表后不重启计算机边生效。const int WM_SETTINGCHANGE = 0x001A;const int HWND_BROADCAST = 0xffff;IntPtr result1;public enum SendMessageTimeoutFlags : uint{SMTO_NORMAL = 0x0000,SMTO_BLOCK = 0x0001,SMTO_ABORTIFHUN... 阅读全文

posted @ 2010-12-01 22:14 不得闲阅读(3718) 评论(0) 推荐(0) 编辑

最新医疗系统三测单控件（体温单控件）

摘要：最新医疗系统三测单控件（体温单控件）阅读全文

posted @ 2010-11-30 21:40 不得闲阅读(18717) 评论(16) 推荐(2) 编辑

Delphi实现QQ2010的图片皮肤效果

摘要：到目前为止，皮肤控件都写了好久了呵！基本上代码的修修补补，甚至重构，都搞了好长时间。一直是模仿腾讯！哈哈，我也要山寨一下山寨大王的东西，虽然不能尽善尽美，偶尔意淫一下，也是不错的，嘿嘿！不过说起腾讯山寨，他虽然山寨，倒也山寨出了自己的特色，QQ的界面效果一直都是不错的，一代又一代，总有新的闪光点。所以从今天开始，我也打算重新来实现一套QQ2010效果的皮肤控件！目前刚刚简陋的实现了QQ2010的图片皮肤的效果界面。发个界面出来，纪念一下，同时激励一下自己。测试程序下载（拖动图片到窗体可以换肤）增加一个最新效果，呵呵，写了几个基本控件，初步模仿了2010的QQ效果，再增加一个可绘制背景的E 阅读全文

posted @ 2010-10-29 00:58 不得闲阅读(6866) 评论(17) 推荐(2) 编辑

一个Delphi的源码加密插件

摘要：在前些阵子，群中有一个人问怎么让Delphi打开之后，源码是乱码，而放到自己的Delphi中才能正确看到源码，起初，我会错意了，想到了编译的问题上去，以为是不可能的。后来一想，Delphi的IDE扩展性是很强的，那么这个功能，就完全可实现了。本来早就想写，不过一直没时间！于是乘着这两天有点时间，就把以前的那个想法付诸实现了。现在提供这个插件给大家，先上一个图。比如一个源码经过本插件处理过后，在别人... 阅读全文

posted @ 2010-10-20 17:18 不得闲阅读(4728) 评论(3) 推荐(0) 编辑

Delphi与Python结合

摘要：Python是一个非常强悍的脚本语言，强悍在的的粘合性，可以和各种语言无缝的衔接，强悍在python库的多样化（基本上只有你想不到的开发库，而没有他不存在的开发库），所以实际中开发起来时相当方便的。如果说，要作为Delphi的脚本语言来和Delphi联合工作，应该是一个非常不错的选择。现在就介绍一个非常好的Delphi Python控件，目前支持D4-D2010，对Python的支持，更新到支持P... 阅读全文

posted @ 2010-10-16 13:21 不得闲阅读(14103) 评论(3) 推荐(3) 编辑

Delphi内嵌汇编语言BASM精要(转帖）

摘要：1 BASM概念简要　汇编语句由指令和零至三个表达式构成。表达式由常数(立即数)、寄存器和标识符构成。例如： movsb // 单指令语句 jmp @Here // 一个表达式: 标识符 add eax,1 // 两个表达式: 寄存器和立即数 // 三个表达式: 寄存器, 标识符(内存地址), 立即数 imul edx, [ebx].RandSeed, 08088405H 一段BASM代码以A... 阅读全文

posted @ 2010-10-09 09:56 不得闲阅读(4841) 评论(1) 推荐(1) 编辑

E销助手软件

摘要：皮肤控件基本上完成了，于是在这套皮肤控件之上，开发完成了一套软件，本软件专门针对销售人员的跑业务的时候使用（因为开发这个软件的初衷，本身就是我一个跑业务的朋友需要的。他说让我做成共享类，貌似他那一坨人还蛮多，于是这个东西就诞生了。），目前实现了一些小功能，以后会慢慢的不断的扩充。软件下载地址简介 E销售助手是专门针对销售人员的一款软件，使用本软件，可以使您的销售工作变得更加轻松。使用该软件，能帮... 阅读全文

posted @ 2010-08-15 19:07 不得闲阅读(2991) 评论(12) 推荐(0) 编辑

关于飞信的协议以及验证码

摘要：以前写的飞信控件，近日来登录不进去了！总是连接放弃！飞信官方有动作了！改了点协议！我那写的控件采用的是飞信2008的3.5.2540这个版本，SIPC协议使用的是2.0。然后用飞信2008来登录飞信，还是能够登录的！这说明这个老版的协议还是能用的，于是跟踪了一下，登录的数据，发现原来是SSI登录的地址有点小变动，实际上这个变动，老早就变了，只是以前一直没注意，而以前用这个老地址还是能够登录的！现在则取消了那个老地址，以前获得SSI地址是取得ssi-app-sign-in这个节点的值！现在则变成了取ssi-app-sign-in-v2节点的值！其他的协议可以不变。所以说，各位用本人控件的，可以. 阅读全文

posted @ 2010-08-08 00:40 不得闲阅读(3744) 评论(6) 推荐(2) 编辑

再发一个日程控件

摘要：今日，在群中，有一个朋友要我那套皮肤控件中的一个日期相关的控件看看！那个控件，实际上，是我以前写的一个日程相关的控件，那个控件，还没完整的做完！实现了一大部分，在日程管理上，还有一些工作未做完！本来那个代码应该删除了的，今天在电脑的某个角落里又找到了一个备份！既然如此，那么就干脆共享出来算了吧！个人觉得，本日程，一个重要的亮点，就是Hint提示部分。先上个图很多图形和万年历方面，我就是直接拿着饭桶... 阅读全文

posted @ 2010-07-09 16:33 不得闲阅读(7378) 评论(23) 推荐(1) 编辑

一个Delphi的资源编辑器(支持SDK菜单资源编辑）

摘要：在上个博客中，介绍了如何在Delphi中使用SDK菜单资源来创建Delphi版本的SDK程序。于是晚上下班回来做了这么个东西，目前的功能较弱，只支持我们常用的Delphi资源的编辑，以及SDK复杂资源编辑中的菜单编辑，SDK中的对话框资源编辑尚未完成。现在发出来给正在和本人同步学习Delphi SDK开发的学习者使用。其实这个资源编辑器，VC中有一个自带的，那个相当的强大！但是要想支持到给Delp... 阅读全文

posted @ 2010-06-22 01:59 不得闲阅读(5144) 评论(2) 推荐(0) 编辑

Windows SDK编程(Delphi版) 之消息框和菜单资源

摘要：博客园这两天又见到了语言的争论哈！这次是C#。我一般都不参与这种争论的，就算我蛋疼的不得了，我也不参与。因为这实在没啥意义可言，就像很多很多时候，在语言之争上，一次又一次的将Delphi推上风口浪尖，这个说Delphi不行，那个说Delphi气数已近。在我的博客的回复中也有不少这样的言论的。然而实际上呢，到目前为止Delphi的使用者还是相当的多，虽然不如以前那么如日中天，但是至少不会死掉。而我们... 阅读全文

posted @ 2010-06-21 17:33 不得闲阅读(3515) 评论(11) 推荐(2) 编辑

随笔分类 - Delphi