28-12-2009, 01:54 PM
القيت نظرة سريعة على ما كتبت
جرب تغيير هذا
كود :
I := ClientsIPList[StrItemNum].Count - 1;
E := -1;
for x := 0 to Thread.Count - 1 do
begin
e := e + 1;
if e >= i then e := i;// + 1
ac:= Thread[x];
If (ac.Binding.PeerIP = ClientsIPList[StrItemNum].Strings[e]) and (IntToStr(ac.Binding.PeerPort) = ClientsPortList[StrItemNum].Strings[e]) then
begin
ac.Connection.IOHandler.WriteLn('_CS_RoomUsersListSends');
ac.Connection.IOHandler.Write(Str, True,Tencoding.UTF8);
end;
end;كود :
I := ClientsIPList[StrItemNum].Count - 1;
for x := 0 to Thread.Count - 1 do
begin
ac:= Thread[x];
for e:=0 to i do
If (ac.Binding.PeerIP = ClientsIPList[StrItemNum].Strings[e]) and (IntToStr(ac.Binding.PeerPort) = ClientsPortList[StrItemNum].Strings[e]) then
begin
ac.Connection.IOHandler.WriteLn('_CS_RoomUsersListSends');
ac.Connection.IOHandler.Write(Str, True,Tencoding.UTF8);
end;
end;