引言: indy 10终于随着Delphi2005发布了,不过indy套件在我的印象中总是复杂并且BUG不断,说实话,不是看在他一整套组件的面子上,我还是喜欢VCL原生的Socket组件,简洁,清晰。
摘要:delphi代码标准文档revision 1.0.0.5编者:riceball(riceball@cq118.com) 本文主要基于“delphi development guide”一书的代码标准部分而来,编者参考其它的delphi代码标准规范,以及结合现目前delphi社区中流行的程序书写惯例,作了一些修改和裁剪,你也可以根据自己的需要进行裁剪和修改。如果你有什么建议,......
摘要:數據庫table定義create table test(image image)delphi程序adoquery1的sql為select * from testunit unit1;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs,jpeg,stdctrl......
Delphi组件indy 10中IdTCPServer修正及SSL使用心得
上一页 ... lyarn.thread.stop; //没完没了的调用stop过程,却不处理任何消息与同步事件 【程序编程相关:
QQ窗体自动隐藏效果探究
】 【推荐阅读:
读书笔记:Delphi5 开发人员指南 】 // dont free the yarn. the thread frees it (idthread.pas) 【扩展信息:
扫雷外挂的设计与实现(五)
】 end; end;
它的上一级调用者,没完没了的判断服务线程数量,然后没完没了地调用上面这个函数,调用者原代码如下
procedure tidtcpserver.terminateallthreads;
var i: integer; begin // todo: reimplement support for terminatewaittimeout
//bgo: find out why terminateallthreads is sometimes called multiple times
//kudzu: its because of notifications. it calls shutdown when the scheduler is // set to nil and then again on destroy. if contexts <> nil then begin with contexts.locklist do try for i := 0 to count - 1 do begin // dont call disconnect with true. otheriwse it frees the iohandler and the thread // is still running which often causes avs and other. tidcontext(items[i]).connection.disconnect(false); ...
下一页 摘要:newaction := taction.create(nil);newaction.actionlist := services.actionlist;newaction.caption := getmenutext();newaction.hint := display a silly dialog box;newaction.imageindex := imageindex;newactio......