
Delphi
文章平均质量分 51
ked
兴趣于: Java, javascript,PaxScript, Delphi, .net
展开
-
Delphi里函数参数传递的问题
我在delphi写了如下代码:procedure DirectWrite(adatas : array of TStringList; xlsfilename : String ;app:String );beginend;目的是吧adatas这个数组里的数据写入到xls文件里. adatas是个动态数组. 使用时发现如果adatas的长度很大, 此函数非常慢. 不是慢在执行, 而是慢在调原创 2008-08-31 16:32:00 · 1595 阅读 · 0 评论 -
xlsreadwriteII2的一个unicode的bug
<br />xlsreadwriteII2 是一个很好用的delphi读写excel文件(xls)的控件。但是实际使用中发现不少bug。<br /> <br /> <br />输出的单元格内容,如果没有汉字,只有字母和数字,控件会输出acsii字符串。但是,如果除了字母、数字,另外含有“±”这个字符,xlsreadwriteII2 输出ascii,变成乱码。包含“±”必须输出为unicode字符串。<br /> <br /> <br />问题出在 SST2.pas 中的下面那个函数上,英文(非双字节)的 U原创 2010-07-24 22:26:00 · 2273 阅读 · 0 评论 -
C# Delphi处理分析QQ协议
C# Delphi处理分析QQ协议 大家说到QQ协议都觉得很神秘,是因为QQ不像MSN或者ICQ协议都已经官方公布了,而QQ的没有公布。研究它的人也不是特别的多,虽然已经有了基于 QQ协议所写成的第三方软件 foicq, qq plugins for gaim, LumaQQ,但是由于他们是基于二进制Stream的协议转载 2010-05-11 10:15:00 · 1626 阅读 · 0 评论 -
delphi写的程序out of memory??
delphi写的程序out of memory? 有如下代码: showmessage(++...++); 总报错:out of memory。原先一直以为是PIDL内存分配出了问题。。。调试了很久才发现,原来是字符串太长了。。 String类型默认时以最大长度255定长; 上面的字符串相加后超过了255长度限制。 改成: str:An原创 2010-04-07 22:29:00 · 9412 阅读 · 0 评论 -
模拟鼠标键盘操作,含硬件模拟技术。
模拟鼠标键盘操作,含硬件模拟技术。 转自:http://hi.baidu.com/2427/ 键盘是我们使用计算机的一个很重要的输入设备了,即使在鼠标大行其道的今天,很多程序依然离不开键盘来操作。但是有时候,一些重复性的,很繁琐的键盘操作总会让人疲惫,于是就有了用程序来代替人们按键的方法,这样可以把很多重复性的键盘操作交给程序来模拟,省了很多精力,按键精灵就是这样的一个软件。那么我们原创 2009-12-15 20:07:00 · 2174 阅读 · 0 评论 -
PaxScripter的bug
实在不知道如何描述这个bug,看代码: JavaScript:function test(){for (var i=0;i<10;i++){ if (i>5) return i;}} 如果那个if的条件里有“大于”,那么return语句将无法返回。“>”“>=”都不行。而“ 由于PaxScript太过于庞大,要想找到这个bug的位原创 2010-01-20 20:36:00 · 2910 阅读 · 6 评论 -
lkJSON - Delphi下使用json数据格式
如何用delphi处理json格式的数据? 用 lkJSON这个 delphi 处理json的库吧 使用方法 : program sample1; {$APPTYPE CONSOLE} uses SysUtils, uLkJSON in uLkJSON.pas; var js:TlkJSONobject; ws: TlkJSONstring;原创 2009-11-18 23:22:00 · 5777 阅读 · 1 评论 -
用delphi实现qq在Web登录的密码客户端加密功能.
使用到TIdHashMessageDigest5. uses IdHashMessageDigest; function Preprocess(aPassWord, aVerifyCode:string):string; begin Result:= Fmd5(md5_3(aPassWord) + UpperCase(aVerifyCode)); end; func原创 2009-11-18 23:29:00 · 1500 阅读 · 1 评论 -
BUG修复:PaxScript没有无符号右移操作
PaxScript没有无符号右移操作?? alert( [ -32045063 >>> 20 ] ); IE 中结果 = 4065 PAXScript 中结果 = –31看看JavaScript里>>和>>>的定义: >> 右移第一个运算数中的所有位,移动的位数由第二个运算数指定,移动的位数应该是0-31的整数。舍弃右边移出的位,填补在左边的位由原运算数的符号位决定,以便保持结果的原创 2009-10-24 20:05:00 · 1796 阅读 · 8 评论 -
BUG修复:PaxScript没有异或运算的bug
paxScript 居然不支持异或(^)运算? 其实paxScript已经实现 Parse_BitwiseXORExpression 函数 。只不过作者可能忘了 处理 ^ 符号。 解决方法如下: 修改PAX_JAVASCRIPT.pas,把有//ked注释的行 增加上去:共有3出增加: 1: SP_AND_ASSIGN = -1021; SP_XO原创 2009-10-23 23:01:00 · 1224 阅读 · 0 评论 -
BUG修复:PaxScript的Array.cancat会覆盖源数组的最后一个元素
array.concat函数执行后,会覆盖最后一个元素; 比如:var a=new Array();a[0]=1;a[1]=2; a.concat([3,4]); 结果 a 应该为:[1,2,3,4], 但实际运行的结果是:[1,3,4]; 源数组的最后一个元素被覆盖了。 经检查,发现错误出现在 IMP_JavaScript.pas 的_原创 2009-10-23 22:49:00 · 1074 阅读 · 2 评论 -
7zip plugin Api的一个bug
7zip plugin Api 提供了一个7-zip.dll和一个sevenzip.pas,这样就可以在delphi中对各种压缩文件进行操作了。支持十几种压缩文件的读写。强烈推荐!主页地址:http://www.progdigy.com/?page_id=13下载地址:http://www.progdigy.com/files/sevenzip.zip在实际使用中发现 有个原创 2009-10-22 14:06:00 · 1681 阅读 · 0 评论 -
远程机器的MAC查询
远程机器的MAC查询 ,不过只能查询本网段的IP,不能跨网段。 function SendARP(DestIP: DWORD; SrcIP: DWORD; pMacAddr: PDWORD; var PhyAddrLen: DWORD): DWORD; stdcall; external IPHlp原创 2009-10-06 14:55:00 · 1213 阅读 · 0 评论 -
如何获取远程计算机的用户列表?
如何获取远程计算机的用户列表? c++buider的: (以后用到再翻译为delphi的) TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TCom转载 2009-10-06 14:56:00 · 2097 阅读 · 0 评论 -
Variant 的相关函数
Variant 的相关函数 1.VarArrayCreate()和VarArrayOf()这两个常用就不说了2.VarArrayRedim()函数能修改variant数组的最高限。3.VarArrayDimCount()函数返回Variant数组的维数,4.VarArrayLowBound()和VarArrayHighBound()函数分别返回Variant数组的下边界和上边界转载 2009-10-06 14:44:00 · 725 阅读 · 0 评论 -
发布一个支持JavaScript的串口调试工具(免费使用)
支持JavaScript的串口调试工具。 可以在收到数据的时候调用自定义的JavaScript脚本。可以用脚本对收到数据进行读取、向指定串口发送字符串。如果发现Bug或有建议请发邮件到 ke_dong#126.com 下载地址:http://ked.download.youkuaiyun.com/http://download.youkuaiyun.com/source/812378原创 2008-11-26 22:55:00 · 4013 阅读 · 3 评论 -
Delphi下使用jslib?
参考:http://delphi.mozdev.org/javascript_bridge/ Delphi / Kylix SpiderMonkey Bridge This sub-project provides a bridge between Delphi / Kylix and SpiderMonkey, the JavaScript engine from the Mozi原创 2008-11-14 19:49:00 · 1000 阅读 · 0 评论 -
delphi 创建半透明的异形窗口
准备一个半透明效果的png图片放在res目录下。 新建一个rc文件:test.rc 加入项目。内如如下Png_test PNG "res\未命名-1.png" 代码如下:uses Winapi.GDIPAPI, Winapi.GDIPOBJ,ActiveX;procedure TForm1.FormCreate(Sender: TOb原创 2012-03-16 22:14:02 · 3874 阅读 · 1 评论