begin
for i:=ListView1.Items.Count-1 downto 0 Do
begin
TCustomWinSocket(ListView1.Items[i].Data).SendText('我上线了'); //这个好比是A消息
end;
send_all; //这个好比是B消息
-------------------------------------------------------------------function Tform1.send_all : string; //send_all函数
var
i,j: integer;
ip_string: string;
begin
ip_string := '@@@@@@'; for j:=ListView1.Items.Count-1 downto 0 Do
begin
ip_string := ip_string + ListView1.Items[j].SubItems.strings[0]+';
end;
end;
for i:=ListView1.Items.Count-1 downto 0 Do
begin
TCustomWinSocket(ListView1.Items[i].Data).SendText('我上线了'); //这个好比是A消息
end;
send_all; //这个好比是B消息
-------------------------------------------------------------------function Tform1.send_all : string; //send_all函数
var
i,j: integer;
ip_string: string;
begin
ip_string := '@@@@@@'; for j:=ListView1.Items.Count-1 downto 0 Do
begin
ip_string := ip_string + ListView1.Items[j].SubItems.strings[0]+';
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货