Работа с сокетами

[Thief_Brother]

Здравствуйте, нужна помощь )
Пишу на сокетах "клиент/сервер". Сделал, миничатик, передачу файлов.
Вообще собираюсь сделать программку, для тимов, гильдий и т.д
Т.е на Counter-Strike , я уже дописываю античит. Для ММОРПГ. Как-то сами придумают.
Вообще, в чем вопрос, "авторизация". Видел в гугле, много просьб помоч. Читал те литературы , которые довали на вашем же форуме, так и не понял.
Я составил маленький кусок, который я лепил не долго, но всё же..
здесь , подключаемся к серверу, и показывается доп. форма 2

if not Form2.ShowModal <> mrOk then
ClientSocket1.Address:=Form2.edIP.Text;
ClientSocket1.Port:=StrToInt(Form2.edPort.Text);
ClientSocket1.Active:=true;
ClientSocket1.Socket.SendText('_l'+Form2.login.Text);
sleep(1000);
ClientSocket1.Socket.SendText('_p'+Form2.password.Text)
else
ShowMessage('Что-то не так. Попробуйте снова.');       
end;

так же, логин и пароль, для отличия добавляю префикс.
Теперь сервер :

procedure TfUsers.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
delm :string;
delmp : string;
begin
if  ( Edit2.Text<>'' ) and
                  ( Edit2.Text[1]= '_' ) and
                    ( Edit2.Text[2]= 'p' ) then
                    begin
                    Edit3.Clear;
                    Edit3.Text:=Edit2.Text;
                    delmp:=Edit2.Text;
                    delete(delmp,1,2);
                    end;
If ( Edit2.Text<>'' ) and
      (Edit2.Text[1] = '_') and
        (Edit2.Text[2] = 'l') then
         begin
           Edit3.Text:=Edit2.Text;
         if (Edit3.Text<>'') and
         ( Edit3.Text[1] = '_' ) and
           ( Edit3.Text[2] = 'l' ) then
              delm:=Edit3.Text;
                Delete(delm,1,2);
            

            Edit3.Clear;
            delm:='';
           end;
end;

код мой не ругать, все работает хорошо. Просто подскажите откуда вытаскивать , как сверять.
Тут, я отделяю префиксы от логинов и паролей. А вот где хранить и как сверять я не знаю...
P.s я знаю ваши реакции...
1) "пффффф... иди гугли по лучше "
1.1) Гуглил.
2) "в чем у тебя проблемма?"
2.2) Я выше написал.
3) "Иди литературу читай"
3.3) Где взять, что именно читать?
4) "афтор боян"
4.4) okay

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

нельзя посылать данные до того как будете уверены что соединились.
а это событие сокета OnConnect если память не изменяет.

[Thief_Brother]

не. это я уже эксперементировал. Он т.е присоеденяется, отсылает "инфу" , сервер, обрабатывает и дает ответа типа , если все подошло - отсылаем 1 байт. или же нет. то отключаемся , либо выводим ошбику.

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

в вашем коде нет гарантии того что вы будете отправлять в открытый сокет.
так как Active:=true это указание начать соединяться, он соединяеться а вы в это время пытаетесь отправить данные, сами понимаете что они никуд а не пойдут.

[Thief_Brother]

они приходят, я сказал же все работает. Я логин и пароль, загонял на Едит , в два Едита , после этого, как-то хочу сверить. С приходом данных я посторался. Все работает, я же сказал, не ругать мой код. Если есть какие-то мысли по новому коду, почему бы не выложить, или же чем коментировать мои обработчики

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

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

я лично не понимаю вообще проблемы, информацию получили, и сравнили, в чем дальше то проблема?

[Thief_Brother]

и в инете она работает, не только локально. Я же сказал, код рабочий.
В чем проблемма? Ну я же написал :
Тут, я отделяю префиксы от логинов и паролей. А вот где хранить и как сверять я не знаю...

[Thief_Brother]

молги бы мы поговорить те-та-тет. По аське например ?

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

вы имеете в виду по каждому клиенту?

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

рабочий код говорите?
у вас else левый, код даже компилироваться не должен.

[Thief_Brother]

тогда . Есть какие-нибудь идеи, по авторизации "клиента на сервере" ?