Delphi - 随笔分类(第2页) - garfieldtom

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 阅读(643) 评论(1) 推荐(1) 编辑

log4delphi使用(转)

摘要：转自：http://blog.csdn.net/brightgems/article/details/814042Log4d是apache下的一个delphi开源子项目，它的设计思想来源于Log4j，但并不是Log4j的子项目，主要目标是开发环境与生产环境下的日志输出。一、下载https://sou... 阅读全文

posted @ 2014-06-07 15:48 garfieldtom 阅读(868) 评论(0) 推荐(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 阅读(1751) 评论(0) 推荐(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 阅读(1365) 评论(0) 推荐(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 阅读(3066) 评论(2) 推荐(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 阅读(1971) 评论(0) 推荐(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 阅读(2411) 评论(2) 推荐(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 阅读(2043) 评论(1) 推荐(0) 编辑

DebugHook的巧用

摘要：编写信息管理系统类的应用程序,一般都有登录窗口,以便控制用户的登录和权限.但在调试时每次都要输入密码比较麻烦,尤其是对密码的长度和复杂程度有控制,暂时屏蔽也比较麻烦,其实可以使用Delphi的一个变量来简单控制,这个变量就是DebugHook.该变量在调试状态下值为1,运行模式为0,例如,我们可以使用如下的代码来简单控制:if DebugHook=0 then CheckLoginelse LoginSuccess这样,我们在调试程序时可以不再检查登录,而发布应用程序时客户则必须进行登录验证.当然,我们也可以使用这个变量来做一些只在调试模式下才做的工作,比如输出日志等. 阅读全文

posted @ 2013-02-19 07:17 garfieldtom 阅读(694) 评论(3) 推荐(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 阅读(6684) 评论(0) 推荐(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 阅读(6885) 评论(0) 推荐(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 阅读(732) 评论(0) 推荐(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 阅读(3107) 评论(0) 推荐(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 阅读(5468) 评论(0) 推荐(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 阅读(901) 评论(0) 推荐(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 阅读(935) 评论(0) 推荐(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 阅读(894) 评论(0) 推荐(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 阅读(4312) 评论(2) 推荐(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 阅读(2212) 评论(0) 推荐(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 阅读(5695) 评论(0) 推荐(0) 编辑

随笔分类 - Delphi