Delphi线程简单创建、挂起、激活与终止

因为在做PingSwitch项目时发现在Ping交换机做循环的时候界面会死掉~老师说那要使用线程来做就不会~ 因为不用涉及线程间的数据同步~所以就最简单实用的就足够了·····找了好多教程,都是很复杂的···看到个简单的,大家分享一下。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,...


全文约 110 字, 预计阅读时间为 1 分钟

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()构成的循环就是一种广为流传的方法。例如:...


全文约 570 字, 预计阅读时间为 3 分钟

关于Delphi实现最简单Ping

函数 procedure pinghost(ip:string;var info:string); ip:目标IP地址; info:ping了以后产生的信息(1)或(2); (1)成功信息 ip 发送测试的字符数 返回时间 (2)出错信息 Can not find host! 使用方法:...


全文约 291 字, 预计阅读时间为 2 分钟

CMSWare Error code: 2 问题解决方法

今天下午学校主页突然模版不正常了~显示图片出错~然后提示: [CMS] Template Running Error, click here to learn more. 但是在此之前并没有动过网站和服务器~详细出错内容如下: [CMS] Template Running Error,...


全文约 61 字, 预计阅读时间为 1 分钟

Boson NetSim for CCNP 破解

开学这段时间开始比较忙,加上没什么心情,所以博客很久没有更新,见谅啊。 前几天报名参加了11月份的网工考试,刚好今天在找Cisco的模拟,找到好东西,大家分享一下····· 找了个Boson NetSim for CCNP7.05的破解,将其升级到了最新版本的7.0.12。顺便进行了下汉化,同时也汉化部分了模拟器中命令的帮助提示。 如何进行破解,请跟我来: 去Boson的官网上下载Boson NetSim for CCNP 的最新版本。 安装Boson NetSim for...


全文约 35 字, 预计阅读时间为 1 分钟