Сокеты Delphi

[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;

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

[NerfDoriftar]

Разве ни кто не знает как решить?

[northener]

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

Разве ни кто не знает как решить?

Что решить?
1. Твою задачу? Это знают и решали многие. Тебе нужен готовый код?
2. Твою конкретную проблему с кодом скопипастенным из неизвестно откуда, но явно не пригодным для данной задачи?

[WinCoder]

ключ выводится не понятный

Видимо потому, что в переменных сидит непонятно что

Как решить проблему?

То есть ты на 100% уверен, что проблема в этой строчке кода??? Тогда отвечу. НИ КАК.

[northener]

Ну тогда добавлю.

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

А чего тут может быть ещё, если всем подключившимся клиентам раздаётся одно и то же "не взирая ни лица":

   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;

[WinCoder]

Ну тогда и я телепатирую.

var 
  G: Array of String;
begin
  for i:= 0 to Form1.ServerSocket1.Socket.ActiveConnections-1  do
   begin
   Form1.ServerSocket1.Socket.Connections[i].SendText(G[I]);
   end;

[Stilet]

ServerSocket1

Не рекомендую использовать этот компонент. Не потому что он плох, а потому что его использование требует больше знаний чем к примеру компоненты INDI.

ключ выводится не понятный

Может из-за отсутствия склейки пакетов? Это распространенная проблема этого компонента.

иногда даже другому пользователю мой ключ.

Код нужно смотреть. Этого для анализа мало.

Как решить проблему?

Использовать средства поновее. Тот же INDI. Или Synapse. Или вообще WinINET функции.

[Slym]

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

[Stilet]

Ты всетки подумай о полном переходе на INDI...

[WinCoder]

Indy для соккетов? Фу фу фу. Overbyte ICQ. Изначально работает в отдельном потоке, не нагружая главный, и не вешая его.