多线程ping IP地址列表在一个listview里(100分)

J

jamily

Unregistered / Unconfirmed
GUEST, unregistred user!
我的代码如下:
要解决就是多线程ping
procedure TForm1.BitBtn2Click(Sender: TObject);
//测试遍历IP列表显示
var
lp:integer;
ss : TStringList;
str,dec,PingInfo : string;
ping:Tping;
begin
ListView2.clear;
ListView2.Columns.Clear;
ListView2.ViewStyle := vsReport;
//显示listview报表样式
ListView2.SmallImages:=imageList2;
//listview显示图标
for lp := 0 to listview1.items.count - 1 do
//遍历IP列表
begin
str :=listview1.Items[lp].SubItems[0] ;
dec := ':';
ss := split(str,dec);
// ping:=Tping.create ;//一定要初试化哦 //这是我随便写的
// ping.pinghost(ss[0],PingInfo);
//这是我随便写的
if PIN成功 then
Listview2.Items.Add.SubItems.Add(listview1.Items[lp].Caption);
ss.Free;
ping.destroy ;
end;

end;
 
J

jamily

Unregistered / Unconfirmed
GUEST, unregistred user!
自已已解决!!
 
C

cqwty

Unregistered / Unconfirmed
GUEST, unregistred user!
结果贴出来撒,这样就更完整了,顺便顶你一下,赚点小分,嘿嘿。
 
J

jamily

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 
顶部