java hashcode的Delphi实现
摘要:程序使用java做后台服务,数据处理时使用了java的hashcode,Delphi程序也需要生成这个hashcode,为了一致,所以要在Delphi下实现和Java一样的算法。下面即Delphi版的hashCode:function hashCode(val: string): Integer;v...
阅读全文
posted @
2014-06-12 11:05
garfieldtom
阅读(641)
推荐(1) 编辑
log4delphi使用(转)
摘要:转自:http://blog.csdn.net/brightgems/article/details/814042Log4d是apache下的一个delphi开源子项目,它的设计思想来源于Log4j,但并不是Log4j的子项目,主要目标是开发环境与生产环境下的日志输出。一、下载https://sou...
阅读全文
posted @
2014-06-07 15:48
garfieldtom
阅读(848)
推荐(0) 编辑
cxGrid显示行号
摘要:定义一个类:TMyCxGrid = class(TObject) class procedure DrawIndicatorCell( Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); end;class procedure TMyCxGrid.DrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: Tcx...
阅读全文
posted @
2013-08-05 16:34
garfieldtom
阅读(1747)
推荐(0) 编辑
DataSnap使用UniDac处理自增长字段
摘要:原来使用ado来访问数据库,用在DataSnap中也很方便。后来便一直使用UniDac,可发现UniDac如果用在DataSnap中要比ado麻烦很多,尤其对自增长字段、缺省值的处理上,感觉对DataSnap支持不好(普通C/S应用还是非常好的)。在Unidac官网上看到一个关于处理DataSnap中的AutoInc字段问题,记录在下面,我没有验证。I use DataSnap delphi 2010.UniQuery Component DMLRefresh Can fetch autoinc value,but I cannot use it with datasnap.I use Fol
阅读全文
posted @
2013-07-18 15:02
garfieldtom
阅读(1359)
推荐(0) 编辑
TScrollBox响应鼠标滚轮问题
摘要:Delphi的TScrollBox本身并不响应鼠标滚轮事件(不知道为什么),但可以在ScrollBox的鼠标滚动事件中进行控制:procedure TfrmTaskNoteEdit.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);begin if WheelDelta < 0 then SendMessage(scrollBox1.Handle,WM_VSCROLL, SB_L...
阅读全文
posted @
2013-07-02 12:24
garfieldtom
阅读(3021)
推荐(0) 编辑
DataSnap对象传递
摘要:比较简单的方法:1.引用DBXJSON, DBXJSONReflect假设有一个类:type TKid = class FirstName: String; LastName: String; Age: Integer; BornDate: TDateTime; class function CreateAndInitialize: TKid; public function SayHello(sName:string):String; end;{ TKid }class function TKid.CreateAndInitialize: TKid;...
阅读全文
posted @
2013-06-30 14:17
garfieldtom
阅读(1961)
推荐(1) 编辑
python调用Delphi写的Dll
摘要:Delphi单元如下(输出hello.dll):unit hellofun;interfacefunction getint():integer;stdcall;function sayhello(var sname:PAnsiChar):PAnsiChar;stdcall;implementationfunction getint():integer;stdcall;begin result:=888;end;function sayhello(var sname:PAnsiChar):PAnsiChar;stdcall;begin sname:='ok!'; result:
阅读全文
posted @
2013-03-15 19:03
garfieldtom
阅读(2393)
推荐(0) 编辑
codetyphon, Lazarus+FreePascal+Tools+Free Components packages+Free Libraries
摘要:一个整合资源的跨平台Pascal语言开发工具:codetyphonhttp://www.pilotlogic.com/sitejoom/index.php/codetyphon上面是这样介绍的:AboutCodeTyphonis theFREE"Pascal Visual Programming Studio",forCross-Platform Native Development,with Multi-OS, Multi-CPU and Cross-Build abilities.Has Lazarus+FreePascal+Tools+Free Components
阅读全文
posted @
2013-02-28 18:56
garfieldtom
阅读(2027)
推荐(0) 编辑
DebugHook的巧用
摘要:编写信息管理系统类的应用程序,一般都有登录窗口,以便控制用户的登录和权限.但在调试时每次都要输入密码比较麻烦,尤其是对密码的长度和复杂程度有控制,暂时屏蔽也比较麻烦,其实可以使用Delphi的一个变量来简单控制,这个变量就是DebugHook.该变量在调试状态下值为1,运行模式为0,例如,我们可以使用如下的代码来简单控制:if DebugHook=0 then CheckLoginelse LoginSuccess这样,我们在调试程序时可以不再检查登录,而发布应用程序时客户则必须进行登录验证.当然,我们也可以使用这个变量来做一些只在调试模式下才做的工作,比如输出日志等.
阅读全文
posted @
2013-02-19 07:17
garfieldtom
阅读(688)
推荐(0) 编辑
Python For Delphi---更好地协同(续)
摘要:Delphi通过PythonForDelphi变量来和Python交换数据可以,有没有别的办法了呢?有,可以像COM一样来调用Python模块的变量和函数,这看起来好像能更酷一些 :-)感谢samson,是他的一篇文章使我学习到了这个方法,并且很热心地给予了指教!废话少说,先上Python代码(hello.py,放到程序目录下):strPython='Hello,This is a python string !'dicPython={'StringInfo':'Hello,This is a python string !'}lstPython
阅读全文
posted @
2013-01-17 15:30
garfieldtom
阅读(6568)
推荐(0) 编辑
Python For Delphi---更好地协同
摘要:先上相关资源的下载吧:python4delphi:主页:http://code.google.com/p/python4delphi/下载:svn checkouthttp://python4delphi.googlecode.com/svn/trunk/ python4delphi-read-only现在已支持到XE2.必看(作者):http://www.atug.com/andypatterns/pythonDelphiTalk.htm下面要示范的就是在XE2下完成.其实源码检出后,里面有30多个示例,几乎涵盖了Python4Delphi的所有方面.好吧,我们下面做个简单的加法计算器,主要
阅读全文
posted @
2013-01-14 18:49
garfieldtom
阅读(6838)
推荐(0) 编辑
官方的正则表达式组件 RegularExpressions : 基本应用(转自万一博客)
摘要:之前使用TPerlReg,升级到XE2后可以使用官方的正则表达式了,参考万一老师博客修改,特转载过来一篇基本应用,感谢万一老师!原文:http://www.cnblogs.com/del/archive/2011/03/28/1998100.html官方的正则表达式组件 RegularExpressions (1) : 基本应用刚刚试了一下 DelphiXE 新增的正则表达式组件, 它基于 C 语言编写的 PCRE 库实现, 感觉设计的非常好。其主要的 TRegEx 被设计为一个结构(而不是类), 可能是基于效率的考虑;不过它主要调用了 TPerlRegEx 类的功能。TRegEx 的五个主要
阅读全文
posted @
2013-01-13 06:07
garfieldtom
阅读(730)
推荐(0) 编辑
Thread: DataSnap - detect disgraceful disconnect
摘要:https://forums.embarcadero.com/thread.jspa?messageID=389618Thread: DataSnap - detect disgraceful disconnectReply to this Thread Search Forum Watch this Thread Back to Thread List Replies: 6 - Last Post: Sep 8, 2011 5:14 AM Last Post By: Mathew DeLong Mathias Burbach Posts: 38 Registered: 12/8/99 D..
阅读全文
posted @
2013-01-10 17:25
garfieldtom
阅读(3065)
推荐(0) 编辑
Delphi版本号对照
摘要:Delphi版本号对照VER10:Turbo Pascal 1VER20: Turbo Pascal 2VER30: Turbo Pascal 3VER40: Turbo Pascal 4VER50: Turbo Pascal 5VER60: Turbo Pascal 6VER70: Turbo P...
阅读全文
posted @
2013-01-08 09:30
garfieldtom
阅读(5459)
推荐(1) 编辑
EurekaLog 6 安装在XE3中
摘要:EurekaLog7支持XE3,现在还没有找到Crack版.研究了一下,先安装上EurekaLog 6,我安装的是For Delphi 2010,然后在XE3中打开安装目录中的ExceptionExpert14.dpk,编译,报告错误:DecimalSeparator没有定义.这是XE3中的一个变化,在文件ECore.pas中,所以简单地找到两处使用这个变量的地方:function DateTimeToStrFixed(const ADateTime: TDateTime): AnsiString;begin Result := QuickStringReplace(FloatToStr(A.
阅读全文
posted @
2013-01-07 18:46
garfieldtom
阅读(897)
推荐(0) 编辑
TStrings的一些技巧(转)
摘要:TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。常规的用法大家都知道,现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来:1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex先看第一个:CommaText。怎么用呢?用代码说话:const constr :String = 'aaa,bbb,ccc,ddd';var strs :TStrings; i :Integer;begin strs := TStringList.Create
阅读全文
posted @
2012-12-17 14:23
garfieldtom
阅读(934)
推荐(0) 编辑
DataSnap侦听端口动态设置问题
摘要:使用DataSnap做服务器,端口设置为可配置,然后在程序中动态指定:procedureTscUPower.DataModuleCreate(Sender:TObject);begindstUPower.Port:=DSPort;end;默认端口为211,测试改变端口,没有报告错误,但客户端连接不上。后调整为:procedureTscUPower.DataModuleCreate(Sender:TObject);begindstUPower.Stop;dstUPower.Port:=DSPort;dstUPower.Start;end;OK,客户端可以正常连接了。端口动态配置,为了避免可能存在
阅读全文
posted @
2012-11-07 19:09
garfieldtom
阅读(890)
推荐(1) 编辑
Delphi调用Java WebService
摘要:刚用Java做了个WebService,并且在Java中调用成功, WebService在Delphi中同样可以调用。在Delphi中新建一个工程,然后点击Component->Import WSDL...WSDL的URL以及该WebService的内容请参考:http://www.cnblogs.com/GarfieldTom/archive/2012/09/14/2684361.html使用缺省设置,生成引用文件://************************************************************************////Thetypes
阅读全文
posted @
2012-09-14 10:09
garfieldtom
阅读(4299)
推荐(0) 编辑
Delphi用SQLDMO实现带进度条的SQL Server数据库备份
摘要:1.首先,要导入对象库定义: 打开Delphi,Project菜单->Import Type Library...,在列表框中找到"Microsoft SQLDMO Object Library”,然后生成一个Unit单元文件,默认为SQLDMO_TLB,然后在备份窗体中加入引用:SQLDMO_TLB,还有ComObj。 2.在窗体中加入一个进度条,将总进度设置为100(或在代码中设置)。 3.定义接口: typeTBackupSink=class(TInterfacedobject,backupsink)//实现接口functionPercentComplete(constM
阅读全文
posted @
2012-09-06 09:08
garfieldtom
阅读(2199)
推荐(0) 编辑
Delphi DES加密(转)
摘要:之前自己修改过一个,又找到一个,觉得这个要比我修改的好,之前修改的好像有点问题 :-(unit NewDES;interfaceusesSysUtils,Classes;typeTByte32 = array[1..32] of Byte;TSData = array[0..63] of Byte;TBlock = array[0..7] of Byte;function EnCryptStr(aStr: AnsiString; aKey: AnsiString ): AnsiString;function DeCryptStr(aStr: AnsiString; aKey: AnsiStri
阅读全文
posted @
2012-08-30 18:42
garfieldtom
阅读(5674)
推荐(0) 编辑