随笔分类 -  Delphi

Delphi学习资料
线程安全队列 采用双list实现
摘要: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 阅读全文

posted @ 2011-06-20 13:09 jxgxy 阅读(597) 评论(0) 推荐(0)

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

posted @ 2011-06-20 12:49 jxgxy 阅读(545) 评论(0) 推荐(0)

把字节数显示成kb或gb的函数
摘要: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 阅读全文

posted @ 2011-06-17 22:38 jxgxy 阅读(341) 评论(0) 推荐(0)

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

posted @ 2011-06-17 11:37 jxgxy 阅读(553) 评论(0) 推荐(0)

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

posted @ 2011-06-15 11:27 jxgxy 阅读(544) 评论(0) 推荐(0)

Delphi 2007 一段代码手工折叠
摘要:{$REGION 'Designer Managed Code'}............{$ENDREGION} 阅读全文

posted @ 2011-06-08 11:03 jxgxy 阅读(1446) 评论(0) 推荐(0)

StrFmt、StrLFmt: 针对 PChar 的格式化函数
摘要://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; 阅读全文

posted @ 2011-05-19 22:51 jxgxy 阅读(483) 评论(0) 推荐(0)

UrlDownloadFile, 线程下载文件, 带进度条
摘要: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 阅读全文

posted @ 2011-05-11 21:58 jxgxy 阅读(2956) 评论(0) 推荐(0)

统一一个文件中bit位 1 的个数
摘要: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; 阅读全文

posted @ 2011-05-07 20:48 jxgxy 阅读(610) 评论(0) 推荐(0)

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

posted @ 2011-04-01 21:40 jxgxy 阅读(476) 评论(0) 推荐(0)

印刷开版计算器
摘要: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... 阅读全文

posted @ 2010-08-19 13:58 jxgxy 阅读(863) 评论(0) 推荐(0)

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

posted @ 2010-07-29 23:07 jxgxy 阅读(519) 评论(0) 推荐(1)

mysql服务的注册,启动、停止、注销。 [delphi代码实现]
摘要:[代码] 阅读全文

posted @ 2010-07-23 14:58 jxgxy 阅读(1494) 评论(0) 推荐(0)

MD5
摘要:[代码] 阅读全文

posted @ 2010-07-13 16:24 jxgxy 阅读(642) 评论(0) 推荐(0)

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

posted @ 2010-07-07 21:51 jxgxy 阅读(1560) 评论(4) 推荐(2)

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

posted @ 2010-04-30 20:37 jxgxy 阅读(608) 评论(0) 推荐(0)

蜀门EVP文件加解密源码
摘要:下载地址:http://files.cnblogs.com/jxgxy/shumen.rar解密密码:保密 阅读全文

posted @ 2010-04-21 21:41 jxgxy 阅读(3715) 评论(5) 推荐(2)

将MD5串原文写入文件中,用UE打开显示的前16字节就是MD5原文
摘要:代码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... 阅读全文

posted @ 2010-04-21 21:22 jxgxy 阅读(508) 评论(0) 推荐(0)

将窗体显示在 PageControl 上。
摘要:[代码] 阅读全文

posted @ 2010-02-13 23:16 jxgxy 阅读(666) 评论(0) 推荐(0)

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

posted @ 2010-01-25 13:23 jxgxy 阅读(499) 评论(0) 推荐(0)

导航