Курсовая работа: Проектирование и разработка программы ЧАТ для локальной сети
procedure TForm1.UpdateUserMas;
begin
For i:=1 to 255 do
Begin
UserMas[i].Status:=0;
UserMas[i].Rec:=False;
UserMas[i].Name:='Неизвестный';
UserMas[i].Image:=0;
end;
If ServerSocket.Socket.ActiveConnections<>0 then
Begin
For i:=1 to ServerSocket.Socket.ActiveConnections do
Begin
UserMas[i].Status:=2;
UserMas[i].Name:='Неизвестный';
UserMas[i].Image:=0;
ServerSocket.Socket.Connections[i-1].SendText('1');
end;
end;
end;
procedure TForm1.ServerBtnClick(Sender: TObject);
begin
If ServerBtn.Tag=0 then
Begin
ClientBtn.Enabled:=False;
HostEdit.Enabled:=False;
PortEdit.Enabled:=False;
NikEdit.Enabled:=False;
ServerSocket.Port:=StrToInt(PortEdit.Text);