张志峰的博客

水滴石川,积少成多。

导航

09 2016 档案

摘要:var s: string; p: pointer; s := PChar(p);前提p指向的字符串要以#0结尾。 阅读全文

posted @ 2016-09-20 14:49 ╰★张志峰★╮ 阅读(2932) 评论(0) 推荐(0)

摘要:在线程中如何使用TClientSocket组件并自动检测该组件的事件?我想在一个线程中动态创建一个TClientSocket组件,并要求该组件能够自动检测Socket事件(例如OnRead、OnError),如何实现? 解决方案 先自定义响应事件的过程 procedure ClientSocket1 阅读全文

posted @ 2016-09-20 14:16 ╰★张志峰★╮ 阅读(429) 评论(0) 推荐(0)

摘要:http://blog.csdn.net/newzhhsh/article/details/2905874 如果你是在线程的构造函数中创建TClientSocket,那么TClientSocket还是属于主线程,不属于 这个线程。如果你是在线程的Execute()中创建TClientSocket,那 阅读全文

posted @ 2016-09-19 18:34 ╰★张志峰★╮ 阅读(1125) 评论(0) 推荐(0)

摘要:添加方法:菜单component->Install Packets按Add按钮,选择delphi目录里的bin目录下的dclsockets70.bpl(delphi2010是dclsockets140.bpl),然后TClientSocket和TServerSocket控件就会出现在Internet 阅读全文

posted @ 2016-09-19 16:47 ╰★张志峰★╮ 阅读(290) 评论(0) 推荐(0)

摘要:http://www.cnblogs.com/findumars/p/5272658.html 本文采用delphi7+TServerSocket+TClientSocket; 笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和 阅读全文

posted @ 2016-09-13 09:02 ╰★张志峰★╮ 阅读(1403) 评论(0) 推荐(0)

摘要:Delphi ServerSocket,ClientSocket示例 2008-05-09 16:20 Delphi TServerSocket,TClientSocket实现传送文件代码 1.建立两个工程Server及Client, 分别放TServerSocket及TClientSocket控件 阅读全文

posted @ 2016-09-13 09:01 ╰★张志峰★╮ 阅读(3094) 评论(0) 推荐(0)

摘要://**********************************************************************************//说明: 阻塞线程下为什么不触发OnRead和OnWrite事件//作者: licwing 时间: 2001-5-18//Emai 阅读全文

posted @ 2016-09-13 08:57 ╰★张志峰★╮ 阅读(961) 评论(0) 推荐(0)

摘要:TServerSocket阻塞线程单元,希望对你有所帮助。需要注意的是:1、如果你使用TServerSocket的stNonBlocking模式,重写TServerClientThread线程时要重载TServerClientThread的ClientExecute过程,写你自己的处理过程;2、如果 阅读全文

posted @ 2016-09-13 08:56 ╰★张志峰★╮ 阅读(677) 评论(0) 推荐(0)

摘要:转贴自:http://topic.csdn.net/t/20010727/16/212155.html ClientSocket 和ServerSocket几个重要的属性: 1.client和server都有port属性,需要一致才能互相通信 2.client有Address属性,使用时填写对方(s 阅读全文

posted @ 2016-09-08 15:31 ╰★张志峰★╮ 阅读(5709) 评论(0) 推荐(0)

摘要:DELPHI下的SOCK编程 本文是写给公司新来的程序员的,算是一点培训的教材。本文不会涉及太多的编程细节,只是简单讲解在DELPHI下进行Winsock编程最好了解的知识。 题外话:我认为学习编程就如同学习外语一样,最好的方式是你先学会如何去运用它,然后才是了解它的语言特性、语法之类的东西。不过很 阅读全文

posted @ 2016-09-08 15:25 ╰★张志峰★╮ 阅读(750) 评论(0) 推荐(0)

摘要:http://blog.csdn.net/guoquanyou/article/details/7445773 InnoSetup真是一个非常棒的工具.给我的印象就是非常的精干.所以,该工具已经一步步的把我的InstallerVise代替了.InnoSetup最棒的在于他的脚本语言,完全的pasca 阅读全文

posted @ 2016-09-04 13:04 ╰★张志峰★╮ 阅读(1457) 评论(0) 推荐(0)

摘要:安装命令行参数安装程序接受可选的命令行参数。这些对于系统管理员以及其它程序调用安装程序时有用。/SP- 在安装开始时禁用“这将安装... 你想继续吗?”的提示,当然,如果 [Setup] 段的指令 DisableStartupPrompt 设为 yes 时,这将无效。/SILENT , /VERYS 阅读全文

posted @ 2016-09-04 13:02 ╰★张志峰★╮ 阅读(680) 评论(0) 推荐(0)

摘要:var ErrorCode: Integer; IsRunning: Integer; // 安装时判断客户端是否正在运行 function InitializeSetup(): Boolean; begin Result :=true; //安装程序继续 IsRunning:=FindWindow 阅读全文

posted @ 2016-09-04 13:00 ╰★张志峰★╮ 阅读(1481) 评论(0) 推荐(0)

摘要:一般来说,inno只卸载你安装的文件,自动生成如Thumb.db(缩略图)等文件,卸载程序是不会删除这些的,此时你希望整个安装目录删除则可用你说的方法删除。若想保留某些文件,则必须在[File]段中拷贝文件时使用uninsneveruninstall标记(具体可查看帮助文档),但不可再使用代码Del 阅读全文

posted @ 2016-09-04 12:43 ╰★张志峰★╮ 阅读(2313) 评论(0) 推荐(0)

摘要:select * from tb_QuantifyResult where iSamplingOrCalibration = 1 and cComponentName <> ' + QuotedStr('') + ' order by date(cPeakTime) desc, time(cPeak 阅读全文

posted @ 2016-09-01 11:11 ╰★张志峰★╮ 阅读(533) 评论(0) 推荐(0)