因为在做PingSwitch项目时发现在Ping交换机做循环的时候界面会死掉~老师说那要使用线程来做就不会~ 因为不用涉及线程间的数据同步~所以就最简单实用的就足够了·····找了好多教程，都是很复杂的···看到个简单的，大家分享一下。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,...
Delphi因为PingSwitch项目要不间断Ping交换机所以Ping的速度和评论不能太大，所以要进行延时操作，一般用Sleep，但是好奇就找了一下资料： 在Delphi中，通常可以用以下三种方法来实现程序的延时，即TTtimer控件，Sleep函数，GetTickCount函数。但是其精度是各不相同的。 一、三种方法的简单介绍 1）TTtimer控件 TTtimer控件的实质是调用Windows API定时函数SetTimer和KillTimer来实现的，并简化了对WM_TIMER 消息的处理过程。通过设置OnTimer事件和Interval属性，我们可以很方便的产生一些简单的定时事件。 2）Sleep函数 其中Sleep函数用来使程序的执行延时给定的时间值。Sleep的调用形式为Sleep(milliseconds)，暂停当前的进程milliseconds毫秒。Sleep的实现方法其实也是调用Windows API的Sleep函数。例如： sleep(1000); //延迟1000毫秒 而Sleep会引起程序停滞，如果你延迟的时间较长的话，你的程序将不能够响应延时期间的发生的其他消息，所以程序看起来好像暂时死机。 3）GetTickCount函数 在主程序中延时，为了达到延时和响应消息这两个目的，GetTickCount()构成的循环就是一种广为流传的方法。例如：...
Delphi函数 procedure pinghost(ip:string;var info:string); ip:目标ＩＰ地址； info:ping了以后产生的信息(1)或(2)； (1)成功信息 ip 发送测试的字符数 返回时间 (2)出错信息 Can not find host! 使用方法：...
Delphi今天下午学校主页突然模版不正常了~显示图片出错~然后提示： [CMS] Template Running Error, click here to learn more. 但是在此之前并没有动过网站和服务器~详细出错内容如下： [CMS] Template Running Error,...
解决问题开学这段时间开始比较忙，加上没什么心情，所以博客很久没有更新，见谅啊。 前几天报名参加了11月份的网工考试，刚好今天在找Cisco的模拟，找到好东西，大家分享一下····· 找了个Boson NetSim for CCNP7.05的破解，将其升级到了最新版本的7.0.12。顺便进行了下汉化，同时也汉化部分了模拟器中命令的帮助提示。 如何进行破解，请跟我来： 去Boson的官网上下载Boson NetSim for CCNP 的最新版本。 安装Boson NetSim for...