摘要：unit uQueueEx;interface uses windows,SysUtils,Classes, uCriticalSection;type{线程安全队列} TQueueEx = class private m_bEventNotify:boolean; m_nExchangeCount:longint; m_nNextGetPoint:Longint; m_nNextGetCount:Longint; m_nNextPutPoint:Longint; m_csGet: TCriticalSection; m_csPut: TCriticalSection; m_lstGet:TL 阅读全文

摘要：在C++中写了一个多线程环境下写日志的插件,考虑到以前写Delphi代码时对文件的操作类封装时老是欠缺线程安全方面的考虑，所以总结了一下，写了一个线程安全的单例。可能有欠缺之处请各位朋友多多指教。首先自己封了一个多线程的临界操作类，用来管理多线程的临界区，方法很简单只是单独对WINDOWS API的封装，实现单元如下：(********************************************************************@file: CriticalSectionU.pas*@desc: 多线程操作时，对临界区的封装*@author: daihw*@date: 阅读全文

摘要：functionFormatByteSize(constbytes:Longint):string;constB=1;//byteKB=1024*B;//kilobyteMB=1024*KB;//megabyteGB=1024*MB;//gigabytebeginifbytes>GBthenresult:=FormatFloat('#.##GB',bytes/GB)elseifbytes>MBthenresult:=FormatFloat('#.##MB',bytes/MB)elseifbytes>KBthenresult:=FormatFlo 阅读全文

摘要：Delphi 指针大全目 录1 DELPHI 的指针-引用................................................................................. - 1 -2 delphi 的“引用/值”模型 .............................................................................. - 5 -3 谈谈 Delphi 的类型与指针 .............................................................. 阅读全文

摘要：内存映射文件内存映射文件的概念：内存映射文件提供了一组独立的函数，使应用程序能够通过内存指针像访问内存一样访问磁盘上的文件。通过内存映射文件函数可以将磁盘上的文件全部或者部分映射到进程的虚拟地址空间的某个位置。一旦完成映射，对磁盘文件的访问就可以像访问内存文件一样便捷。使用内存映射文件的好处：a系统使用内存映射文件，以便加载和执行.exe和DLL文件。这可以大大节省页文件空间和应用程序启动运行所需的时间。b可以使用内存映射文件来访问磁盘上的数据文件。这使你可以不必对文件执行I/O操作，并且可以不必对文件内容进行缓存。c可以使用内存映射文件，使同一台计算机上运行的多个进程能够相互之间共享数据。注 阅读全文

摘要：{$REGION 'Designer Managed Code'}............{$ENDREGION} 阅读全文

摘要：//StrFmt、StrLFmt:针对PChar的格式化函数varbuf:array[0..255]ofChar;p:PChar;beginp:=StrFmt(buf,'%d,%d',[123,MaxInt]);ShowMessage(buf);{123,2147483647}ShowMessage(p);{123,2147483647}p:=StrLFmt(buf,9,'%d,%d',[123,MaxInt]);ShowMessage(buf);{123,2147}ShowMessage(p);{123,2147}end; 阅读全文

摘要：unitFileDownLoadThread;interfaceusesClasses,SysUtils,Windows,ActiveX,UrlMon;constS_ABORT=HRESULT($80004004);typeTFileDownLoadThread=class;TDownLoadProcessEvent=procedure(Sender:TFileDownLoadThread;Progress,ProgressMax:Cardinal)ofobject;TDownLoadCompleteEvent=procedure(Sender:TFileDownLoadThread)ofob 阅读全文

摘要：unitCountThread;interfaceusesClasses,SysUtils,Dialogs,Math;typeTCountThread=class(TThread)privateFFileName:string;FFileSize:Int64;FOnStartCount:TNotifyEvent;FOnProcess:TNotifyEvent;FOnEndCount:TNotifyEvent;FSumBit:Int64;FBlockCount:Integer;functionCountBits(B:Byte):Integer;protectedprocedureExecute; 阅读全文

摘要：请按下面这个原样试一下，然后再检查你现在的代码procedure TForm2.Button4Click(Sender: TObject);const dd = '中国 ';begin Edit1.Text := HttpEncode(AnsiToUtf8(dd));end; 阅读全文

摘要：object FrmCal: TFrmCal Left = 428 Top = 235 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = #21360#21047#24320#29256#35745#31639#22120 ClientHeight = 417 ClientWidth = 516 Co... 阅读全文

摘要：Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--SSE优化算法：functionCGPosCharSSE(SubChar:Char;SrcString:PChar;Len:Integer;Order:Boolean=True):Integer;//Su... 阅读全文

摘要：[代码] 阅读全文

摘要：[代码] 阅读全文

摘要：本工具可以加解密乱OL[Ran2_Online]HK最新客户端的资源文件[比如param.ini,glogic.rcc等]等所有文件为明文,功能强大./Files/jxgxy/Ran2_Online.rar解压密码:保密 阅读全文

摘要：自从Delphi2010中引入了新的RTTI反射机制后，编译出来的程序会变得很大，这是因为默认情况下 Delphi2010 给所有类都加上了反射机制。而我们的工程并不每每都需要使用到这个功能，所以对于不需要使用的地方，我们可以简单的用下面的方法禁用RTTI反射，从而大大减小文件体积。禁用的方法很简单，就是要在工程（dpr文件中。Delphi2010下项目文件是dproj文件，但dpr文件仍然是默认... 阅读全文

摘要：下载地址：http://files.cnblogs.com/jxgxy/shumen.rar解密密码：保密 阅读全文

摘要：代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--Str:=GetFileMD5(mmo1.Lines[i]);n:=0;forj:=1to16dobeginn:=j*2-1;Str1:=Str[n]+Str[n+1];fMD5[j-1]:=StrT... 阅读全文

摘要：[代码] 阅读全文

摘要：代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St... 阅读全文