2018年1月4日
摘要: 根据王垠大牛的《编程的智慧》文章总结,我看的原文地址是https://kb.cnblogs.com/page/549080/ 当经历有一些年头的编程后,才会更为共鸣,真正厉害的剑法,总是简单到无以复加的。 一、提炼代码是编程的修行 反复回头推敲代码(优化、精简)是提高编程水平最高效的方法,这和写文章 阅读全文
posted @ 2018-01-04 17:23 斑马猪 阅读(1702) 评论(1) 推荐(0) 编辑
  2014年7月20日
摘要: 这是一个Delphi实现的插件框架,我耗费了相当相当相当多的精力来设计她,虽然仅闪着点我微薄智慧的光芒,但我还是决定用Wisdom来命名她,也因它是我绝无仅有的,在完成1年多后回头来看仍能相当满意的作品,所以我补充了展示她特性的Demo和管理工具,决定将她开源发布给仍在坚持着的Delphi Fans... 阅读全文
posted @ 2014-07-20 01:27 斑马猪 阅读(5302) 评论(15) 推荐(7) 编辑
  2013年5月10日
摘要: 参数值传递的汇编实质,就是在堆栈上创建存储区,看看以下实现:先来看看Delphi代码,传一个数组参数进去1 procedure SortIt(a: array of Integer);2 var3 i, j: Integer;4 begin5 j := Length(a);6 for i:=1 to j do7 a[i-1] := i;8 end;调用代码为:procedure TForm1.btn1Click(Sender: TObject);var a: array[0..1] of Integer;begin SortIt(a); ShowMessage('a[... 阅读全文
posted @ 2013-05-10 19:13 斑马猪 阅读(343) 评论(0) 推荐(0) 编辑
  2013年5月9日
摘要: 实现一个根据输入的年、月、日计算总天数的函数,先用Delphi实现如下(没有考虑2月的特例,如输入2月30日),不过用于汇编练习,可以了: 1 function GetDays(year, month, day: Cardinal): Cardinal; 2 begin 3 Result := month * 30 - 30 + day; 4 if month>1 then 5 Result := Result + (month-1) div 2 + (month-1) mod 2; //31天的月 6 if month>2 then 7 if (year mod ... 阅读全文
posted @ 2013-05-09 19:16 斑马猪 阅读(422) 评论(0) 推荐(0) 编辑
  2012年1月31日
摘要: 这个Demo源码实现比较怪,有点拗脑,原因估是作者想把控件的使用做得简单,而封装太多。这里说是解析,其实是粗析,俺没有耐心每个实现点都查实清楚,看源码一般也就连读带猜的。这个Demo表达出的意义,在于在HTTP访问方式下,很方便的实现了客户端和服务端相互的主动通讯能力,这在需要实时消息交互,控制交互,数据互传上非常有意义,非常给力。一、Demo工作过程1. 实现功能:实现了上传文件到HTTP服务端的能力,大文件上传成功率极高,并且始终保持非常少的内存占用量。2. 工作过程:客户端和服务端的TRtcLinkedModule控件需建立通讯连接,在Demo中有两种方式,客户端先创建TRtcLinke 阅读全文
posted @ 2012-01-31 13:20 斑马猪 阅读(1397) 评论(0) 推荐(0) 编辑
  2011年4月11日
摘要: 对IE进行编程一直觉得是相当可怕的事情,里面的接口、函数、事件之多,解释之乱,需要了解的方方面面知识之博,让我仿佛看到了微软就是造物主,因为它已成功制造了这样的混沌,弄就了宇宙的初始状态…… 近来做个项目,要截取网页,试了获取mht,开始倒是成功了,但不知装了什么软件后,就再也无法保存成mht了,查了一堆资料,修复了一轮,又可以部份保存成功,如此不稳定肯定不能应用,放弃!不得不赞的是,网文快捕的保存网页的插件的确是精品,成功率很高,不知在后面作者做了多少工作,可惜作者没有作为接口提供。于是决定还是截网页为图片,同时获取其中文字保存用于查询的方式,经过几日无数查找资料尝试,在终于崩溃之前,玉帝. 阅读全文
posted @ 2011-04-11 17:48 斑马猪 阅读(1530) 评论(1) 推荐(0) 编辑