- 博客(11)
- 收藏
- 关注
原创 PostThreadMessage在线程中应用(以多线程网站数据采集为例)
PostThreadMessage 顾名思议,向线程中发送消息.下面讲讲我在线程中的应用体会 在Delphi 中,我们大多数人,使用线程的时候,都会用到系统自带的TThread 类,来完成线程的操作。 从TThread 中派生出一个自己的类,然后重载 Exec
2011-10-03 08:51:34 1600
原创 字符串替换函数(速度极度超越delphi自带的stringReplace)
//字符串替换函数 //作者 QQ 287412388 //本代码,可以随意拷贝,修改使用,如果发现问题,请通知我. //2011-09-09 14:18 function _stringReplace_(const Src,OldStr,NewStr:string):s
2011-09-09 14:34:51 1314 2
原创 比Delphi自带的函数速度至少快1倍以上(IntToHex)
好久没写东西了,今天被群里的起哄,就写个函数吧 function _IntToHex_(const intValue:Integer;Digits:Integer):string; const strHex = '000102030405060708090
2011-08-30 18:12:40 998
原创 DateTimeToStr函数专用优化版(YYYY-MM-DD hh:mm:ss zzz)
为了在日志文件中写入标准格式的时间。要将时间(Now() 转换到字符格式 " YYYY-MM-DD hh:mm:ss zzz"就编写了此函数,delphi系统自身也带了转换函数 formatDateTime('YYYY-MM-DD hh:mm:ss zzz',Now()) 也可以
2011-07-10 16:54:38 2529
原创 ado数据集(断开连接)后,单条调整记录顺序
运行截图//界面中,我们有时候需要,单条调整其记录顺序,上移,或者下移动某条记录的位置//本文中,提供的方法,可以供参考. //2011-07-09 09:30unit uMain;interfaceuses Windows, Messages, SysUtils, Varia
2011-07-09 09:40:07 515
转载 MD5函数
unit MD5A;{ MD5加密处理单元 编写:马军 日期:2003.3.10 2006-06-25 by 刘为民修改}interfacetype TIntData = array of Integer; TMd5Digest = cla
2011-07-05 17:11:01 418
原创 关于I0CP(高并发服务器 构架)的调研(随笔)
基于异步socket的服务器框架。已经基本完成,测试结果很满意。但并发量不算太高,这种构架本身的结构限制了它的性能。 但一般应用够了。看了很多IOCP的介绍,看的心理痒痒,也考虑尝试下。虽然没有实际写过一行与IOCP有关的代码,但从资料分析来看,IOCP 就是
2011-07-05 12:56:34 683 3
原创 并发情况下,SQL Server 保证全局ID序号的唯一性的实现方法
存储过程,用于生成唯一ID,并且在 并发情况下,保证了 ID序号的唯一性。可以应用在,数据库系统中,作全局唯一序号的获取。 以下代码用于 SQL Server 2000 CREATE PROCEDURE GetNewID ASDECLARE @ID
2011-07-05 12:54:44 1718
转载 高精度时间,间隔类(摘录)
//高精度时间 2011-06-14 11:35//代码非本人编写unit uStopWatch; interface uses Windows, SysUtils, DateUtils; type TStopWatch = class priv
2011-07-05 12:52:16 488
原创 一个队列类的实现(比delphi自带的速度快70倍)
测试结果实现的代码 unit sfContnrs;interface{$DEFINE MULTI_THREAD_QUEUE} //线程安全版本,如果不需要线程安全,请注释掉此行代码{$IFDEF MULTI_THREAD_QUEUE}uses Windo
2011-07-05 12:50:53 2558 2
原创 高吞吐量的一个日志函数类(Delphi)
在开发服务器端程序的时候,日志是必须的一个功能。由于服务器端的要频繁的把数据写入日志,开始的时候用了一个很简单日志函数就是直接把日志字符写入文件中。然后关闭连接。一直也应用良好。但做压力测试的时候,因为要每个连接的数据都要写入日志,发现运行的一段时间后,频繁掉
2011-07-05 12:47:22 2206 4
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人