基于Delphi的流编程实现文件加密器2
作者:admin 日期:2006-12-27
二、利用"流"实现exe文件的加密解密
使用本方法加密exe文件时，要先建立两个exe文件，一个用来添加资源到另外一个exe文件里面，称为添加程序。另一个被添加的exe文件称为头文件，该文件的功能是在解密时把添加到自己里面的文件读出来。加密时，首先建立头文件，再将明文追加到头文件尾部并设置一个密码，生成密文；解密时，先校验密码，如正确，则将密文从头文件中读出，生成明文，否则报错。为了exe文件的加密，需要建立三个函数，其原型及功能如下：
（a）Function Jmf_AddtoFile（SourceFile，PassWord，TargetFile:string）：Boolean；
使用本方法加密exe文件时，要先建立两个exe文件，一个用来添加资源到另外一个exe文件里面，称为添加程序。另一个被添加的exe文件称为头文件，该文件的功能是在解密时把添加到自己里面的文件读出来。加密时，首先建立头文件，再将明文追加到头文件尾部并设置一个密码，生成密文；解密时，先校验密码，如正确，则将密文从头文件中读出，生成明文，否则报错。为了exe文件的加密，需要建立三个函数，其原型及功能如下：
（a）Function Jmf_AddtoFile（SourceFile，PassWord，TargetFile:string）：Boolean；
通过调用API确定MEMO控件中的当前行和列
作者:admin 日期:2006-12-18
TZoCInetChecker：检测网络连接的类
作者:admin 日期:2006-11-28
Delphi检查特殊字符的简单VCL
作者:admin 日期:2006-11-20
这是个很简单的组件，编写它的目的也很单纯，就是想解决数据录入时的特殊字符检查问题。一开始要写函数实现，不过觉得麻烦，后来就想到写一个简单的VCL来遍历Form上所有的组件的方法。这个VCL目前只是检查所有的TEdit和TComboBox组件，有兴趣的朋友可以自己扩充功能。
我想这个VCL对于编写数据库程序的人员来说还是有一点帮助的，比如对单引号的Check。
想要检查什么符号只要在属性中设置一下就搞定，而且运行时只需要执行一个Checking函数，他就会自动检查咯。
我想这个VCL对于编写数据库程序的人员来说还是有一点帮助的，比如对单引号的Check。
想要检查什么符号只要在属性中设置一下就搞定，而且运行时只需要执行一个Checking函数，他就会自动检查咯。
Delphi 使用DLL文件中封装的窗口
作者:admin 日期:2006-11-19
Delphi编程将数据库数据快速导入Excel
作者:admin 日期:2006-11-18
在开发数据库应用程序中，经常要将类型相同的数据导出来，放到Excel文件中，利用Excel强大的编辑功能，对数据作进一步的加工处理。这有许多的方法，我们可以使用OLE技术，在Delphi中创建一个自动化对象，通过该对象来传送数据。也可以使用ADO，通过与Excel数据存储建立连接，使用ADO这种独立于数据库后端的技术来导出数据集的数据。
可这两种技术都有一个共同的缺点，那就是慢，数据量少还好，用户不会有太多的感觉，可一旦数据量大，比如，超过1千条，速度就让人难以忍受了，那么有没有更好的办法，既可以快速地导出数据，又不用安装附加的软件。也许好多人都想到了剪贴板的方式，这种方式速度是快，可也有不好的一面，那就是数据量大占用内存也大，并且在Excel中调用PASTE方法时，需要锁定输入，这使用起来，就有点不方便了
这里我为大家介始一种比较好的方法，使用文件流的方式，通过TfileStream直接写入Excel文件。我写了一个函数，通过它可将数据集中的数据直接导入到Excel文件中。我测试了一下，1M的数据，不到十秒就完成了。附源程序。
可这两种技术都有一个共同的缺点，那就是慢，数据量少还好，用户不会有太多的感觉，可一旦数据量大，比如，超过1千条，速度就让人难以忍受了，那么有没有更好的办法，既可以快速地导出数据，又不用安装附加的软件。也许好多人都想到了剪贴板的方式，这种方式速度是快，可也有不好的一面，那就是数据量大占用内存也大，并且在Excel中调用PASTE方法时，需要锁定输入，这使用起来，就有点不方便了
这里我为大家介始一种比较好的方法，使用文件流的方式，通过TfileStream直接写入Excel文件。我写了一个函数，通过它可将数据集中的数据直接导入到Excel文件中。我测试了一下，1M的数据，不到十秒就完成了。附源程序。
Deiphi编译优化导致的死循环
作者:admin 日期:2006-11-09
FastReport常见问题集
作者:admin 日期:2006-11-09
---------------- 使用自定义函数 ----------------------------------------
Q: 我怎样添加我的自定义函数?
A: 使用 TfrReport.OnUserFunction 事件. 这里有一个简单的例子:
Q: 我怎样添加我的自定义函数?
A: 使用 TfrReport.OnUserFunction 事件. 这里有一个简单的例子:
Tags: Delphi FastReport
