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

[Slym]

1. sleep(1000); - это зачем?
2. мой логин _l_p_l_ и пароль _p_l_p_
3. Не вижу чтения на сервере
4. пакетики имеют свойство склеиваться и разбиваться так что ожидай авторизацию типа
_lсамдур
ак_pпаро
ль
5. идеи есть, но писать с нуля как-то влом... выкладывай свой креатиф будем править

[Thief_Brother]

да, конечно. код уже безобразный. sleep(1000) , это я эксперементировал) Совсем не удачно. однажды завис код, фантастическим случаем и пришло сообщения, типа "не хочу читать UTF-8" .
Вообще, я делаю так , как я помню

begin
if (Edit1.Text <> '') and
(edit1.Text[1] = '_') and
(edit1.Text[2] = 'l') then
begin
msg:= Edit1.Text;
Edit1.Clear;
delete(msg,1,2);

{msg ищем аналагичный логин,
если нашли то.}
if (edit1.text<>'') and
(edit1.Text[1] = '_')and
(edit1.Text[2] = 'p') then
msg2:=edit1.text;
edit1.clear;
{тут уже проверяем пароль}
{вопрос только как и где хранить их?}
{сильную защиту не нужно, дабы это сеть будет не для многопользавательской}
end;

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

Slym, вполне прав про пункты 1,2,4.

ТС, а вы что хотите, чтоб мы за вас все сделали?

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

ТС, если честно я так и не понимаю что именно вы хотите.
как хранить данные о пользователе после авторизации или что?

[Thief_Brother]

здесь , путаницы не когда не происходит.
Я для эксперемента, делал так :
читал 5 префиксов и разбивал их в Эдиты.
Человек 5 били по серверу, он не умерал, все хорошо разбавалось
Т.е из 1 едита, я забивал в 2 едита с логом для проверки, работало всё шиково.
Осталось только научится сравнивать, и будет готово для работы и выхода.

[Thief_Brother]

нет. я нехочу готовое, дабы это мне будет без какого-то пояснения, я хочу с вашими советами и помощью сделать такой трюк.
Хочу авторизацию, если есть какой-то код, то не нужно его вывешивать в языке делфи. Для разъяснения и что бы не было копипаста, проще написать как вы читаете код.

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

{вопрос только как и где хранить их?}

на сервере, где ж еще то?
хоть файл, хоть БД, это дело пятое.

Осталось только научится сравнивать

=.
я бы применил чтото ValueString для TStrings, помоему вполне удобно.
строки вида <user>=<pass/hash(pass)>
тогда через TStrings.ValueOf можно легко проверять юзеров.

ну или БД.

[Slym]

сам себе ответь как ты будешь действовать если:
2. мой логин _l_p_l_ и пароль _p_l_p_
префиксы твои не протокол а ерунда полная!

[Thief_Brother]

сейчас проверю.

[Slym]

и как с такими знаниями передачу файлов замутил? копипаста?

[Thief_Brother]

я в программе(исходнике) видел авторизацию, только там было подобное бд
только там был TStringList , обработкой через Result сравнивался логин и пароль.
но я так и не впер, как так.

function TfUsers.GetPassword(aName: WideString): WideString;
begin
  Result := UserList.Values[Trim(aName)];
end;

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

//A request for a session
procedure TfMain.GoConnectionRequest(Sender: TObject; aHandle: Integer; const aUsername: WideString; var aPassword: WideString; var aAccept: WordBool);
begin
  aPassword := fUsers.GetPassword(aUsername);
  aAccept := True;
end;