Как определить номер клиента

[leontv]

TClientSocket посылает строчку серверу TServerSocket.
Как на стороне сервера определить номер клиента, пославшего строку?
Имеется в виду порядковый номер активного соединения.

Очень нужно. Давно ищу помощи, но пока тщетно.

[KORN]

ну так у тя пусть на определенном компе будет уникальный порядковый номер у клиента и когда он клиент убдет посылать на сервер комманду то в этой комманде будет этот уникальный номер...

[OrdJONY]

у TCustomSocket есть свойство Data, это указатель. К примеру при конекте юзера мы создаем объект TUser, в него вносим всю инфу о подключении IP, Port, Nick, NumberConnect вообщем все что захочется. А потом при приходе текста читаем его TUser(Socket.Data).NumberConnect.

[leontv]

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

у TCustomSocket есть свойство Data, это указатель. К примеру при конекте юзера мы создаем объект TUser, в него вносим всю инфу о подключении IP, Port, Nick, NumberConnect вообщем все что захочется. А потом при приходе текста читаем его TUser(Socket.Data).NumberConnect.

Я правильно понимаю, что для каждого соединения в отдельности нужно создавать при коннекте свой отдельный объект?
Откуда при коннекте взять NuberConnect?

Вообще никак не могу подойти к решению задачи, как закрыть соединения, у которых порвалась связь с клиентами?
Сервер работает со множеством клиентов. Клиенты используют GPRS связь. Дак вот, когда связь разрывается, то сервер этого не чуствует и держит соединение (которого нету) в списке активных.
Таким образом количество активных соединений нарастает как снежный ком.
Как вычислить и закрыть разорванные соединения не знаю.
Танцую с бубном уже два месяца.
Жду помощи !

[OrdJONY]

к примеру возьмем следующий объект:

TUser = class
  Number: Cardinal;
  Socket : Pointer;
...

создать глобальную переменную типа ActiveConnections : Cardinal, дальше при коннекте:

var NewUser : TUser;
begin
NewUser := TUser.Create;
NewUser.Number := ActiveConnections+1;
NewUser.Socket := Pointer(Socket);
...
Socket.Data := NewUser;
List.add(NewUser);

при дисконнекте:

begin
...
TUser(Socket.Data).Free;
ActiveConnections := ActiveConnections -1;

еще не забудьте удалить из List

[Rapala]

Помогите пожалуйста!
Мне нужно, чтобы при подключении клиента, ему давалось имя, номер. Нужно чтобы имя клиента добавлялось в Combobox1 и потом можно было выбрать имя и работать именно с этим клиентом.
Это на подключение:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
NewUser := TUser.Create;
NewUser.Number := form1.ServerSocket1.Socket.activeconnections+1;
NewUser.Socket := Pointer(Socket);
Socket.Data := NewUser;
newuser.Name:=('user#'+floattostr(serversocket1.Socket.ActiveConnections));
combobox1.Items.add(NewUser.name);

Дальше, при нажатии на кнопку, проверка содержимого Combobox1 и отправка сообщения клиенту с этим именем:

procedure TForm1.Button3Click(Sender: TObject);
begin
if combobox1.text='user#1' then (?).sendtext('diskopen');
end;

Подскажите, что надо вставить вместо (?) чтобы сообщение отправилось к клиенту с именем user#1. Уже несколько дней ломаю голову.

[Rapala]

Ответьте пожалуйста, срочно очень надо

[MyIE]

не-не, отправка происходит таким образом:

ServerSocket.Socket.Connections[i].SendText('тру_ла_ла');

где i есть номер соединения
В твоем случае, наверное, NewUser.Number

[Rapala]

Точно! Понял, вместо i надо вставить NewUser.Number!!!!!!!!! Спасибо огромное!

[Rapala]

Мда... это не работает(