08 2010 档案

摘要：有时候为了测试正则表达式、临时自己写了这么一个、我对于JS也不懂、所以写的很差、、代码：（我测试在IE8中是正常的、然而在我的FireFox中的、却无法使用、原因不明、这个我也不管了、反正就自己用用而已）HTMLHEADTitle正则表达式测试工具——JavaScriptRegExp引擎/TitleMETAhttp-equiv="Content-Type"content="text/html;charset=gb2312"METAname="Generator"content="AspStudio1.0"/HEADBODYonKeyDown=ChkTest(eve 阅读全文

摘要：原来这个是delphi的、我翻译了一下、我感觉还是不错的、唯一的问题是不支持中文、不过没关系、反正我从来我对中文字符串加密的、加密函数Private Function EncrypStr(ByVal Src As String, _ Optional ByVal Key As String = "ForDream") As String '//对字符串加密(Src:源 Key:密匙) Dim KeyLen As Long Dim KeyPos As Long Dim offset As Long Dim dest As String Dim SrcPos As Long Dim SrcAsc 阅读全文

摘要：本来想采用xmlhttp的、不过这个呢好像设置来源有点问题、所以就换了我比较不熟悉的inet组件（很久不用VB、其实VB也不太熟悉啦、哈哈）、废话不多说、直接贴代码：(有点乱、见谅吧)Option ExplicitPrivate State(4) As LongPrivate ByteCounter As LongPrivate ByteBuffer(63) As BytePrivate Type TGUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As ByteEnd TypePrivate Declare 阅读全文

摘要：第一次注释掉Lv1的循环、运行Lv2的代码、第二次注释掉Lv2的循环、运行Lv1的代码、具体运行速度、完全不用计时、显而易见、在我的电脑上、Virtual ListView的速度几乎是一瞬间就好了不过蛮奇怪的、我又用VB做了下实验、VB的ListView是ActiveX的、在IDE下添加100000条记录、速度也蛮快的、大概在我的电脑上是2.5s左右、这是IDE下的速度、如果是生成EXE再运行应该是可以在1s以内的、这个速度远远大于Delphi中的Vcl ListView....看来这个效率损耗在VCL里挺大的、、仅以此做记录、以后不要忘记了ListView的这种用法、、unit Unit1; 阅读全文

摘要：没什么技术含量、无聊弄的、D2010 + Windows7下没有问题实际上就一个函数而已、在执行的时候可能会程序程序假死以及网络被大量占用的情况、此时不要结束程序、等待运行完毕后即正常（如果很在意程序的假死、可以先不要显示listview、全部获取完毕后再次显示listview、就不会假死了）procedure TForm1.FormCreate(Sender: TObject);var nLoop,i:Cardinal; Html,gMail:string; Reg,RegSp,RegMail:TPerlRegEx; aLinker:string;begin Self.Show; 阅读全文

摘要：2010-08-12 10:56:24Made By ForDream一个简单的小工具、主要是用了正则表达式、没什么技术含量、代码贴出来、记录一下、双击可以下载、右键可以进行搜索、速度还不错unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdHTTP, ComCtrls, PerlRegEx, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, She 阅读全文