48355 (Проектирование и разработка программы ЧАТ для локальной сети), страница 3
Описание файла
Документ из архива "Проектирование и разработка программы ЧАТ для локальной сети", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48355"
Текст 3 страницы из документа "48355"
Begin
ServerBtn.Enabled:=False;
HostEdit.Enabled:=False;
PortEdit.Enabled:=False;
ClientSocket.Port:=StrToInt(PortEdit.Text);
ClientSocket.Host:=HostEdit.Text;
ClientSocket.Address:=HostEdit.Text;
ClientSocket.Active:=True;
ClientBtn.Tag:=1;
ClientBtn.Caption:='Отключиться';
end
else
Begin
ServerBtn.Enabled:=True;
HostEdit.Enabled:=True;
PortEdit.Enabled:=True;
ClientSocket.Active:=False;
UserListView.Items.Clear;
ChatMemo.Lines.Add('['+TimeToStr(Time)+'] Сессия закрыта.');
ClientBtn.Tag:=0;
ClientBtn.Caption:='Подключиться';
end;
end;
procedure TForm1.ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ChatMemo.Lines.Add('['+TimeToStr(Time)+'] Подключился клиент.');
UpdDo:=True;
end;
procedure TForm1.ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ChatMemo.Lines.Add('['+TimeToStr(Time)+'] Клиент отключился.');
UpdDo:=True;
end;
procedure TForm1.SendBtnClick(Sender: TObject);
begin
If ServerSocket.Active=True then
For i:=0 to ServerSocket.Socket.ActiveConnections-1 do
ServerSocket.Socket.Connections[i].SendText('0['+TimeToStr(Time)+'] '+NikEdit.Text+': '+TextEdit.Text)
else
ClientSocket.Socket.SendText('0['+TimeToStr(Time)+'] '+NikEdit.Text+': '+TextEdit.Text);
ChatMemo.Lines.Add('['+TimeToStr(Time)+'] '+NikEdit.Text+': '+TextEdit.Text);
TextEdit.Clear;
end;
procedure TForm1.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
text:=Socket.ReceiveText();
com:=StrToInt(Copy(text,1,1));
len:=Length(text)-1;
Case com of
0: ChatMemo.Lines.Add(Copy(text,2,len));
1: ClientSocket.Socket.SendText('1'+NikEdit.Text);
2: Begin
UserListView.Items.Clear;
text:=text+Chr(152);
pos:=2;
x:=0;
For j:=2 to len+1 do
Begin
x:=x+1;
If Copy(text,j,1)=Chr(152) then
Begin
UItems:=UserListView.Items.Add;
UItems.Caption:=Copy(text,pos,x-1);
If pos>2 then UItems.ImageIndex:=0 else UItems.ImageIndex:=1;
pos:=j+1;
x:=0;
end;
end;
end;
end;
end;
procedure TForm1.ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ChatMemo.Lines.Add('['+TimeToStr(Time)+'] Подключение к серверу.');
end;
procedure TForm1.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ChatMemo.Lines.Add('['+TimeToStr(Time)+'] Сервер не найден.');
end;
procedure TForm1.ServerTimerTimer(Sender: TObject);
begin
If ServerSocket.Socket.ActiveConnections<>0 then
Begin
For i:=1 to ServerSocket.Socket.ActiveConnections do
Begin
text:=ServerSocket.Socket.Connections[i-1].ReceiveText();
If text<>'' then
Begin
com:=StrToInt(Copy(text,1,1));
len:=Length(text)-1;
Case com of
0: Begin
ChatMemo.Lines.Add(Copy(text,2,len));
For j:=0 to ServerSocket.Socket.ActiveConnections-1 do
Begin
If (j+1)<>i then ServerSocket.Socket.Connections[j].SendText('0'+Copy(text,2,len));
end;
end;
1: Begin
UserMas[i].Name:=Copy(text,2,len);
UserMas[i].Rec:=True;
UpdateUserList;
end;
end;
end;
end;
end;
If UpdDo=True then
Begin
UpdateUserMas;
UpdateUserList;
UpdDo:=False;
end;
end;
procedure TForm1.TextEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key=VK_RETURN then SendBtn.Click;
end;
end.
Заключение
В моей курсовой работе я достиг, поставленных перед собою целей реализовав программный продукт онлайн общения - чат. Данный проект может быть развит в перспективе до более высокого уровня, добавив некоторые новые функциональных возможностей.
В данный момент, в связи с бурным развитием WEB технологий, нет смысла создавать собственную программу чата. Так как в более удобно взять уже готовый, полностью завершенный чат.
Приложение
Запущенный сервер:
При подключение к серверу (у сервера):
При подключении к серверу (у клиента):