Delphi передача данных

[eval]

Теперь по теме: Столько постов а мне (лично) до сих пор не понятно о чем же она...

+1

Вот и вопрос, в чем оптимально хранить эти данные, чтобы их использовать в процедурах

храни в чем заблагорассудится..
чую сага о xyz

[-Jack-]

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

храни в чем заблагорассудится..
чую сага о xyz

Знал бы, как реализовать, не писал бы сюда ...

[eval]

знали бы что реализовать, может и помогли бы

[-Jack-]

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

знали бы что реализовать, может и помогли бы

Такс ...

При подключении клиент серверу отправляет своё имя


Сервер

var
  client_name : String;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin

  client_name:= AThread.Connection.ReadLn();
end;

А при отключении клиента от сервера, в мемо нужно вывести, что клиент ( его имя ) отключился от сервера

procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
  memo1.Lines.Add('Disconnect: '+ client_name );
end;

При такой форме client_name содержит имя последнего подключившегося пользователя и в мемо выводится что то типа такого

Disconnect: Tester
Disconnect: Tester
Disconnect: Tester
Disconnect: Tester
Disconnect: Tester
Disconnect: Tester

Хотя подключались пользователи с разными именами

[Stilet]

Не так нужно делать. Все равно не поймешь. поэтому предложу самое простое:
Опиши переменку st:TStringList.

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  st.values[AThread.Connection.Binding.PeerIP]:= AThread.Connection.ReadLn();
end;

Так ты заведешь список IP и их имен.

procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
  memo1.Lines.Add('Disconnect: '+ st.values[AThread.Connection.Binding.PeerIP] );
  st.delete(st.names[st.values[AThread.Connection.Binding.PeerIP]]);
end;

Это один из простых способов.

[-Jack-]

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

Не так нужно делать. Все равно не поймешь. поэтому предложу самое простое:
Опиши переменку st:TStringList.

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  st.values[AThread.Connection.Binding.PeerIP]:= AThread.Connection.ReadLn();
end;

Так ты заведешь список IP и их имен.

procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
  memo1.Lines.Add('Disconnect: '+ st.values[AThread.Connection.Binding.PeerIP] );
  st.delete(st.names[st.values[AThread.Connection.Binding.PeerIP]]);
end;

Это один из простых способов.

Способ отличный, он и подошёл бы, если не одно НО:

-случай если с 1 IP идёт несколько подключений ...
( немного доработал, сделал не только список IP, но добавил к нему список портов клиента ) думаю, на первое время пойдёт ...


Но вот ещё с чем столкнулся ... При относительно небольшой нагрузке ( 100 подключенных клиентов ) появляются ошибки

procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
  memo1.Lines.Add('Disconnect: '+ st.values[AThread.Connection.Binding.PeerIP] );
  st.delete(st.names[st.values[AThread.Connection.Binding.PeerIP]]);
end;

В мемо выводится часто строчка об отключении клиента, в другой строчке... Данные, которые нужно добавлять в Мемо перемешиваются ... Т.е. Indy, выходит, что работает в 1 потоке ?

[Stilet]

случай если с 1 IP идёт несколько подключений

Ну и что? Пусть прокси-сервер этим занимается.

думаю, на первое время пойдёт

А я думаю что это неудачное решение. Лучше не портов а хендлов сокетов. Если я правильно понимаю в рамках одной сессии хендл подключенного сокета не меняется, и однозначно идентифицирует получателя в купе с IP адресом. Вот его бы я и хранил с IP как уникальный идентификатор.

Т.е. Indy, выходит, что работает в 1 потоке ?

Как раз наоборот, она каждое соединение (по крайней мере должна) вешает в новый поток, потому и мешанина у тебя что эти потоки просто не синхронизированно работают.
Как синхронизировать в индейцах подключения я не помню.

[eval]

для идентификации юзернейма достаточно

[Stilet]

для идентификации юзернейма достаточно

Порты хранить? А если порт на всех один?

[eval]

не, ИП-ы порты и т.д. это все не уникально да и мало функционально
надо что-то сурогатное типа UserName или что-то из этой же оперы