看了好多次有网友的提出关于用delphi实现ping的问题，今

开发技术指南» 文章正文

引言：看了好多次有网友的提出关于用delphi实现ping的问题，今

摘要：风花雪月 e梦情缘网络代号:wnhoo or sos_admin网名:e梦缘mail:wnhoo@163.com 功能：第一次執行的時候…會開啟project1.exe第二次執行的時候…不開啟project1.exe(因程式已執行)…但会将參數會丟給已執行的project1.exe第3次執行的時候…不開啟project1.exe(因程式已執行)&......

·mscomm32的简单应用 »显示摘要«

摘要：风花雪月 e梦情缘网络代号:wnhoo or sos_admin网名:e梦缘mail:wnhoo@163.com 因为看到很多网友对串口通信的问题，其中最多的是关于元件的选用与通信的实现。我想您不论用什么类型的控件操作rs232均是一样的，我比较喜欢用mscomm32，因为它是ms的，且是vb程式设计软件自带的，并且免费哦还有一个就是moxa的rs232专业开发包pcomm，到www.moxa......

用delphi实现ping
看了好多次有网友的提出关于用delphi实现ping的问题,今天又看到了;

所以就将这个功能写成一个类,并且提供一个函数方便大家的使用！

【程序编程相关:DBGrid使用全书(四) 】

【推荐阅读:ado异步查询的解决方案】

【扩展信息:Delphi线程类的使用(1) 】

函数

procedure pinghost(ip:string;var info:string);

ip:目标ｉｐ地址;

info:ping了以后产生的信息(1)或(2);

(1)成功信息

ip 发送测试的字符数　返回时间

(2)出错信息

can not find host!

使用

uses ping;

procedure tform1.button1click(sender: tobject);

var

str:string;

ping:tping;

begin

ping:=tping.create ;//一定要初试化哦

ping.pinghost(127.0.0.1,str);

memo1.lines.add(str);

ping.destroy ;

end;

[ping.pas]

(*作者:e梦缘*）

unit ping;

interface

uses

windows, sysutils, classes, controls, winsock,

stdctrls;

type

pipoptioninformation = ^tipoptioninformation;

tipoptioninformation = packed record

ttl: byte;

tos: byte;

flags: byte;

optionssize: byte;

optionsdata: pchar;

end;

... 下一页

·传说中的delphi9--diamondback »显示摘要«

摘要：昨天在msn上碰到现在深圳的老朋友“太可怕”，他告诉我今年的borcon上将会有delphi 9的正式消息，并发给了我这个：《come to borcon 2004 (us) to see the next delphi release! - by john kaster》。但是很遗憾，距离borcon 2004还有23天，我用google搜了一下，没有找到比bdn上......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：