怎样用程序禁用、启用网络连接???如果您是DB2高手,也请进来看一下,谢了!(100分)

  • 主题发起人 主题发起人 dlnew
  • 开始时间 开始时间
D

dlnew

Unregistered / Unconfirmed
GUEST, unregistred user!
在做数据库备份时,被要求所有的客户端程序必须退出。可到时候总有那么一两台机器不退
出来。只好在月黑风高之时,溜进主机房,拔掉网线......就为这个,单位里的警卫都找我
好几回了!
所以想写一个自动备份的程序,而这个程序必须的一个功能就是会自动“拔掉网线”,事儿
完了以后又能“自动插回网线”!

另外再问一题:DB2中,对应用程序的连接,可以在“控制中心”里对相应的实例用强制方
法把它们断开!请问如何用语句来实现这种“强制”?

分不够就打个招呼,只要问题解决!
 
//怎样用程序禁用、启用网络连接
http://www.delphibbs.com/delphibbs/dispq.asp?LID=1998528

需要代码的话留下Mail
 
是delphi的代码吗?
email:qxyls@163.com
谢谢!
 
谁把问题提前了?

TO dlnew:
今天下午已经给你发送了邮件,请查收!
 
To pihome:
可以也给我一份吗?谢谢!
e-bz@163.com
 
当然是我自己提前的!
 
to pihome:
您好,代码已收到,谢谢!
有2个问题,就是
其中的common.pas是你自己写的吗?
能用API函数来达到相同的功能吗?

再次感谢!!
 
Common.pas都是从C转换过来的API函数声明,就是调用API才达到此功能的
本演示程序参考NTDDK/src/general/setup/Enable,有兴趣的话可以继续研究
 
>>本演示程序参考NTDDK/src/general/setup/Enable
sorry,不明白!
 
为何要用断网来解决呢!
数据库系统本身应有断开连接的功能啊!sqlServer是有的,DB2就不太清楚了!
 
DDK: DRIVER DEVELOPMENT KIT
你可以到 driverdevelop.com 找一找,我用的是Win2K DDK
上面所说的是安装后文件所在路径
 
to zzhi:
DB2也有,但不知道该怎么写语句

to pihome:
没找到driverdevelop.com!
 
http://www.driverdevelop.com
多试几次,访问很慢很慢的。。。

如果需要,我可以把其中用到的几个文件单独给你发过去
 
楼主对不起,且你的宝地一用[:)]
to pihome:谢谢你的代码,试了一下你的程序在98下不行,列不出网卡,禁用就更不同提了
 
to wfzha:
刚刚弄好98,调试修改如下,重新编译即可[:)]
procedure TDevForm.EnumNetDevice;
begin
SetupDiGetClassDevs(Nil,Nil,0,DIGCF_ALLCLASSES or DIGCF_PRESENT);
//修改成 SetupDiGetClassDevs(Nil,Nil,0,DIGCF_ALLCLASSES);
while ... do
//循环体中所有Exit修改成Continue;
end;
end;

function TDevForm.ChangeDevState(DevIndex, NewState: DWORD): BOOL;
begin
SetupDiGetClassDevs(Nil,Nil,0,DIGCF_ALLCLASSES or DIGCF_PRESENT);
//修改成 SetupDiGetClassDevs(Nil,Nil,0,DIGCF_ALLCLASSES);
end;
 
to pihome:
多谢!
 
to pihome:
也给我发一份吧,谢谢
heroes@btamail.net.cn
 
给我一份
qin_mi@21cn.com
 
谢谢大侠也给我一份,我想得想的脑袋都快炸了;(
myy@up369.com
 
pihome

fjha@163.net

need 3X
 
后退
顶部