Совет в сокетах.

[Братишка^_^]

Здравствуйте, я бы хотел услышать совет о некоторых вещах по сокетам.
У меня имеется сервер и клиент. Я сделал авторизацию на сервере. НО, Если , авторизуется несколько клиентов, то там беда полнейшая. Для понятия, выложу кусок кода, но не совсем коректный.
Клиент :

Клиент.Сокет.ОтправитьТекст('префикс'+логин-едит.текст);
слип(100); 
Клиент.Сокет.ОтправитьТекст('префикс'+пароль-едит.текст);

Задержка для того, что бы не отправилось
префикслогинпрефикспароль.
Вообщем, здоровенная ошибка.
Вообщем, я решил изменить этот алгоритм.
Будет отправляться логин=пароль. Будет копироваться логин до знака ровно(уже сделано) А вот пароль скопировать почему-то не получилось, я его спарсил :D Вообщем, это на сервере обрабатывается и посылается клиенту текст, что пасворд гуд. А если нет, то пасвор нот гуд)
А теперь, суть вопроса :
Как я выше отписал, если не сколько клентов одновременно подключается, то выходит каша и авторизируются с не подлинным логином и паролем. АХ да, забыл еще сказать. Отправляется отчет о пароле и логине на ип адресс, который поступал самый последний. Можно как-нибудь разделить их ? Т.е, пришла одна инфа, запихнул его в поток какой-нибудь и там уже общаешься с клиентом, перекидываясь инфой.
Как это можно устроить? Если вопрос не слишком понятен, могу рассказать подробнее или в аське показать код программы. Сюда , извините выкладывать не буду, слишком жаден :D

[Братишка^_^]

Я допер, что вопрос не понятен ... :D
Как записать клиента когда он прислал данные и отослать без лишних проблем ему, а ни кому - то другому.

[Stilet]

Аналогичная проблема стояла. Завязал с сокетами, перешел на ИНДИ. Разрабатывать стало попроще - там есть учет сессий. Всего рассказать не могу - у меня не многопользовательская система авторизации, но попробуй погугли в сторону Индейцев.

[Братишка^_^]

Не могли бы вы добавить меня в аське? Есть пару вопросов, если не сложно)

[Stilet]

Эм... от тут малость сложность... Файер мой нужно настраивать. Чето он ICQ гасит, понять не могу. Лучше пиши сюда, х.з. когда я свой антивирь правильно настрою.

[Братишка^_^]

Ну, вообщем залез я в Индни,написал мельком TCP клиент и сервер. Но, тут байда. Он не хочет мне поддаваться. Может все таки как-то на сокетах можно сделать распределитель клиентов? А то я в инди вообще не бум - бум. А в инете ради инди ползать - лень=D

Мне главное на ТЦП.
Как принимать\Отправлять сообщения серверу, клиенту.
Как распознать Клиентов. Все, больше мне не чего не нужно)

[Пепел Феникса]

ИМХО, использовать событие TServerSocket.OnGetSocket .
создать свой подкласс и его использовать:

type
  TMyClient=class(TServerClientWinSocket)
   public
    UserName,Password:string;
    Stream:TStream;
    constructor Create;
    destructor Destroy; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TMyClient.Create;
begin
 Stream:=TWinSocketStream.Create(Self,500);
end;

destructor TMyClient.Destroy;
begin
 Stream.Free;
end;

procedure TForm1.ServerSocket1GetSocket(Sender: TObject; Socket: Integer;
  var ClientSocket: TServerClientWinSocket);
begin
 ClientSocket:=TMyClient.Create;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var C:TMyClient;
begin
 C:=Socket as TMyClient;
 C.UserName:=C.ReceiveText;//естественно надо смотреть текущий этап работы, не постоянно же логин читать
end;

как то так

еще можно TTcpServer и TTcpClient применить.

[Братишка^_^]

Кхм.. что - то я не догнал)

C:=Socket as TMyClient;
 C.UserName:=C.ReceiveText;

Тут мы получили от клиента текст, а как ему ответ написать?

[Пепел Феникса]

все методы такие же как и у обычного сокета.
C.SendText.

[Братишка^_^]

Да положение тоже самое осталось. Уныло (