Сокеты Delphi

[northener]

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

Overbyte ICQ.

Это что-то новенькое.

[WinCoder]

Стилет ошибся на букву, я ошибся. С кем не бывает? ICS.

[IliaIT]

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

Нужна ваша помощь.
Чтобы не было тупых вопросов от меня.
Обьяснение:
1.Клиент генерирует ключ.
2.Клиент подключается к серверу.
3.Сервер получает ключ и выводит в переменную.
Сама проблема: При заходе двух и более пользователей , ключ выводится не понятный , а иногда даже другому пользователю мой ключ.
И из-за этого сервер не может нормально проверить ключ и выдать данные клиенту.

   for i:= 0 to Form1.ServerSocket1.Socket.ActiveConnections-1  do
   begin
   Form1.ServerSocket1.Socket.Connections[i].SendText(G1+#13#10+G2+#13#10+G3+#13#10+G4+#13#10+G5+
        #13#10+G6+#13#10+G7+#13#10+G8+#13#10+G9+#13#10+G10+#13#10+G11+#13#10+G12+#13#10);
   end;

Если заходить только одному , тогда всё нормально.
Как только заходит второй , ему либо выдаётся мой ключ либо какой-то не понятный.
Как решить проблему?

вот у вас есть куча переменных типа "G", они не меняются после соединения, проверяйте свой код где это происходит.
вот так же есть посылка всем соединениям.
for i:= 0 to Form1.ServerSocket1.Socket.ActiveCo nnections-1 do
то есть это значит что посылает и вам и соседу и прочим одно и тоже, как и просили. у вас нет различий на вариант кто спросил или кто соединился.

делайте таблицу со списком пользователя и его хенделом сокета

а вообще есть свойство клиент конектион у ServerSocket. в нём входная переменная уже только нужный пользователь(ну почти всегда), и шлите ему сразу ответ без перебора. Socket.SendText()