MichaelJScofield的专栏

要好好学习。

Delphi 计算MACD指标数值

基于上一篇文章Delphi 计算火币网KDJ指标数值的基础。{ MACD单个数据结构 } Type TMACD = record DIF: Extended; DEA: Extended; BAR: Extended; end;{ 获取MACD } function...

2016-08-28 18:36:15

阅读数:1539

评论数:0

Delphi 计算火币网KDJ指标数值

感谢七爷的无私帮助和纠正。 为了尽可能地提高数据复用,可能给多个指标运算。所以获取的周期K线数据保存到了一个数组。定义如下: //存储K线数据的结构 TKline=record Open :Extended; High :Extended; Low :Ext...

2016-08-28 18:25:18

阅读数:2617

评论数:0

Delphi Websocket组件获取数据

Websocket 是个好东西。目前写的量化交易软件,行情的更新目前主要靠它,推送最新的行情信息到软件。 找到两个。Delphi Websocket组件 仅做一些简单的记录.从资料来讲,可能esegece要更为成熟一点,是一款免费但是不开源的组件。资料文档也比较健全,因此打算采用这个。组件我...

2016-08-28 18:07:33

阅读数:5376

评论数:5

Delphi 快速读取TXT 指定行的数据

继上次的问题。在提取了大量的Email 数据后。现在读取数据成了一个问题。今天我取过1~100w的数据。明天我要取100w~200w的数据。在不用数据库的情况下,我搞了一个下午。Delphi Tstringlist 和 textfile 的简单读取是满足不了的。Tstringlist加载不了大数据...

2014-12-11 17:48:47

阅读数:6801

评论数:1

Delphi 提取TXT中的Email 数据

仅作记录,方便复用。适合以下格式的类型处理 “ aaaa dfaafa@qq.com sfsfs afalfjaf afdaf@sina.com.cn afaf 阿发 ” 一行一个 email 有明显的分割符号。一行多个email 还要改一下。 program Project1; {...

2014-12-03 00:20:10

阅读数:1530

评论数:0

关于Delphi Clipboard 无法访问的问题 解决

今天需要用到一个功能。就是截图图

2014-10-15 17:09:24

阅读数:2577

评论数:0

Delphi 比较第三方正则组件 PerlRegEx 和 官方的 RegularExpressions 速度测试

我刚刚才知道Delphi XE4 已经有官方自带的正则组件RegularExpressions 。然后试了一下,感觉简洁

2014-08-30 18:29:52

阅读数:3457

评论数:1

Delphi 用WinInet 单元实现 POST提交数据

由于贪方便,用idhttp控件实现POST部分。结果发现频繁提交的时候总产生10054 等N多不可控错误。遂想换其它方法。百度找了下。基本都是靠webbrowser 、idhttp等控件提交的。于是,摸索着用 wininet.dll的api自己实现了一个webpost。效果不错。特地贴上方便自己以...

2013-04-14 02:06:16

阅读数:10201

评论数:2

CMSDJPHP 七禧舞曲管理系统cookies欺骗漏洞 0day

本人首发于T00ls,转一份来自己博客。转载请注明出处。 微博:http://weibo.com/yinyongyou 应该是通杀所有PHP版本 。最新版本没有测试。从补丁来看,漏洞依然存在。 这是一个神级漏洞,体现了程序员的神逻辑。 看代码 admin/admin_check....

2012-12-23 21:37:35

阅读数:2393

评论数:0

Delphi根据字符分割字串成数组

发现经常需要这个函数,每次都要翻找以前的工程文件,遂发上来方便以后索引。 function Split(const Source,Delimiter:String):SArray; var iCount,iPos,iLength: Integer; sTemp: String; aS...

2012-10-13 03:16:45

阅读数:3486

评论数:0

Delphi实现解析百度搜索结果link?url=

首先看到CB放了一个PHP版(http://www.cnbeta.com/articles/206465.htm)的。遂敲了一个Delphi版的胡闹一下。 代码很简单 就不详细标注了。 unit uMain; { Created at 2012/01/19 微博 htt...

2012-09-19 21:36:37

阅读数:5847

评论数:4

关于一次文本读取的速度测试 TStringList PK AssignFile

原因是要做一个多线程读取文本的小程序,但是各种纠结。不知道读取文本用哪个好。 TStringList 方便点,AssignFile快点。假如速度相差不是特别大的话,我还是选用TStringList吧。写了一段代码测试。如下: program ReadTest; { Code by Mich...

2012-07-18 03:40:31

阅读数:1897

评论数:3

关于国内某CMS系统备份文件命名规则产生的爆破字典挫码

其实也就想写出来。所以命名没有注意。,但是懒得改。很乱,将就着吧- -。表示其实你们可以边看边骂,我无所谓。 由于某CMS备份数据库的时候命名太过于挫。因此产生的备份文件可以通过穷举路径把它找出来。其实代码我都看不下去了。太特么乱了。但是博客好久没写了,哥其实是黔驴技穷了才拿它顶事。 首先先看...

2012-07-07 04:59:33

阅读数:1911

评论数:0

模拟PspTerminateProcess结束进程-学习笔记

此文是阅读黑防上胡文亮大牛《模拟实现NT系统通用PspTerminateProcess》后作为学习笔记记录下来的,仅作学习记录,理解错的请勿拍砖。和通过特征暴力搜索定位PspTerminateProcess的地址的方法相比,亮点就是模拟了实现PspTerminateProcess,PspTermi...

2012-05-27 16:05:10

阅读数:4202

评论数:0

Delphi 获取浏览器路径 注册表获取默认浏览器、注册表读取IE路径 拼接IE路径

Delphi 获取浏览器路径 注册表获取默认浏览器、注册表读取IE路径 拼接IE路径。能想到的挫招都用上了。 function GetBrowserPath:string; var hMyKey : HKEY; sPath : array [0..Max_P...

2012-05-27 15:47:03

阅读数:2230

评论数:0

2010年的外挂小作品 - QQ对对碰单机版外挂

其实呢。这个重中之重是找对基址= =。源码么纯粹YY。 这个小外挂实现了各种淫荡的功能。比如把所有的动物换成相同的。 还有更加淫荡的直接加分功能。= =纯粹是蛋疼。 unit Unit1; interface { 程序:Michael J Scofield ...

2012-05-26 19:14:06

阅读数:838

评论数:0

发一个前两年写的Delphi小恶作剧程序

参考了各种文章。那段时间刚好学习下注册表,图片处理等等。于是写了这么一个脑残的程序。好挫的代码。删掉了感染EXE等部分代码。 在挫都是自己写的,就不怕丢脸了,慢慢放上敲的代码。 program Anywhere; {09.08.25 今天改了很多。加入了HTML等网页文件的“感染”提升进程优先级...

2012-05-22 19:26:02

阅读数:1874

评论数:0

第一次就这么给了你。

第一次在csdn开博客。原因是受够了百度空间粘贴上代码后变得一塌糊涂。有一个新博客 就得有个新的开始吧。writeln('HelloBlog!');

2012-05-22 19:04:15

阅读数:417

评论数:0

提示
确定要删除当前文章?
取消 删除
关闭
关闭