摘要:
有时候需要根据类名来建立类的实例,比如把类名存于数据库,然后在程序中根据数据库中的内容建立不同的窗体,下面的例子可以实现这个需求.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Controls, StdCtrls,Forms;type TForm1 = class(TForm) Button1: ... 阅读全文
摘要:
标题: Delphi中的线程类 Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本上都是对TThread类的几个成员作一简单介绍,再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部,我写此文的目的在于对此作一个补充。 线程本质上是进程中一段并发运行的代码。一个进程至少有一个线程,即所谓的主... 阅读全文
摘要:
Object Pascal中可以建立丰富的数据类型。数组毫无疑问也是众多自定义数据类型中的一种。 Type TA = array[0..9] of Integer; ... var A : TA; 和下面这段代码通常效果是相同的(不同的地方在类型篇再说) var A : Array [0..9] of Integer; 这相当于C中的 int A[10]; 或Basic中的 Di... 阅读全文
摘要:
由于在很多加密应用中,要求加密后的信息具有抗反向分析(例如,破解者知道明文的前若干个字符,在此基础上力图反推出密钥,并解密其余的信息)的能力。本文提出了一种等长双向流式加密算法,经此算法加密的信息,其中的数据有全局的信息相关性,具有极强的抗反向分析以及差分分析的能力。 算法思路: 将加解密对象看成一个Byte数组A[N]。首先,我们从头到尾对它进行遍历,将每次遇到的元素的值与前一个元素的值相加,并... 阅读全文
摘要:
是否想为你的Windows加上一双眼睛,察看使用者在机器上所做的各种操作(例如建立、删除文件;改变文件或目录名字)呢? 这里介绍一种利用Windows未公开函数实现这个功能的方法。 在Windows下有一个未公开函数SHChangeNotifyRegister可以把你的窗口添加到系统的系统消息监视链中,该函数在Delphi中的定义如下: Function SHChangeNotifyR... 阅读全文
摘要:
一、 关于动态参数创建:1、CreateParameter方法; // 惯用此招 var StProc: TADOStoredProc; iPara1: byte; iPara2: byte; begin StProc := TADOStoredProc.Create(nil); StProc.Close; StProc.Connection := con; // TADOConnection ... 阅读全文
摘要:
变量的内存分配和释放从作用范围的角度,变量可以分为两大类:全局(Global)变量和局部(Local)变量。函数或者过程内部定义的变量为局部变量;其他的变量被声明在interface和implementation部分,称作全局变量,可以在整个单元中引用。对于在类中声明的变量,如果我将类比作单元,那么类中的变量可以比作单元中的全局变量;类的方法中声明的变量可以比作函数和过程中的局部变量。以下所讲的内... 阅读全文
摘要:
作者: ivy1982标题: 繁简转换 关键字: 繁简转换 分类: 个人专区 密级: 公开 (评分: , 回复: 0, 阅读: 6) »» 繁简转换 关键字: 繁简转换 我根据VC++改的在两个操作环境下都测试能过//*****************************************************//Function BIG... 阅读全文
摘要:
SQLServer下取拼音码的函数--drop function fun_getPYCreate function fun_getPY(@str nvarchar(4000)) returns nvarchar(4000) as begin declare @word nchar(1),@PY nvarchar(4000) set @PY='' while len(@str)>0 begin... 阅读全文
摘要:
文件CRC32效验const Table: array[0..255] of DWORD = ($00000000, $77073096, $EE0E612C, $990951BA, $076DC419, $706AF48F, $E963A535, $9E6495A3, $0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D988, $09B64C2B, $7EB17CB... 阅读全文
摘要:
Microsoft Windows 95、Windows 98 和 Windows Millennium Edition (Me) 包含两个名为 Rundll.exe 和 Rundll32.exe 的命令行实用程序,通过这两个程序可调用从 16 位或 32 位 DLL 导出的函数。但是,使用 Rundll 和 Rundll32 程序并不能调用从任何 DLL 导出的任何函数。例如,不能使用这两个实用... 阅读全文
摘要:
《制作“浮动窗”心得》最近编了一个软件,无敌剪贴板,为了使其功能更多,于是我想到了加入netants,flashget之类的浮动窗,选中网页上的字,然后拖入浮动窗,一开始我不知道怎样制作,于是开始查葵花宝典,试了试,在我的系统(win2000)下根本行不通,在任务栏上有按钮,于是我又去论坛搜索,询问别人,谁知众说纷纭,我挨个的试,最后终于让我找到了自己的答案(集众人所长,加... 阅读全文
摘要:
http://www.allife.org/index.php?job=art&articleid=a_20051227_140933Email:kruglinski_at_gmail_dot_comBlog:kruglinski.blogchina.com早在两年前我就已经能很熟练的运用完成端口这种技术了,只是一直没有机会将它用在什么项目中,这段时间见到这种技术被过分炒作,过分的神秘化,... 阅读全文
摘要:
技术要点: 一、使用SHGetFileInfo函数获取指定扩展名的文件图标。需要引用ShellAPI单元。 二、使用TStringList来保存扩展名与其图标的索引号。当添加一个文件名至TListView后,我们已经取得了其图标,再次添加同样扩展名的文件时,不需再次获取其图标,只要从该TStringList中取得其图标索引号即可。 uses ShellAPI; var IconList:TSt... 阅读全文
摘要:
在GIS应用中常常面对海量数据和有限的PC平台之间的矛盾,为此许多人设计了各种各样的数据索引和抽取机制,来实现低端PC访问海量数据之需;其实在Windows平台下,API提供了一种FileMapping机制来实现将文件映射到虚拟内存中,在内存中生成一个字节流指针(byte*)供程序访问,其实这个字节流指针没有占用到一点物理内存,而只是磁盘文件在虚拟内存中的一个映象,这样,就可以节省很多的内存空间;... 阅读全文
摘要:
delphi 编码转换 unicode gbk big5(转载)[ 2006-03-23 15:39:23 | 作者: Admin ] 字体大小: 大 | 中 | 小 以下代码在DELPHI 7上调试通过,主要使用了api函数中MultiByteToWidechar function UnicodeEncode(Str:string;CodePage:integer):WideString;var... 阅读全文
摘要:
//机内码 -> 汉字Function MacCode2Chinese(AiUniCode : Integer) : String;Var ch, cl : Integer;Begin ch := AiUniCode Div 256; cl := AiUniCode Mod 256; Result := Chr(ch) + Chr(cl);end;//汉字 -> 机内码Function... 阅读全文
摘要:
{CopyRight (c) 2006.10.27 咏南工作室ToDo: 使用DLL封装企业业务逻辑作者: 陈新光 QQ: 254072148邮箱: hnxxcxg@yahoo.com.cn}{界面部分和业务部分物理分离。将业务部分和界面部分分别编译成dll和exe可执行文件。定义一个接口部分以实现界面部分和业务部分之间通讯。接口部分可使用接口或抽象类来实现。一定要保持接 口的稳定,轻易不要改变接... 阅读全文
摘要:
在日常程序设计中,有时候需要调用外部应用程序,并且要根据外部应用程序的执行情况来更新本应用程序的当前显示结果。调用外部应用程序的API函数有WinExec()、ShellExecute()、ShellExecuteEx()。但是,如何让应用程序使用ShellExecuteEx() 之类的函数调用外部应用程序后,等待外部应用程序运行结束,之后再执行后续语句呢? 思路:创建一个线程,在此线程里用Sh... 阅读全文
摘要:
unit Unit1;{By 月夜风筝,icc}interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Sende... 阅读全文