Khan 's Notebook

摘要： 这个是其他人写的相关函数http://blog.codelphi.com/hanklee/archive/2004/06/08/13932.aspx?Pending=true我是用传址的过程来实现结果返回的,反正挺简单的//Strs: TStrings 分割后的字符串元素//str: string; 源字符串//spt: string 分隔符procedure TFileServerThread.... 阅读全文

摘要： 第一个思路应该是用建立串口的方式来取得串口名,若建立失败,则此串口不存在voidGetComList(){CStringstrCom;intnCom=0;intcount=0;HANDLEhCom;do{nCom++;strCom.Format("COM%d",nCom);hCom=CreateFile(strCom,0,0,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMA... 阅读全文

摘要： 最近要写一个socket的多线程的服务,刚刚好从网上找到这篇文章,觉得有用,保存下来 {使用TServerSocket构件提供多线程服务www.mynetlife.com 2002-12-29 网迷教程使用TServerSocket构件提供多线程服务对于一个socket来说，很容易提供一个侦听消息的多线程服务。Delphi自身也提供了这样的构件：TServerSocket。不过这里边也需要一点小技... 阅读全文

摘要： 大家对有object pascal的字符串可能您经常用AnsiString其他的字符串一般很少用到。 下面举几个字符串的几个类型：AnsiSring 这是Pascal的默认类型。其长度没有限制的。并且字符串结束是以null结尾。也就是以'/0'结尾。ShortSring是为了与Delphi以前的版本保持兼容性。其长度限制在255个字符之内的。WideSring与AnsiString类似，但它是由W... 阅读全文

摘要： VCL的诞生和设计原理从无到有--?VCL对象生命的成型基本的对象管理服务至少应该包含下面的服务:l 对象的创建和初始化l 对象方法的分配l 对象的消灭Object Pascal 的对象模型使用Object pascal定义的Tobject类非常简单,只要如下两行代码就可以Tobject =classEnd;这虽然时合法的类定义,但是实际用处不大,因为在创建类对象时必须为对象分配内存并且进行对象初... 阅读全文

摘要： 如何设计和驱动多任务执行环境这一节描述，一个单任务的操作系统，以一个大型的循环（loop）,不断的检查每一个应用程序是否触发了特定的事件，如鼠标，键盘。然后否定其运行效率及反应速度（ ？） 这里所说的事件驱动式操作系统是如何运作，是不是也由一个loop来检测机器的当前事件，然后将事件转化成消息（Message）,然后分派给正确的应用程序来处理。消息结构:MyMessage = packed rec... 阅读全文

摘要： RetroGuard的使用方法： RetroGuard是一个很不错的Java混淆器，而且在JBuilder7的企业版中也带了这个混淆器。 RetroGuard本身是一个Java程序(一个Jar包)，所以要使用的话必须先安装JDK。运行前需要设置一些环境变量，除了要在PATH中包含java的执行路径以外，还要在CLASSPATH中加入D:\retroguard\RetroGuard.jar（假设你的... 阅读全文

摘要： /**将一串以空格分隔并以空格结尾的字符串转换为字符串数*@param　s　以空格分隔并以空格结尾的字符串*@return　String[]　字符串数组　*/private　String[]　StringToArray(String　s)　{　　　　String[]　strs　=　new　String[StringCount(s,'　')];　　　　String　tmp　=　s;　　　　for　(... 阅读全文