随笔 - 262&
文章 - 1&评论 - 106&trackbacks - 0
随笔分类 - Delphi
Delphi Programe
摘要: 直接上代码吧,这个示例在Excel中输出一个M2： 关键是： 至于属性，查资料或通过宏来看吧。
garfieldtom 阅读(120) |
摘要: 原文：/hnxxcxg/archive//2940711.html 动态设置和访问cxgrid列的Properties 设置： cxGrid1DBTableView1Column.PropertiesClass = TcxTextEdi
garfieldtom 阅读(10) |
摘要: Delphi调用REST很简单，首先在界面上放上：RESTClient1: TRESTC RESTRequest1: TRESTR RESTResponse1: TRESTR然后简单调用即可：RESTClient1.BaseURL:=edtURL...
garfieldtom 阅读(196) |
摘要: 为了简化MQ调用，写了个StompClient的包装类，可以供需要的参考：unit FStompCinterfaceuses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, Stomp...
garfieldtom 阅读(1046) |
摘要: 移动端的消息推送大家都体验过，智能手机上一大堆广告等各种消息会不时从消息栏中弹出来骚扰你。PC程序中我们有时也会用到消息推送，比如通知之类。通常我们使用的方法可能更多地使用Socket之类来处理，有时效率更低的方法是做数据库的轮询。如果终端多、消息多，数据库的轮询方式是肯定不能被接受的。现在比较流行...
garfieldtom 阅读(3028) |
摘要: Indy Changed from Indy10/questions//delphi-xe4-indy-compatibility-issue-between-tbytes-and-tidbyteshttp://stackoverflo...
garfieldtom 阅读(399) |
摘要: from:/cn/article/34324Language and Compiler Features Since Delphi 7InliningRoutines can now be marked with theinlinedirectiv...
garfieldtom 阅读(138) |
摘要: Delphi新版本的单元文件格式变化了，如windows变成了winapi.windows，如果想在单元引用中使用简称，则需要在工程选项中配置：这样就可以使用全名或简写来引用单元了。
garfieldtom 阅读(683) |
摘要: cxGrid导出到Excel，对于Currency类型总是加上了货币符号，可以修改导出文件设置来去掉：在cxXLSExport.pas文件中，修改：procedure TcxXLSExportProvider.SetCellDataCurrency(const ACol, ARow: Integer...
garfieldtom 阅读(379) |
摘要: 一个简单的工作日计算：function getWorkDay(dtBegin:TDateTIncDays:Integer):TDateTconst days: array[1..7] of string=('7','1','2','3','4', '5','6');var wee...
garfieldtom 阅读(74) |
摘要: 程序使用java做后台服务，数据处理时使用了java的hashcode，Delphi程序也需要生成这个hashcode,为了一致，所以要在Delphi下实现和Java一样的算法。下面即Delphi版的hashCode：function hashCode(val: string): Iv...
garfieldtom 阅读(230) |
摘要: 转自：http://blog.csdn.net/brightgems/article/details/814042Log4d是apache下的一个delphi开源子项目，它的设计思想来源于Log4j，但并不是Log4j的子项目，主要目标是开发环境与生产环境下的日志输出。一、下载https://sou...
garfieldtom 阅读(385) |
摘要: 定义一个类：TMyCxGrid = class(TObject) class procedure DrawIndicatorCell( Sender: TcxGridTableV ACanvas: TcxC AViewInfo: TcxCustomGridIndicatorItemViewI var ADone: Boolean);class procedure TMyCxGrid.DrawIndicatorCell(Sender: TcxGridTableV ACanvas: TcxC AViewInfo: Tcx...
garfieldtom 阅读(1131) |
摘要: 原来使用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
garfieldtom 阅读(824) |
摘要: Delphi的TScrollBox本身并不响应鼠标滚轮事件(不知道为什么)，但可以在ScrollBox的鼠标滚动事件中进行控制：procedure TfrmTaskNoteEdit.ScrollBox1MouseWheel(Sender: TO Shift: TShiftS WheelDelta: I MousePos: TP var Handled: Boolean);begin if WheelDelta & 0 then SendMessage(scrollBox1.Handle,WM_VSCROLL, SB_L...
garfieldtom 阅读(1200) |
摘要: 比较简单的方法：1.引用DBXJSON, DBXJSONReflect假设有一个类：type TKid = class FirstName: S LastName: S Age: I BornDate: TDateT class function CreateAndInitialize: TK public function SayHello(sName:string):S{ TKid }class function TKid.CreateAndInitialize: TK...
garfieldtom 阅读(1311) |
摘要: Delphi单元如下（输出hello.dll）：interfacefunction getint():function sayhello(var sname:PAnsiChar):PAnsiCimplementationfunction getint():begin result:=888;function sayhello(var sname:PAnsiChar):PAnsiCbegin sname:='ok!'; result:
garfieldtom 阅读(1111) |
摘要: 一个整合资源的跨平台Pascal语言开发工具：codetyphon/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
garfieldtom 阅读(1087) |
摘要: 编写信息管理系统类的应用程序,一般都有登录窗口,以便控制用户的登录和权限.但在调试时每次都要输入密码比较麻烦,尤其是对密码的长度和复杂程度有控制,暂时屏蔽也比较麻烦,其实可以使用Delphi的一个变量来简单控制,这个变量就是DebugHook.该变量在调试状态下值为1,运行模式为0,例如,我们可以使用如下的代码来简单控制:if DebugHook=0 then CheckLoginelse LoginSuccess这样,我们在调试程序时可以不再检查登录,而发布应用程序时客户则必须进行登录验证.当然,我们也可以使用这个变量来做一些只在调试模式下才做的工作,比如输出日志等.
garfieldtom 阅读(407) |
摘要: 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
garfieldtom 阅读(1092) |
摘要: 先上相关资源的下载吧:python4delphi:主页:/p/python4delphi/下载:svn checkout/svn/trunk/ python4delphi-read-only现在已支持到XE2.必看(作者):/andypatterns/pythonDelphiTalk.htm下面要示范的就是在XE2下完成.其实源码检出后,里面有30多个示例,几乎涵盖了Python4Delphi的所有方面.好吧,我们下面做个简单的加法计算器,主要
garfieldtom 阅读(4092) |
摘要: 之前使用TPerlReg,升级到XE2后可以使用官方的正则表达式了,参考万一老师博客修改,特转载过来一篇基本应用,感谢万一老师!原文:/del/archive//1998100.html官方的正则表达式组件 RegularExpressions (1) : 基本应用刚刚试了一下 DelphiXE 新增的正则表达式组件, 它基于 C 语言编写的 PCRE 库实现, 感觉设计的非常好。其主要的 TRegEx 被设计为一个结构(而不是类), 可能是基于效率的考虑；不过它主要调用了 TPerlRegEx 类的功能。TRegEx 的五个主要
garfieldtom 阅读(328) |
摘要: /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,
AM Last Post By: Mathew DeLong Mathias Burbach Posts: 38 Registered: 12/8/99 D..
garfieldtom 阅读(1780) |
摘要: Delphi版本号对照VER10:Turbo Pascal 1VER20: Turbo Pascal 2VER30: Turbo Pascal 3VER40: Turbo Pascal 4VER50: Turbo Pascal 5VER60: Turbo Pascal 6VER70: Turbo P...
garfieldtom 阅读(3685) |
摘要: EurekaLog7支持XE3,现在还没有找到Crack版.研究了一下,先安装上EurekaLog 6,我安装的是For Delphi 2010,然后在XE3中打开安装目录中的ExceptionExpert14.dpk,编译,报告错误:DecimalSeparator没有定义.这是XE3中的一个变化,在文件ECore.pas中,所以简单地找到两处使用这个变量的地方:function DateTimeToStrFixed(const ADateTime: TDateTime): AnsiSbegin Result := QuickStringReplace(FloatToStr(A.
garfieldtom 阅读(400) |
摘要: TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。常规的用法大家都知道，现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来：1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex先看第一个：CommaText。怎么用呢？用代码说话：const constr :String = 'aaa,bbb,ccc,ddd';var strs :TS i :Ibegin strs := TStringList.Create
garfieldtom 阅读(475) |
摘要: 使用DataSnap做服务器，端口设置为可配置，然后在程序中动态指定：procedureTscUPower.DataModuleCreate(Sender:TObject);begindstUPower.Port:=DSP默认端口为211,测试改变端口，没有报告错误，但客户端连接不上。后调整为：procedureTscUPower.DataModuleCreate(Sender:TObject);begindstUPower.SdstUPower.Port:=DSPdstUPower.SOK，客户端可以正常连接了。端口动态配置，为了避免可能存在
garfieldtom 阅读(522) |
摘要: 刚用Java做了个WebService，并且在Java中调用成功， WebService在Delphi中同样可以调用。在Delphi中新建一个工程，然后点击Component-&Import WSDL...WSDL的URL以及该WebService的内容请参考：/GarfieldTom/archive//2684361.html使用缺省设置，生成引用文件：//************************************************************************////Thetypes
garfieldtom 阅读(2261) |
摘要: 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
garfieldtom 阅读(1391) |
摘要: 之前自己修改过一个,又找到一个,觉得这个要比我修改的好,之前修改的好像有点问题 :-(unit NewDES;interfaceusesSysUtils,CtypeTByte32 = array[1..32] of BTSData = array[0..63] of BTBlock = array[0..7] of Bfunction EnCryptStr(aStr: AnsiS aKey: AnsiString ): AnsiSfunction DeCryptStr(aStr: AnsiS aKey: AnsiStri
garfieldtom 阅读(2512) |
摘要: (**************************************************************)(*AdvancedEncryptionStandard(AES)*)(*InterfaceUnitv1.3*)(**)(*Copyright(c)2002JorlenYoung*)(**)(*说明：*)(*基于ElASE.pas单元封装*)(**)(*这是一个AES加密算法的标准接口。*)(*调用示例：*)(*ifnotEncryptStream(src,key,TStream(Dest),keybit)then*)(*showmessage('encryp
garfieldtom 阅读(5360) |
摘要: 转自：/sandman/archive//1897063.html自己的开发机器称为主机，运行程序的机器称为目标机；一、在主机编译执行程序1、project-&options-&linker中的EXE and DLL options选项组中的include remote debug symbols打上勾这样就可以生成rsm为扩展名的文件，该文件名称于你的项目同名。2、project-&options-&Debugging中的勾可以全部选上，这是在你的程序支持debug(正式发布产品时要去掉这些选项，Delp
garfieldtom 阅读(2062) |
摘要: 直接上代码吧：1functionGetSQLByTableName(sTableName:string):S2var3aDataSet:TDataS4s:S5aField:TF6aFieldList,aFieldDescriptionList:TList&string&;7functionGetFieldDescription(sTable,sField:string):S8var9sSQL:S10begin11sSQL:='select sys.extended_properties.value from s
garfieldtom 阅读(1115) |
摘要: cxGrid失去焦点后如何继续保持选中单元的高亮状态，找了好久才找到一个答案：SolutionThere is no need to adjust those options. The solution is very simple: You should define a new style (an Item of the Style Controller) which defines the necessary colors for highlighting and use it both for the View's Styles.Inactive and Styles.Sele
garfieldtom 阅读(1081) |
摘要: CodeSite日期记录对于调试程序而言非常方便，我们可以同时开启动态日志监视和文件日志：var Dest: TCodeSiteD begin Dest := TCodeSiteDestination.Create( Self );//开启文件日志Dest.LogFile.Active := T Dest.LogFile.FileName := 'MyFirstLog.csl'; Dest.LogFile.FilePath := '$(MyDocs)'; //开启动态日志监视Dest.Viewer.Active := T /
garfieldtom 阅读(636) |
摘要: 如果在一个窗体中使用dxDBTreeView没有问题，窗体关闭时一切正常。但如果这个设置这个窗体的Parent为一个PageControl（我使用Raize的），那么在这个Page关闭的时候dxDBTreeView连接的数据会全部自动删除！被这个问题困扰了好久，只能将含dxDBTreeView的窗体直接创建显示，后来总觉得跟程序风格不一致，于是想修改dxDBTreeView的代码，又觉得也不方便，还要费时费力地去调试跟踪。后来找了个折中的办法，在dxDBTreeView的OnDeletion事件中：.......tvClassDeletion(Sender: TO Node: TT
garfieldtom 阅读(573) |
摘要: 这几天做一个项目，调用C的DLL，C里面传递字符串是char *,而Delphi中则是PChar,(从D2009开始支持Unicode后则对应的是PAnsiChar).使用过程中发现个问题需要注意，直接上代码吧：procedure TForm6.Button1Click(Sender: TObject);var s:AnsiS p:PAnsiCbegin s:=LabeledEdit1.T //LabeledEdit1.Text内容是123456 p:=PAnsiChar(s); ShowMessage(PAnsiChar(';)); /
garfieldtom 阅读(287) |
摘要: 在Delphi中,Move是这样来定义的:procedure Move(const S var D Count: Integer);这几天程序用到一个缓冲数据的截取,定义了一个PAnsiChar,然后来截取其中的一部分数据,发现总有问题.vard,s:PansiCbegins:=';;d:=ansiStrAlloc(3);Move(s,d,3);ShowMessage(d);StrDispose(d);后来在网上搜索了一下,发现问题出在move的操作上,正确的做法应该是:vard,s:PansiCbegins:='1234
garfieldtom 阅读(359) |
摘要: Delphi对流的操作很方便,但平时用的不多,这几天看一个传输,需要传输流信息,就简单测试了一下.(D2010)以内存流为例:var　　ms:TMemoryS　　ac:AnsiC as:AnsiS　　s:Sbegin　　ms:=TMemoryStream.C　　 ms.Write($01,1);//写入一个16进制整数　　ac:='a';　　ms.Write(ac,1); //写入一个ansichar　　as:='abc';　　for ac inas do //写入一个AnsiS　　 ms.Write(ac,1); 　　s:=
garfieldtom 阅读(252) |
摘要: 我们可以使用navigate方法来使TWebbrowser显示指定的内容，也可以使用下面的方法来设置TWebbrowser的显示内容：var Doc: IHTMLDocument2;begin Doc := WebBrowser.Document as IHTMLDocument2; if Assigned(Doc) and Assigned(Doc.body) then Doc.body.inn...
garfieldtom 阅读(206) |
摘要: 估计很多人和我一样，在使用Indy的时候都会受不了众多的Bug，不得不边使用边修改。近来一直使用Indy来收发邮件，从D7到D2007再到D2010，后来直接从SVN中检出一个最新版本来，让人惊喜的是新版本中修复了一些Bug，让人沮丧的是新版本中又重新引入了一些新的Bug，唉，锻炼人啊。前几天简单看了一下Python，测试了一下发现Python对邮件的处理简直简练至极！并且接收和解码上也胜Indy...
garfieldtom 阅读(617) |
摘要: 以前做过一个自动收集网页内容的工具，使用的还可以，用Indy的IdHttp组件来获取网页内容然后分析处理。现在很多网站都采用了Ajax技术，网页内容异步刷新，所以使用IdHttp组件就无法获取完整的网页内容了。我在/GarfieldTom/archive//1620184.html中提到了如果网页内容获取完毕后，可以获取完整的网页内容...
garfieldtom 阅读(1640) |
摘要: 实施别的系统时遇到一个问题,就是在SQL Server中中使用新建服务器连接方式连接到数据库Oracle时查询和写入某个表时出错,后来想到用一个外挂的程序来操作,可需要触发条件,轮询的话涉及到及时性和网络负荷问题.到网上一搜索,发现可以在SQLServer的存储过程或触发器中调用COM组件,这就比较好解决了.首先建立一个COM服务器,只在里面写一个测试方法:Hello:[代码]可以在IDE中注册这...
garfieldtom 阅读(304) |
摘要: 如果有报表文件兼容性问题，可以参考下面的方法来将某版本的报表封装到DLL中来使用。首先建立一个DLL工厂，然后建立一个主窗体，在窗体中放入报表相关的控件。为了传入变量，我们简单定义一个变量名称/值对应用的对象：[代码]然后定义一个输出函数：[代码]然后在需要的时候调用该DLL即可。上面代码使用了ADO,为了更通用，可以使用ClientDataSet来处理数据，在窗体中放在TDataSetProvi...
garfieldtom 阅读(1107) |
摘要: Indy的bug真让人受不了，遇到一个没有经过编码的中文邮件，比如：Return-Path: &sdhuahan@public.&Delivered-To: sdhuahan@public.Received: from unknown (helo xxh)(unknown@221.0.203.213)by ws02 with SMTP; Thu, 08 ...
garfieldtom 阅读(793) |
摘要: 给纤检所做一个项目,对测试报告结果需要调整测试项目的顺序,之前做的是鼠标拖放来重新排列结果集的顺序,现在客户想通过一个向上和向下的按钮来调整结果集中记录的顺序,通过测试,可以通过下面的方法来简单操作(下面仅简单说明下上移动记录的方法,向下移动方法同此,略):[代码]
garfieldtom 阅读(146) |
摘要: 在Delphi 2010中,DataSnap已完全可以不使用COM了.想起在windows上配置COM,就麻烦的很,如果在本机还好说,在远程要涉及到权限等诸多问题(用SocketConnection要方便一些).如果早期写的程序中有许多COM对象,我们可以通过DataSnap的封装,使用适配器模式简单地封装一下,那么在客户端就可以使用DataSnap的方式来调用远程的COM对象了,当然需要Data...
garfieldtom 阅读(485) |
摘要: 在Delphi中如果需要对字符串进行压缩与解压缩是非常简单的事,只需要uses一下zlib单元即可.ZCompressStr:压缩字符串,传人字符串,返回TBZDecompressStr:解压字符串,传人TBytes,返回字符串;定义变量:var str:S tb:TB
st:TBytesS压缩://返回压缩结果
tb:=ZCompressStr(s...
garfieldtom 阅读(2281) |
摘要: Delphi自带的DBNavigator包括许多第三方控件的DBNavigator(像Raize,DevExpress)都没有Caption属性，有时用户说我不知道这个按钮是什么意思，能不能加上个文字说明啊？当然，我们可以设置每个Button的Hint来给客户提示，但这样客户还是无法直接看到。我们可以创建一个新的控件来实现给DBNavigator增加Caption属性，但到了D2007之后，增加了...
garfieldtom 阅读(442) |
摘要: 最近使用Indy做的系统接收邮件,以前一直没有问题,突然出现一个访问错误,追踪到源码,发现在IdMessage.pas中有这么一段代码:第860行处 ......// S.G. 27/1/2003: Only issue X-Priority header if priority && mpNormal (for stoopid spam filters) if Priority &l...
garfieldtom 阅读(222) |
摘要: 承上一篇.我们来做个简单的数据库连接测试.在上个学习的基础上,我们打开Server的ServerMethodUnit1模块,在设计界面放上三个控件:SQLConnection1: TSQLCSQLDataSet1: TSQLDataSDataSetProvider1: TDataSetPc注意:1、如果使用sa,如果没有密码的话会连接失败,需要建立一个带密...
garfieldtom 阅读(1619) |
摘要: DataSnap到了Delphi2010有了很大的变化,已经可以完全抛弃DCOM之类的东西了,在以前版本中建立一个DataSnap,需要使用DCOMConnection或者SockConnection来连接到服务器,而在Delphi2010中提供了一个新的连接组件:TDSProviderConnection,可以更方便地来连接服务器.先来学习一个简单的DataSnap:新建一个工程,在Delphi...
garfieldtom 阅读(1624) |
摘要: 编写数据库应用系统有时会用到根据汉字拼音来快速检索数据,网络上有汉字生成拼音的方法:代码 Code highlighting produced by Actipro CodeHighlighter (freeware)/--&functionGetPYIndexChar(hzchar:Ansistring):begincaseW...
garfieldtom 阅读(537) |
摘要: 使用D2010,接收邮件时有时会发生range check error的错误,而foxmail则可以正常接收,估计是indy本身的bug,追踪了一下,发现错误出现在IdCoder3to4.pas中的第277行:Result[LOutPos] := (FDecodeTable[LInBytes[0]] shl 2) or ((FDecodeTable[LInBytes[1]] shr 4) and ...
garfieldtom 阅读(333) |
摘要: delphicode的博客/delphicode/archive//1620527.html#1721139中写道:Delphi IIF [代码]注:Delphi
支持泛型，其它版本不支持。真的很方便!不过好像不能直接这样定义函数,只能定义在class/record/interface中,我写了个测试,可以这样来使...
garfieldtom 阅读(299) |
摘要: 使用EurekaLog将错误以邮件的形式发送时，发现使用SMTP Client方式发送邮件时不能成功，到网上搜索了一下，有说是邮件8bit mime编码格式的问题(我上个博客中提到过)，也有说是多发送了个REST(RSET)指令问题，我测试了一下，发现可能是旧版本中是这种问题，我现在使用的是EurekaLog 6.0.21 R2 Enterprise（D2010）,仔细研究发送失败错误，发现是发送...
garfieldtom 阅读(437) |
摘要: EurekaLog是非常强大的调试及错误报告工具，Catches of every EXCEPTION!!!Catches of every EXCEPTION!!!还有更多......它可以将错误以邮件等形式发送给开发者，并且报告非常详细：使用也非常简单，只需要简单地激活/关闭就可以了，安装后有个详细的flash介绍，非常详细，不过要注意，邮件发送好像只支持8bit mime格式，有点受限，可能...
garfieldtom 阅读(431) |
摘要: 升级到了ehlib5,发现dbgrideh有个小问题：使用一个dataset结果集，比如adodataset，然后用dbgrideh来显示这个结果。如果adodataset的filtered为false,那么可以将dbgrideh的垂直滚动条拉到底部(ehlib5甚至还可以平滑滚动，不错);如果adodataset的filtered为Ture,问题来了，那么不可以将dbgrideh的垂直滚动条拉到...
garfieldtom 阅读(614) |
摘要: 在程序中使用TWebbrowser控件或者Indy中控件连接采用Ajax技术的网页，获得的网页源码中并不会有客户端更新的内容。在IE浏览器中的查看源文件同理也是看不到Ajax更新的内容。通过插件可以看到Ajax更新后的内容。问题是在程序中怎样来获得完整的网页内容？如果有Ajax更新，Webbrowser的DocumentComplete事件也不会被触发。其实完整的网页内容并不是不可以获得，使用一个...
garfieldtom 阅读(1443) |
摘要: 这几天因为一个程序长时间运行出现比较严重的内存泄露问题，开始关注了一下内存管理方面的东西，以前也注意内存管理，创建了对象及时释放，但总有忘了处理的情况。在Delphi中没有自动回收机制，所以一定要及时释放使用的内存，虽然有时小的内存泄露并不会造成太大的问题。Delphi中检测内存泄露可以使用开源的FastMM(http://sourceforge.net/projects/fastmm/)，使用很...
garfieldtom 阅读(3361) |
摘要: 在java中有包的概念，.net中有命名空间，Delphi(好像是从9之后)中也有类似的概念。一般情况，我们这样命名一个单元：unit unit1;而我们也可以这样来命名一个单元：unit myunit.unit1;同样，可以命名另一个单元：unit myunit.unit2;当然，我们可以写的更长：unit myunit.lib.hello.unit1;附官方的说明：Using Namespac...
garfieldtom 阅读(1143) |
摘要: 使用Delphi2010中的TStrings或Memo的SaveToFile方法保存UTF8/Unicode编码的字符串时，保存后丢失编码信息，仔细查看，原来在保存时增加了编码设置：aStrings.SaveToFile（aFileName,TEncoding.Unicode);//可以是TEncoding.UTF8，根据需要另：unicode文本文件：头两个字符分别是FF FE（16进制） ut...
garfieldtom 阅读(721) |
摘要: Delphi中处理URL时，有时会遇到编码问题，比如文件名如果含有空格，则空格会被%20代替。如果不进行转换，则会出现问题。在网上找到一段转换代码(Delphi没有自带的？)，可以顺利进行//delphi 最快速编码 URLDecode URLEncodefunction URLDecode(con...
garfieldtom 阅读(2439) |
摘要: 原来的程序由Delphi2007升级到Delphi2010，没想到原来收发邮件正常的系统在发送中文邮件时发生了乱码，只得重新寻找解决办法，后来发现，这样构建消息可以避免乱码问题（不知道有没有其他解决办法）：with IdMessage1 do begin C From.Text := ''; Recipients.EMailAddresses:= 'v@126.co...
garfieldtom 阅读(1447) |
摘要: 使用Delphi2010,在窗体上放置一个TImage控件，然后在设计时加载jpg图片时没有问题，可如果在代码中，比如：imgPic.Picture.LoadFromFile(vFileName);则会提示Unknown
extension(.jpg)错误，很奇怪，后来发现需要在单元文件中需要use jpeg单元。加上jpeg单元后，问题解决.
garfieldtom 阅读(286) |
摘要: 刚把程序从Delphi2007升级到2010，很高兴，可很快就发现一个问题，某些数据无法全部显示，仔细一看，是SQL Server中使用text字段的数据显示不完整。测试了一下，在Delphi2007中可以正常显示，而在Delphi2010中则显示不全，程序完全一样。比如，保存内容为“文件”，在D2007中完整显示，而在D2010中则显示为“文”，少...
garfieldtom 阅读(280) |
摘要: 原来在D7/D2007下使用过一个DES的加密单元，但到了D后因为String被映射为unicodestring，不再是AnsiString，所以加密解密字符串失去了作用。经过修改，可以正确使用了，主要修改其中的string，显示指定为AnsiString，char，显示指定为AnsiChar.unit DESCinterfaceusesSysUtils,Classe...
garfieldtom 阅读(611) |
摘要: hotmail开放了pop3，可以使用客户端工具收取邮件了。POP 服务器:
（端口 995）需要 POP SSL？: 是的用户名: Windows Live ID, 比如：密码: 对应 Windows Live ID 的密码SMTP 服务器:
（端口 25）需要身份验证？: 是的需要 TLS/SSL？...
garfieldtom 阅读(971) |
摘要: 用indy开发了发送邮件程序，通过126,sina等发送邮件可以发送出去，而通过tom,163则被退回，显示被 kbas系统退回．后来通过观察Foxmail的通讯过程，区别在foxmail发送EHLO指令时用的是一个名字，而indy缺少使用的是邮箱名字．通过直接使用Socket连接发送邮件测试，将EHLO改为名字后发送成功．研究indy源码，发现indy中的smtp控件的HelloName属性如果...
garfieldtom 阅读(255) |
摘要: type TfrmMain = class(TForm) …… private:
procedure LoadPlugin(sr: TSearchRec); procedure LoadP procedure PlugInClick(Sender: TObject); public { Public declarations }
type TPl...
garfieldtom 阅读(225) |
摘要: { 关于打印监控，下面是一个简单的示例，可以监控到打印的任务信息。 } unit FfrmM interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons,WinS ty...
garfieldtom 阅读(280) |
摘要: 很早以前写的,程序还有点问题,使用了Apro通讯控件,借鉴了网上的一些资源.短信采用了队列管理. 通讯控件也可以使用SPComm. unit FSMST
uses Classes, Messages,OoMisc, AdPort,Windows,forms,Contnrs,FSMSCommFun,ExtCtrls,SysU
type TSMSRece...
garfieldtom 阅读(589) |
摘要: 自己为了使用方便写的
//***************************************************************//说明：设置信息保存类，支持Reg、XML、Ini//作者：Garfield//创建时间://最后修改时间：//修改历史：//1.调试通过Reg,Ini,XML有问题//XMLCreate(nil)或Cr...
garfieldtom 阅读(461) |
摘要: 首先从TidMessage中获得邮件的头信息： strHeader:=aIdMessage.Headers. 然后，用正则表达式取出Received: vReceiveIP:=GetNeedStrByPerlReg(strHeader,'(Received:)(.+)(])'); 再取出X-Originating-IP： vOriIP:=GetNeedStrByPerlReg(strHe...
garfieldtom 阅读(121) |
摘要: ;参考了许多脚本例子，这个脚本包含了大部分可能用到设置。我的这个安装程序中用到了安装数据库、写INI、定制安装等 脚本用 Inno Setup 脚本向导生成。; 查阅文档获取创建 INNO SETUP 脚本文件详细资料!
[Setup]AppName=天翔纤维检验管理系统AppVerName=天翔纤维检验管理系统 V2008AppPublisher=青岛天翔软件有限公司AppPublish...
garfieldtom 阅读(980) |
摘要: unit FfrmM interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,FileCtrl, ComC type TfrmMain = class(TForm) edtSrcDir...
garfieldtom 阅读(451) |}