Чат

[=PaLeTiZaToR=]

Здравствуйте . Написал чат на дельфи , вроде все нормально работает , а вот как мне определить кол-во пользователей и их ники ... очень нужно )
Зараннее спасибо .

[VeTaL_UA]

А чат как работает? Через сервер?)

[=PaLeTiZaToR=]

А чат как работает? Через сервер?)

Экстрасекс ? /problem
Да, через сервер . Счас ухожу, давай я тебе завтро напишу в скайп с 18,00 до 21,00 где то , ок ? будешь в это время ?

[VeTaL_UA]

Ну пиши при запуске программы в текстовик на сервере ники тех, кто чатик запустил, и удаляй их от туда тогда, когда программу выключают. Не очень сложно...
давай я тебе завтро напишу в скайп с 18,00 до 21,00 где то , ок ? будешь в это время ?
Я в скайпе редко сижу. Писали бы вы лучше в асю ;)

[=PaLeTiZaToR=]

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

Я в скайпе редко сижу. Писали бы вы лучше в асю ;)

Напиши плз в лс асю... а то чета не могу посмотреть ....

[Mebius]

=^PaLeTiZaToR^=, стандартными средствами, стринг или стринглист с разделителями, а еще лучше массив из рекордов, а еще еще лучше класс на базе тстринглист)

[=PaLeTiZaToR=]

=^PaLeTiZaToR^=, стандартными средствами, стринг или стринглист с разделителями, а еще лучше массив из рекордов, а еще еще лучше класс на базе тстринглист)

А еще лучше написать мне в скайп ... а не на форум =)

[Mebius]

А еще лучше написать мне в скайп ... а не на форум =)

а мне посты интерестно понабивать xD

вообще на базе стринглиста просто

в OnClientConnect когда юзверь прошел авторизацию пишем:


i:=UserList.IndexOF(Nikname);
if i=-1 then
UserList.add(NikName);


в он клиент дисконнект:


i:=UserList.IndexOF(NikName);
if i>-1 then
UserList.Delete(Nikname);


количество клиентов или с серверсокета или из юзерлист берется


LabelN:='Кол-во юзверей: '+IntToStr(UserList.Count-1);