2016年3月2日
线程池
线程池的概念 单位时间内必须处理数目巨大的连接请求，但处理时间却相对较短。 传统多线程方案中，一旦接受到请求之后，即创建一个新的线程，由该线程执行任务。任务执行完毕后，线程退出。这就是即时创建，即时销毁的策略。尽管与创建进程相比，创建线程的时间已经大大的缩短，但是如果提交给线程的任务执行时间很短，而 Read More
posted @ 2016-03-02 23:39 findumars Views(327) Comments(0) Diggs(0)
结构体的序列和还原（使用Move方法）
// 定义结构体 typeTmyRec= recordname:string[10];password:string[10];end; function RawToBytes(const AValue; const ASize: Integer): TBytes;beginSetLength(Res Read More
posted @ 2016-03-02 23:38 findumars Views(434) Comments(0) Diggs(0)
给线程发送消息让它执行不同的处理（自己建立消息循环，非常有意思） good
unit Unit2;interfaceusesSystem.Classes, Windows, Messages;constWM_DO = WM_USER + 1;typeTDemoThread = class(TThread)private{ Private declarations }prot Read More
posted @ 2016-03-02 23:37 findumars Views(449) Comments(0) Diggs(0)
Delphi的DLL里如何实现定时器功能？
一，首先引入“mmsystem”单元。 二，启动定时器： var MMTimerID: Integer; // 定时器ID MMTimerID := timeSetEvent(1000, 0, @TimerProc, 0, TIME_PERIODIC); 三，定时器过程代码： procedure T Read More
posted @ 2016-03-02 23:36 findumars Views(488) Comments(0) Diggs(0)
Delphi安装NT服务程序时（不出现提示信息）
如果我们不加上"/silent"，那么Delphi在安装和卸载NT服务程序时候，都会出现一个提示信息，不希望出现这个提示信息，那么使用如下命令： 1，安装：“你的nt程序 /install /silent”。 2，卸载：“你的nt程序 /uninstall /silent”。 这是Delphi中注册 Read More
posted @ 2016-03-02 23:35 findumars Views(224) Comments(0) Diggs(0)