clientsocket, присвоить id

[_ZixeL_]

Доброе всем утро. Битый час ломаю голову. В гугле найти не могу ничего по этому поводу.

Юзаю Tclientsocket и TServerSocket.

Собственно, как присвоить индивидуальный id к каждому подключению, дабы в дальнейшем с ним работать?

Как принимать так и отправлять определённому ИДу сообщения.

Например:

  ServerSocket1.Socket.Connections[client_id].SendText('toclient')

Заранее спасибо.

[_ZixeL_]

Уточню.
Есть сервер(я) и 4-5 клиента. Мне надо от них принимать сообщения и распределять по определённым Мемо, например.
Как можно это реализовать? Помогите пожалуйста

[phomm]

Вот недавно с товарищем Ansy работали http://programmersforum.ru/showthread.php?t=225551 посмотрите как там реализовано многоклиентность.
И юзаем поиск - хотя бы по clientsocket - кучу примеров бы уже получили и проверили бы.

[_ZixeL_]

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

Вот недавно с товарищем Ansy работали http://programmersforum.ru/showthread.php?t=225551 посмотрите как там реализовано многоклиентность.
И юзаем поиск - хотя бы по clientsocket - кучу примеров бы уже получили и проверили бы.

Спасибо за ответ.
Но, из вашего обсуждения вообще ничего не ясно. Не силён на столько в делфи. Разве нет простого решения этой задачи? Читал, что есть некая Data:Pointer, которая выдаёт значение уникальному подключению. Но мануалов по этому поводу не нашёл никаких.

Юзал поиск по форому, но что мне нужно, так и не нашёл.

[phomm]

Ну читаем код сервера оттуда, там даже прокомментировано всё, хотя имена переменок не оч.
Конкретно запоминание юзеров по хендлу сокета, по которому они подключаются

New(vo);
    with vo^ do begin
      fn:='';
      dt:=Now;
      hd:=socket.Handle;
      nk:=vh^.from;
    end;
    Dispose(vh);
    users.Items.AddObject(bh^.from,TObject(vo));

Запоминаются в коллекцию объектов в листбоксе. Потом функция itemBySHandle по хендлу ( а хендл ищется по имени клиента в листбоксе) выдаёт номер для того, что Вы называете client_id .

Не буду говорить, что единственный способ, в принципе можно придумать много способов, вручную раздавать идентификаторы в событии TServerSocket.OnClientConnect например, да хоть постоянно опрашивать каждого клиента на некий ключ, какой-нибудь GUID

[_ZixeL_]

Спасибо, но не осилил всё ровно >___<

[_ZixeL_]

И еще один вопрос: Как организовать переподключение клиента к серверу, при внезапном закрытии сервера?
Я отсылаю пакет от клиента к серверу "toserver", если сервер отвечает "toclient" Значит всё нормально. Но, если я закрываю сервер, и оставляю клиент на ночь с отправками запроса "toserver". То, после запуска сервера, клиент никак не может подключиться. В чём проблема может быть? Делаю так:

procedure TDataModule1.TimerConnectTimer(Sender: TObject);
begin
GeneralForm.ClientSocket1.Socket.SendText('toserver');
 if not (GeneralForm.ClientSocket1.Socket.ReceiveText='toclient') then
  begin
   GeneralForm.ClientSocket1.Open;
  end;
end;

procedure TGeneralForm.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode := 0;
Clientsocket1.Close;
end;

Мне надо регулярно отправлять этот пакет, даже когда подключение успешное.
Но вот после простоя клиента, коннект не происходит

[Shouldercannon]

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

Мне надо регулярно отправлять этот пакет, даже когда подключение успешное.

procedure TDataModule1.TimerConnectTimer(Sender: TObject);
begin
GeneralForm.ClientSocket1.Socket.SendText('toserver');
end;

[Slym]

что-то заморочно...
зачем клиенту какой то ид? он уже есть в списке подключенных и список доступен...

тема сервера какая? очередной чат или что-то серьезное?

проект выложи позырить

[_ZixeL_]

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

procedure TDataModule1.TimerConnectTimer(Sender: TObject);
begin
GeneralForm.ClientSocket1.Socket.SendText('toserver');
end;

Вы не правильно поняли.
Я от клиента отправляю серверу сообщение "toserver", если сервер отвечает "toclient" значит выводим в лейб, что мы подключены к серверу. Так вот, если отключить сервер на часов 10, то после запуска клиент не может подключиться. Ошибок никаких не выдаёт.