ping Ip;
有一个API实现PING功能,具体的好象是:
HANDLE WINAPI IcmpCreateFile(VOID);
DWORD WINAPI IcmpSendEcho();
有一个API实现PING功能,具体的好象是:
HANDLE WINAPI IcmpCreateFile(VOID);
DWORD WINAPI IcmpSendEcho();
解决方案 »
- 如何在Delphi中运行VBS
- 为什么同样的设置却只有一个ClientDataSet能够更新数据?
- 急:请教程序最小化为托盘效果里的一个消息疑问,在线给分
- 请问一个查询语句(解决马上给分)
- pathstr:=ExtractFilePath(Application.ExeName);服务程序里面用什么办法实现
- 一个很简单的问题但是我解决不了?很急??在线?
- 光驱的问题
- 还是个bpl+exe的问题。。大家请进
- delphi上传附件到Mysql数据库
- 关于TTable的菜鸟问题.
- 使用query控件时,字段编辑器没法添加新字段,提示 no sql statement available,该如何解决?
- delphi下如何保存文件和上传
那你就完全可以控制客户机是否在上网,是否能上网了。
在D6有可以使用TNMFAST组件,就像现在的WINGATE。
2:function TForm1.CheckOffline: boolean; //示范代码,Copy过来的
var
ConnectState: DWORD;
StateSize: DWORD;
begin
ConnectState:= 0;
StateSize:= SizeOf(ConnectState);
result:= false;
if InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConnectState, StateSize) then
if (ConnectState and INTERNET_STATE_DISCONNECTED) <> 2 then result:= true;
end;
当上限的时候发送一个广播包
当收到广播包的CLIENT端给服务段也发送一个受到的MESSAGE就可以