自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

  • 博客(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关注的人

提示
确定要删除当前文章?
取消 删除