D
DelphiVip
Unregistered / Unconfirmed
GUEST, unregistred user!
我用这个扫描端口时,如果遇到连不通,就会卡住几十秒.
我在网上查了下超时函数.TIMEOUT、ReceiveTimeout…但是在属性中都没有这些函数.
有什么方法可以解决呢? 求助..麻烦给出实例.
这个是我的扫描过程代码
Procedure checkroot;
var
kaiqi:integer;
begin
for kaiqi:=1 to 255 do
begin
sleep(100);
form1.Client.RemoteHost:='192.168.1.'+inttostr(kaiqi);
zjip:='192.168.1.'+inttostr(kaiqi);
form1.Client.Active:=False;
form1.Client.remotePort:='80';
form1.Client.Active:=TRUE;
if form1.Client.Connected <> false then form1.ListBox1.Items.Add(zjip);
end;
求！！！
我在网上查了下超时函数.TIMEOUT、ReceiveTimeout…但是在属性中都没有这些函数.
有什么方法可以解决呢? 求助..麻烦给出实例.
这个是我的扫描过程代码
Procedure checkroot;
var
kaiqi:integer;
begin
for kaiqi:=1 to 255 do
begin
sleep(100);
form1.Client.RemoteHost:='192.168.1.'+inttostr(kaiqi);
zjip:='192.168.1.'+inttostr(kaiqi);
form1.Client.Active:=False;
form1.Client.remotePort:='80';
form1.Client.Active:=TRUE;
if form1.Client.Connected <> false then form1.ListBox1.Items.Add(zjip);
end;
求！！！