随笔分类 -  DELPHI

Delphi中接口与类实例的转换
摘要：自己需要封装一个COM，能够实现类似于ADODB相似的功能，然后综合想来，感觉直接的基于UniDac封装比较好，于是马上动手就做，在封装的过程中碰到如下问题1//数据库连接类2TCnConnection=class(TAutoObject,ICnConnection)3private4FConn:TConnection;5functionGetConnObj:TConnection;6protected7public8destructorDestroy;override;9procedureInitialize;override;10propertyConnObj:TConnectionrea 阅读全文

posted @ 2011-10-17 13:35 cntlis 阅读(887) 评论(0) 推荐(2) 编辑

Delphi或者BCB在运行中出现“Stack Overflow- save your work and restart CodeGear”错误提示的解决方案
摘要：最近用D在做项目的过程中，IDE突然抛出了“Stack Overflow- save your work and restart CodeGear”的错误提示 阅读全文

posted @ 2011-06-08 11:26 cntlis 阅读(1020) 评论(0) 推荐(0) 编辑

Delphi中variant 和 Stream 的互換
摘要：DELPHI中使用COM,COM+时候经常需要用到STREAM和VARIANT类型的转换1procedureVarToStream(varAStm:TStream;varAOvar:Olevariant);2var3p:Pointer;4begin5AStm:=TMemoryStream.Create;6AStm.Position:=0;7p:=VarArrayLock(AOvar);8AStm.Write(p^,VarArrayHighBound(AOvar,1));9VarArrayUnlock(AOvar);10end;1112procedureStreamToVar(varAStm:T 阅读全文

posted @ 2011-03-07 11:22 cntlis 阅读(1091) 评论(1) 推荐(1) 编辑

QQ批量自动登录程序的设计
摘要：因为自己的QQ号码有好几个，每次重启机子的时候一个一个的登录超级麻烦，而且腾讯老是在偶尔的时候，再把以前已经记住密码的QQ密码给置空，还要重新输入，太麻烦，因此尝试着自己搞一个批量自动登录的程序以TM2009为例，查看了一下，未登录之前一个窗体，上边两个控件，登录以后，窗体捕获到一个控件，根据这个，首先找到QQ的登录框，输入用户名，密码的位置，获取窗体句柄的具体代码如下:这里先定义了一个record类型，[代码][代码]因为腾讯的密码输入框，采用的是低级钩子，然后定时的释放，建立钩子这种方式来防止木马程序去捕获，我尝试了下，直接的用Sendmessage去发送密码信息，没反应，因此这里我采用了 阅读全文

posted @ 2010-12-31 13:50 cntlis 阅读(4019) 评论(19) 推荐(6) 编辑

关于QQ注册如何突破IP限制的说明附全部源代码下载
摘要：上一篇文章我说明了如何破解QQ批量注册的问题，我看有朋友说过，通过HTTPWATCH看到腾讯提交的参数，那个我知道，不过那个朋友你可以测试一下，腾讯的直接提交是不能用的，必须要中间经历一系列的算法，否则会提示“请不要重复申请”的错误提示有朋友在上一篇文章评论将说关于IP限制的问题，我讲一下，首先代理IP是没问题的，同时采取PPPOE拨号的也没问题，代理IP直接用PNHTTP... 阅读全文

posted @ 2010-11-25 12:34 cntlis 阅读(3992) 评论(10) 推荐(2) 编辑

QQ限制WEB页面注册方法解析及其如何采用多线程技术实现QQ号码快速批量申请
摘要：本文主要分析QQ是如何在WEB前台实现防止用户批量的注册，并且提供了相应的技术解决方案，程序早都做好了，没有外放，看到博客园上有其他人对外写了这样的文章，但是比较简陋，因此这里将我的设计方案跟各位分析一下，如有其他见解请与我QQ8112857联系 阅读全文

posted @ 2010-11-25 04:07 cntlis 阅读(8764) 评论(25) 推荐(7) 编辑

工作需要根据资料写的一个SHA1RSA算法
摘要：工作需要根据资料写的一个SHA1RSA算法其中用到了libeay32.dll和ssleay32.dll，版本不限制，直接从官方下载源码然后编译function ReadPrivateKey(AFileName: TFileName): pEVP_PKEY; //读取私钥文件varkeyfile: pBIO;function cb(buffer: PChar; blength: integer; v... 阅读全文

posted @ 2009-02-22 16:13 cntlis 阅读(2137) 评论(1) 推荐(0) 编辑

跑跑卡丁车卡密自动充值工具
摘要：主要为了实现将世纪天成卡号密码直接冲入用户帐户的功能，由于时间紧，没有使用线程，因此是采用的阻塞的方式来实现的，充值过程会造成系统假死； 验证码采用自动识别 postwww := tstringlist.Create ; StartTag:= True; For i:=0 To LstViewCard.Items.Count-1 do begin if LstViewCard.Items.Chec... 阅读全文

posted @ 2009-02-22 16:11 cntlis 阅读(3328) 评论(6) 推荐(0) 编辑

导航

< 2025年3月 >
日 一 二 三 四 五 六
23 24 25 26 27 28 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 1 2 3 4 5
点击右上角即可分享
微信分享提示