- 博客(53)
- 收藏
- 关注
RSS订阅转载 SQL Server2005中四种排名函数的使用
排名函数是SQL Server2005新加的功能。在SQL Server2005中有如下四个排名函数： 1.row_number 2.rank 3.dense_rank 4.ntile下面依次介绍这四个排名函数的使用。这里我使用的是微软提供的实例数据库AdventureWorks。一、 row_number row_number函数的用途是非常广泛，这个函数的功能...
2012-09-18 14:48:00
161
转载 Delphi字符串函数大全
【字符串函数大全】 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas 功能 返回两个字符串是否相似 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写...
2012-09-18 14:45:00
161
转载 多层数据库应用基于Delphi DataSnap方法调用的实现-----------------对象池技术
之前说到中间层通过向客户端暴露方法的方式提供服务，实现数据库数据的读取和更新。方法调用的方式，其潜在的意义，就是说中间层不保存客户端状态信息，就像WEB服务一样，客户端需要自己保存自己的状态信息。进一步说，就是中间层具体提供方法的业务对象实例，不是也不应该专属于某个客户端，它应该能够为不同的客户端调用提供服务。如果我们把业务对象实例放到对象池中集中存放，调用方法时随用随取，方法结束即放回...
2011-05-21 00:16:00
175
转载 利用DataSnap的回调功能在客户端显示服务器方法的执行进度
如果DataSnap服务器方法的执行时间比较长，这时候可能需要在客户端用进度条显示当前服务器方法的执行进度。要实现这种需求，现在可以利用DataSnap的回调功能，此功能是从Delphi 2010版本开始被引入的。要实现回调，服务器方法需要暴露给客户端一个或多个类型为TDBXCallback的参数。例如：...{$METHODINFO ON} TServerMethods1 = cla...
2011-05-20 22:15:00
159
转载 利用DataSnap进行数据流(TStream)的传递
DataSnap服务器可以通过方法调用向客户端返回数据流，当然，也可以从客户端向服务器上传数据流，都是通过方法调用的方式来实现的。下面以一个简单的例子来演示。服务器端实现：{$METHODINFO ON} TFUService = class(TPersistent) public function ReplaceFile(FileName: string; FileStrea...
2011-05-20 22:14:00
192
转载 DataSnap 2009 系列之三 （生命周期篇）
DataSnap 2009 系列之三 （生命周期篇）DataSnap 2009的服务器对象的生命周期依赖于DSServerClass组件的设置当DSServer启动时从DSServerClass组件读取LifeCycle属性的值注意：LifeCycle的值由于在启动时就已经读取 启动后再修改LifeCycle的值将没有任何效果LifeCycle属性的值可以是以下三种字符串之一1.Sess...
2011-05-19 20:53:00
114
转载 DataSnap 2009 系列之二 （方法篇）
在过去客户端要调用远程服务器的方法需要通过在TLB里添加接口并且在服务器对象中实现在DataSnap 2009中调用远程服务器的方法是基于delphi的RTTI机制的想要一个类允许被远程调用需要做以下两点1.把该类和DSServerClass连接在一起procedureTMainForm.DSServerClassGetClass(DSServerClass:TDSServerCla...
2011-05-19 20:53:00
118
转载 DataSnap 2009 系列之一 （连接篇）
Delphi 的MIDAS出来了这么多年终于有改进的版本了COM-FREE的DataSnap 2009真是清爽了很多DataSnap 2009 除了不支持回调和Intercept组件以外 其它的该有的都有了 而且还有很多强大的特性第一篇就先写点DataSnap 2009连接方面可能要用到的东西以后再继续写写关于生命周期的管理 对象池的应用 以及远程管理 远程方法调用等方面的东西吧。首先...
2011-05-19 20:52:00
107
转载 DataSnap 2009 客户端扩展
DataSnap 2009的客户端采用了原始的TClientSocket组件实现了通讯层 即简单效率也不错但是如果我们想要设置连接超时怎么办？想要设置代理服务器又该怎么办呢？能不能利用我们常用的网络控件(indy ics synapse...)来替代呢？在这里我基于synapse控件实现了一个自己的DataSnap客户端驱动注:synapase是一套比较不错的开源的第三方控件 这里我们...
2011-05-19 20:51:00
111
转载 高性能的socket通讯服务器（完成端口模型--IOCP）[转载]
高性能的socket通讯服务器（完成端口模型--IOCP） 很多人费尽心思，都没有找到一个完美的 I/O CP 例程，甚至跟人于误解，先将本人编写的例程公布出来，希望对那些...
2009-10-04 01:40:00
160
转载 WebBrowser操作Html[转]
用什么实现HTML的界面用Delphi实现HTML界面的应用主要有两种选择：WebBrowser Control或MSHTML。为了弄清两者如何选择，我们先来看看Internet Exporer 4.0及其后续版本的体系结构：IE浏览器是建立在SHDOCVW.DLL组件之上的，而SHDOCVW.DLL则建立在MSHTML.DLL组件之上，底层则包括脚本引擎等。SHDOCV...
2009-09-29 21:31:00
337
转载 WebBrowser、MSHTML在Delphi中的使用[转]
研究了一下WebBrowser组件和MSHTML 在Delphi中的使用,整理了一下这段时间研究的结果,写下来一是方便大家查阅,二也可以加深我自己的记忆.希望能对大家有所帮助… …,同时,如果有更好的处理方式或者我没有提到的问题,请大家也告诉我哦, 咱们一块进步… ...,其中一部分是我从网络中搜集的资料,谢谢那些兄弟们… …MSHTML把HTML页面中的元素封装成了IHTML...
2009-09-29 21:26:00
128
转载 delphi中将webbrowser用作网页编辑器（转）
1.在formcreate事件中加入Application.OnMessage := IEMessageHandler;这是用作对webbrowser回车事件处理消息2。打开网页时作相应处理，进入网页编辑状态webbrowser1.Navigate(htmfile);while webbrowser1.busy doApplication.ProcessMessages;(webbrow...
2009-09-29 21:25:00
227
转载 DateUtils-Function
DateUtils.CompareDateDateUtils.CompareDateTimeDateUtils.CompareTimeDateUtils.DateOfDateUtils.DateTimeToJulianDateDateUtils.DateTimeToModifiedJulianDateDateUtils.DateTimeToUnixDateUtils.Day...
2009-09-08 22:16:00
102
转载 YearsBetween、MonthsBetween ... YearSpan、MonthSpan ... 间隔时间
DateUtils.YearsBetween();DateUtils.MonthsBetween();DateUtils.WeeksBetween();DateUtils.DaysBetween();DateUtils.HoursBetween();DateUtils.MinutesBetween();DateUtils.SecondsBetween();Da...
2009-09-08 22:14:00
152
转载 用Delphi创建服务程序
Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处:(1)不用登陆进系统即可运行.(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.Delphi7创建一个Service程序.运行Delphi7,选择菜单File-->New-->Other--->Service Applicat...
2009-04-29 00:04:00
115
转载 在 Delphi 2009 中出现找不到 WinTypes.dcu 和 WinProcs.dcu 的解决办法
Delphi2009中找不到 WinTypes.dcu 和 WinProcs.dcu 的错误提示，使用 Alt + ↑ 也无法定位到声明的单元。解决方案如下：点击 Project - Options，选中 Delphi Compiler 结点，在 Unit aliases 字段中加入下列字串：WinTypes=Windows;WinProcs=Windows;DbiP...
2009-03-09 23:57:00
270
转载 由图像的灰度化看基本图像处理
以灰度化代码为例procedure Grayscale(const Bitmap:TBitmap);var X: Integer; Y: Integer; PRGB: pRGBTriple; Gray: Byte;begin for Y := 0 to (Bitmap.Height - 1) do begin PRGB ...
2009-01-13 19:58:00
137
转载 [转摘]Indy10,采用线程，发送电子邮件
uses IdComponent,IdTCPConnection,IdTCPClient,IdMessageClient,IdSMTP,IdBaseComponent,IdMessage,IdExplicitTLSClientSer...
2008-11-13 12:50:00
228
转载 如何过XP的防火墙而不被拦截
新一篇:完美屏蔽 Ctrl+Alt+Del 键|旧一篇:windows2008下如何删除程序自身procedure TForm1.Button1Click(Sender: TObject);var FwMgr,Profile,FwApp: variant;begin FwMgr := CreateOLEObject('HNetCfg.FwM...
2008-10-25 19:10:00
86
转载 安装MSDE 2000
安装MSDE 2000 MSDE 是什么 如何获得 MSDE 2000的安装文件 安装MSDE 2000的步骤（请不要双击setup.exe文件！请务必按说明进行!）MSDE 2000是什么？ MSDE是“Microsoft SQLServer Desktop Edition”的缩写，顾名思义，是MS SQL Server 2000...
2008-10-18 19:59:00
186
转载 自动安装SQL Server数据库
这段时间，手头的项目接近收尾，以前不太注意的工程打包问题却慢慢凸现出来，这里指的不单单是制作一个可以安装的工程安装包，还有关于缺少运行环境时的数据库实例的安装和数据库数据的安装恢复。这里先把关于MSDE打包进安装程序的心得于大家分享，那么咱们废话少说。当你的项目基本完成测试，准备发布的时候，制作一个用户使用简便的自动安装包就成为编码完成后的又一个需要解决的问题，工程开发的是否完满...
2008-10-18 19:57:00
91
转载 Delphi中的字符串（转）
widestring转换成pcharDelphi有三种类型的字符： •AnsiChar这是标准的1字节的ANSI字符，程序员都对它比较熟悉。 •WideChar这是2字节的Unicode字符。 •Char在目前相当于AnsiChar，但在Delphi以后版本中相当于WideChar. 记住因为一个字符在长度上并不表示一个字节，所以不能在应用程序中对字符长度...
2008-07-15 22:09:00
403
转载 网络通信中的心跳机制的实现！
有开发网络应用经历的人都知道，网络中的接收和发送数据都是使用WINDOWS中的SOCKET进行实现。但是如果此套接字已经断开，那发送数据和接收数据的时候就一定会有问题。可是如何判断这个套接字是否还可以使用呢？ 有人一定想到使用Send函数中的返回结果来进行判断。如果返回的长度和自己发送出去的长度一致，那就说明这个套接字是可用的，否则此套接字一定出现了问题。但是我们并不是无时...
2008-06-27 21:55:00
113
转载 Delphi之通过崩溃地址找出源代码的出错行
一 什么是MAP文件 什么是 MAP 文件？简单地讲， MAP 文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法，它可以在任何地方、任何时候使用，不需要有额外的程序进行支持。而且，这是唯一能找出程序崩溃的地方的救星。 如果要查找代码行号，需要使用下面的公式做一些十六进制的减法运算： 崩溃行偏移 = 崩溃地址（Crash Addres...
2008-04-07 22:57:00
173
转载 Windows通知栏图标高级编程概述
任务栏（Taskbar）是微软公司在Windows 95中引入的一种特殊的桌面工具条，它为用户快速访问计算机资源提供了极大的方便，而状态栏（以下称通知栏）无疑是任务栏上较为特殊的一个窗口。编程人员可以调用API函数Shell_NotifyIcon向通知栏发送消息来添加、删除或修改图标，当在图标上发生鼠标或键盘事件时，系统会向应用程序发送编程时预先定义的消息，通知栏处理回调函数就会被自动调...
2007-05-31 13:54:00
176
转载 强悍的关闭进程代码
unit Tlhelp323;interfaceuses Windows,SysUtils,Tlhelp32;function KillTask(ExeFileName: string): Integer; //关闭进程function EnableDebugPrivilege: Boolean; //提升权限 function FindProc...
2007-05-23 19:23:00
156
转载 Playing With System Using Delphi
1.Open/close CD ROMUses mmsystem;mciSendString('Set cdaudio door open wait', nil, 0, handle); to openmciSendString('Set cdaudio door closed wait', nil, 0, handle); to close2.Monitor stand byUse...
2006-10-25 01:33:00
66
转载 [转]海量数据库的查询优化及分页算法方案
随着“金盾工程”建设的逐步深入和公安信息化的高速发展，公安计算机应用系统被广泛应用在各警种、各部门。与此同时，应用系统体系的核心、系统数据的存放地――数据库也随着实际应用而急剧膨胀，一些大规模的系统，如人口系统的数据甚至超过了1000万条，可谓海量。那么，如何实现快速地从这些超大容量的数据库中提取数据（查询）、分析、统计以及提取数据后进行数据分页已成为各地系统管理员和数据库管理员亟待解决...
2006-08-30 19:17:00
100
转载 Format函数详解
Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全...
2006-07-13 22:36:00
3882
转载 更改Delphi系统的默认字体
每新建一个窗件都要改默认字体,不方便.通过添加注册值可更改Delphi系统的默认字体修改注册表：HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\FormDesign Delphi 5:HKEY_CURRENT_USER\Software\Borland\Delphi\5.0Delphi 6:HKEY_CURRENT_USER\Software\...
2006-07-09 20:22:00
489
转载 delphi指针
浅谈Object Pascal的指针 大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人 产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今 的Object Pascal，可以说在指针运用上，丝毫不会逊...
2006-07-08 20:47:00
137
转载 数学类函数(转载)
**************************数学单元********************************* Delphi / Kylix 跨平台运行时Runtime库 Copyright (c) 1996, 2001 Borland 软件**********************************************...
2006-06-25 19:21:00
290
转载 如何用idhttp提交自己构造过的Cookie
如何用idhttp提交自己构造过的Cookie我不知道的是：如果把自己构造过的Cookie传给idhttp让它提交。比如站点 http://www.aaa.com 是要cookie的。我已经在程序上放了idhttp和IdCookieManager。我get http://www.aaa.com 后，idhttp通过IdCookieManager已经得到当前站点的Cookie了。我可以用f...
2006-06-06 22:37:00
147
转载 正则表达式大全
正则表达式是烦琐的，但是强大的，学会之后的应用会让你除了提高效率外，会给你带来绝对的成就感。只要认真去阅读这些资料，加上应用的时候进行一定的参考，掌握正则表达式不是问题。索引1._引子2._正则表达式的历史3._正则表达式定义3.1_普通字符3.2_非打印字符3.3_特殊字符3.4_限定符3.5_定位符3.6_选择3.7_后向引用4._各种操作符的运算优先级5._全部符号解释6._部分例...
2006-05-29 01:00:00
127
转载 后台调用外部程序的完美实现（收藏）
最近在做的一个软件，其中有一部分功能需要调用其它的软件来完成，而那个软件只有可执行文件，根本没有源代码，幸好，我要做的事不难，只需要在我的程序启动后，将那个软件打开，在需要的时候，对其中的一个文本矿设置一些文字，再点击一个按钮就可以了。说到这里，相信你也有了对该功能的一些初步设想了，没错，其基本思路就是：1）调用CreateProcess（）打开目标程序。2）用FindWindow（）找...
2006-05-11 23:52:00
133
转载 海量数据库的查询优化及分页算法方案
随着“金盾工程”建设的逐步深入和公安信息化的高速发展，公安计算机应用系统被广泛应用在各警种、各部门。与此同时，应用系统体系的核心、系统数据的存放地――数据库也随着实际应用而急剧膨胀，一些大规模的系统，如人口系统的数据甚至超过了1000万条，可谓海量。那么，如何实现快速地从这些超大容量的数据库中提取数据（查询）、分析、统计以及提取数据后进行数据分页已成为各地系统管理员和数据库管理员亟待解决...
2006-05-11 02:41:00
81
转载 关于基础类数据结构的设计想法
永远记住：基础类数据构结中，必须要有一个唯一主索引字段，该字段在程序中不可见，这样的设计在编辑时非常有用。比如：现在有一个操作员基本信息表：设计字段：AUTOID，USERID，NAME，SEX，PASSWORD，……注意：AUTOID字段在此必不可少，虽然USERID也是唯一的，但通常情况下USERID是可编辑的（总不能输入数据后就不能编辑）。在这样的情况下，AUTOID就成为与其它表...
2006-05-11 02:06:00
93
转载 判断SQL SERVER 服务是否断开
unit DTDem;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Psock, NMDayTim, ExtCtrls, ComCtrls;type TForm1 = class(TForm) Panel1: TPanel; ...
2006-05-11 01:58:00
247
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人