Курсовая работа: Проектирование и разработка программы ЧАТ для локальной сети
PortEdit.Text:='Портсервера';
HostEdit.Text:='Адрессервера';
NikEdit.Text:='Ананим';
TextEdit.Clear;
ChatMemo.Lines.Clear;
end;
procedure TForm1.UpdateUserList;
begin
UserListView.Items.Clear;
StrUserList:='';
ContList:=0;
For i:=0 to 255 do
Begin
If UserMas[i].Status<>0 then
Begin
UItems:=UserListView.Items.Add;
UItems.Caption:=UserMas[i].Name;
UItems.ImageIndex:=UserMas[i].Image;
If UserMas[i].Rec=False then ContList:=1;
StrUserList:=StrUserList+UserMas[i].Name+Chr(152);
end;
end;
If (ContList=0) And (ServerSocket.Socket.ActiveConnections<>0) then
Begin
For i:=0 to ServerSocket.Socket.ActiveConnections-1 do
Begin
ServerSocket.Socket.Connections[i].SendText('2'+StrUserList);
end;
end;