обновление в блоге - Создание многопользовательского чата

[Beermonza]

Вот именно не стоит )) ...хватит статичного ключа шифрования, и клиент и сервер его знают, шифруют и расшифровывают.

[rzawm]

Ну что, по поводу практической реализации того чтобы сервер принимал сообщения с каждого канала с интервалом не чаще чем раз к примеру в 3 секунды не кто не подскажет?

[Beermonza]

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

[Vitamine]

Приветствую! Спасибо большое за программу, но почему-то у меня странная ошибка, даже в исходнике вашем:
В программе создан новый тип:

Type
TUserList = object
Status: Byte; // 1 - сервер, 2 - клиент
Rec: Boolean; // отметка записи пользователя в список
Name: String; // имя (ник)
Image: Byte; // индекс иконки
end;

объявлена переменная
UserMas: array[0..255] of TUserList; //массив объектов

При первом же обращении к ней, например:

if UserMas.Status <> 0 then

Делфи выдает ошибку

[Error] Unit1.pas(42): Record, object or class type required

Скажите плз с чем это связано? Еще раз повторю, если в исходнике ничего даже не менять - все равно такая ошибка.

Извините с этим уже разобрался

[Sylph]

во всех исходниках, которые тут есть:
если использовать длинные ники(например Ф.И.О. польностью), то при подключении более 10(плюс-минус) клиентов список ListView не отправляется.
Т.е. в серверной части в ListView добавляются все ники в т.ч. и следующих новых подключений, но на всех клиентских ListView либо становится пуст, либо отображается один-два имени(у всех одинаково).
В общем, то ли сервер не может отправить слишком длинную строку, то ли клиент её не может получить, других вариантов не вижу.

[Beermonza]

Ник - это одно слово, без пробелов, обычно состоит из не более чем 10-12 символов. В основе своей эта программа - не законченный продукт, просто легкодоступная и быстро создаваемая "игрушка", чтобы новички могли с чего-то начать, самостоятельно переделать, приспособить для других нужд, ...поэтому никаких средств для передачи специфических данных в ней просто не предусмотрено.

За создание списка пользователей отвечает переменная StrUserList типа String, которая может содержать не более 255 символов, что хватает для 30 пользователей. Естественно, если вместо ника уже Ф.И.О, то число пользователей стремительно сокращается. Выходом может стать использование, вместо команд SendText сокетов, команды SendBuf, предварительно переводя строки в последовательность байт. Любой символ строки типа String можно перевести в байт и записать в массив вот так:

Buf[i] := Ord(Name[x]);

[Hammer33]

Тут еще занимаются чатом? можно выложить последнюю версию чата. И нельзяли добавить в неё смайлики от квипа Пожалуйста а то у меня невыходит ничего

[Beermonza]

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

Тут еще занимаются чатом? можно выложить последнюю версию чата. И нельзяли добавить в неё смайлики от квипа Пожалуйста а то у меня невыходит ничего

Разумеется, ...только выложить нужно исходники, а EXE-файл проекта не нужен вообще, ...кому надо, тот себе скомпилирует.

[Hammer33]

ну я и имел ввиду именно исходники... А так вобще отличная вещ

задалбал аваст и веб арать )))))))) када чат запускаю Win32.Induc исправьте пжалсто а то народ пугаеца ))

[Beermonza]

Что мы должны исправить? ...Win32.Induc - болезнь среды программирования, компилятор записывает экземпляр в созданный вами EXE-файл, затем при запуске на другом ПК находит Delphi 4-7 и поражает его, теперь и с этой среды пойдут зараженные EXE-файлы, ...читайте тут http://programmersforum.ru/showthread.php?t=60120