Скачать: CL | DM;

ServerSocket Connections   Найти похожие ветки 

← →
kosmach ©   (2002-08-13 08:47) [0]

Подскажите пожалуйста, вот есть у меня ServerSocket, я беру и в событии onClientConnect добавляю Host нового клиента в ListBox, а потом нужно в onClientDisconnect его от тудова удалить, но как я не пытался, так и не смог определить индекс отсоединяющегося клиента. Ну неужели никак нельзя сделаться, помогите кто-нибудь разобраться.

---

← →
kosmach ©   (2002-08-13 09:17) [1]

Люди, помогите мне пожалуйста, ну неужели никто не знает как в любом обрабатываем ServerSocket"ом событии определить какой же все таки клиент сейчас обрабатывается. Может я чего-то не допонимаю, но ведь с этим же постоянно сталкиваешься, кто-нибудь откликнитесь пожалуйста, очень прошу.

---

← →
Димон1   (2002-08-13 09:47) [2]

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ShowMessage(Socket.RemoteHost);
end;

---

← →
kosmach ©   (2002-08-13 09:58) [3]

> Димон1

Как Host получить я и так знаю это из выше мною сказанного следует.

Не могу я только по хостам различать клиентов, он может хоть у всех клиентов одинаковым быть.

---

← →
Димон1   (2002-08-13 10:00) [4]

RemoteAddress

---

← →
kosmach ©   (2002-08-13 10:04) [5]

> Димон1


Ну во представь себе два приложения запущенных на одном и том же компе, которые коннектятся к одному и тому же серверу, на сервере у них у обоих буде виден один и тот же хост и один и тот же адресс, а клиента два, именно поэтому и надо различать их по индексу.

---

← →
Димон1   (2002-08-13 10:10) [6]

procedure Tdm.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
var
i:integer;
begin
for i:= 0 to ServerSocket1.Socket.ActiveConnections-1 do
begin
if ServerSocket1.Socket.Connections[i]=Socket then ShowMessage(IntToStr(i));
end;
end;

---

← →
kosmach ©   (2002-08-13 10:22) [7]

Классно, если сработает - цены тебе нет. Спасибо, а то я бы еще долго б не догодался.

---

← →
Димон1   (2002-08-13 10:51) [8]

:)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c