Клиент/сервер Socket. Ошибка при отключении

@MrJone · Регистрация: 18.09.2014

Студворк — интернет-сервис помощи студентам

Всем привет. Дело такое. У меня появилась незадача. У меня рабочий чат клиент/сервер. Дело в том, что когда я выключаю клиент (перед тем программно отключаюсь от сервера)

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
procedure TForm3.N3Click(Sender: TObject);
begin
cs.Close;
end;

мне пишет ошибку Asynchronos socket error 10053. Не могу понять, что такое.
Код сервера тут:

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
var
  Form2: TForm2;
  list:tstringlist;
  conn:integer = 0;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
sv.Active:=true;
sv.Open;
BitBtn1.Enabled:=false;
BitBtn2.Enabled:=true;
list:=tstringlist.Create;
list.Add(TimeToStr(Time)+' '+'Start server; Port=81');
end;
 
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
sv.Active:=false;
BitBtn1.Enabled:=true;
BitBtn2.Enabled:=false;
list.Add(TimeToStr(Time)+' '+'Close stream...');
if FileExists('log_'+DateToStr(Date)+'.txt')=false then
DeleteFile('log_'+DateToStr(Date)+'.txt');
list.SaveToFile('log_'+DateToStr(Date)+'.txt');
list.Destroy;
end;
 
procedure TForm2.BitBtn3Click(Sender: TObject);
begin
if sv.Active=true then
begin
sv.Active:=false;
BitBtn1.Enabled:=true;
BitBtn2.Enabled:=false;
list.Add(TimeToStr(Time)+' '+'Close stream...');
if FileExists('log_'+DateToStr(Date)+'.txt')=false then
DeleteFile('log_'+DateToStr(Date)+'.txt');
list.SaveToFile('log_'+DateToStr(Date)+'.txt');
list.Destroy;
end;
Application.Terminate;
end;
 
procedure TForm2.FormDblClick(Sender: TObject);
begin
ShowMessage(IntToStr(sv.Socket.ActiveConnections));
end;
 
procedure TForm2.svAccept(Sender: TObject; Socket: TCustomWinSocket);
begin
;
end;
 
procedure TForm2.svClientConnect(Sender: TObject; Socket: TCustomWinSocket);
var
i:integer;
sets:string;
begin
conn:=conn+1;
sets:=TimeToStr(Time)+' Присоеденился: '+socket.RemoteHost;
list.Add(sets);
 for i:=1 to conn-1 do
  begin
    sv.Socket.Connections[i].SendText(sets)
  end;
end;
 
procedure TForm2.svClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
conn:=conn-1;
end;
 
procedure TForm2.svClientError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
;
end;
 
procedure TForm2.svClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
i:integer;
text,text2,dd:string;
begin
dd:=socket.ReceiveText;
for i:=1 to conn-1 do
  begin
    try
    text:=TimeToStr(Time)+' '+dd;
    sv.Socket.Connections[i].SendText(text);
    text2:=text;
    list.Add(text2);
    except
 
    end;
  end;
 
end;

Помогите если можете)

@mss · 13.01.2015, 23:22

Сообщение от MrJone

при закртии уже по сути отключившегося клиента вылетает ошибка 10053

На стороне сервера "вылетает" ?
А где на стороне сервера ты "закрываешь" по сути отключившегося клиента ?
И зачем его "закрывать", если он гарантированно и gracefully отключился, о чем тебе просигналило событие OnClientDisconnect для этого клиента ?

Добавлено через 6 минут
Вот отключение сервером клиента по его (клиента) просьбе:

Delphi
1
2
3
4
5
6
dd:=socket.ReceiveText;
if dd='disc' then
  try
   Socket.Close;// объект-параметр Socket как раз и представляет того клиента, который передал некие данные (или закрыл на своей стророне соединение ), что собственно и стало причиной возбуждения события OnClientRead
  except
  end;

Нафих тут цикл - не понятно

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .