Форум: "Потрепаться";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Вниз
Жду ответов и советов по написанию чата Найти похожие ветки
← →
МАКСЮХА © (2004-02-24 16:40) [0]Пишу чат. Для локалки. Работает типа так: клиент посылает серверу некие команды (например: "зарегистрироваться на сервере", "послать всем сообщение", "послать частное сообщение" и т. п.) А потом (точнее далее) сервер принимает команды и обрабатывает их соответствующим образом (рассылает всем зарегистрированным клиентам месагу, например).
Во всей этот дребидени используються Фастнетовские стандартные компоненты (для Делфи :) - TNMMsg и TNMMSGServ...
Проблема: при очень частой отсылке сообщений с клиента прога зависает... Сервер при этом вроде работает нормально (вроде) В чем может быть дело и как от этого избавиться?
Прием и отсылка выполняються в одной процедуре, не упадет ли все это при большом количестве пользователей и при мощной "загрузке" сервака?
← →
Digitman © (2004-02-24 17:20) [1]
> Работает типа так
типа чиста канкретна ?
а мона чиста канкретна спросить :
- это учебная задача или изобретение очередного велосипеда ?
- чем обоснован выбор именно fastnet-компонентов ?
← →
МАКСЮХА © (2004-02-24 17:30) [2]Отвечаю:
Это задача по созданию чата для локалки...
Выбор именно таких компонентов обусловлен хотя бы тем, что они работают (хоть и плохенько)...
Насчет изобретения велосипеда немного недопонял, я как бы не претендую на оригинальность и неповторимость своей идеи принципа работы системмы, а лишь использую то, что знаю и с чем умею работать...
← →
savva © (2004-02-24 18:00) [3]> МАКСЮХА © (24.02.04 17:30) [2]
Насчет велосипеда - в папке Demo рабочего каталога Delphi уже есть чат..
> Выбор именно таких компонентов обусловлен хотя бы тем, что
> они работают (хоть и плохенько)...
А что же тогда делают Tserver(Client)Socket? и если мне память не изменяет - FastNet без исходников, то бишь все спрятано.
← →
МАКСЮХА © (2004-02-24 18:13) [4]
> А что же тогда делают Tserver(Client)Socket?
В том то и дело, что я не могу понять, как это работает...
Мне нужно одной процедурой конектиться к клиенту и посылать ему сообщение. TServer(Client)Socket делает или одно или другое...
Или вообще ничего...
> FastNet без исходников, то бишь все спрятано
Зачем мне исходники? Типа "шоб було"? Все работает, ну и ладненько.
← →
Verg © (2004-02-24 18:23) [5]
> Проблема: при очень частой отсылке сообщений с клиента прога
> зависает... Сервер при этом вроде работает нормально (вроде)
> В чем может быть дело и как от этого избавиться?
> Все работает, ну и ладненько.
Что-то никак не понять тебя. Так работает или виснет? Или "(вроде)"? Или в исходники-то бы глянуть?
А нету. Нет ни исходников fastnet, ни твоего кода... Нет ничего....
← →
}|{yk © (2004-02-24 19:30) [6]Очередной велосипед... Сколько можно новые блокноты, чаты и ftp-клиенты создавать? Ладно бы еще как учебное задание, а так...
← →
Хмырь (2004-02-25 00:41) [7]2}|{yk ©
А почему очередной велосипед?
Я вот например ни одного безглючного чата еще не видел... даже платного, не говоря о фриварных...
← →
Palladin © (2004-02-25 00:55) [8]Дык все ждут ответов и советов по написанию чата... а во время ожидания пишут и продают...
← →
Digitman © (2004-02-25 10:04) [9]
> МАКСЮХА © (24.02.04 17:30) [2]
> Выбор именно таких компонентов обусловлен хотя бы тем, что
> они работают (хоть и плохенько)...
Компоненты TClient/ServerSocket работают не "плохенько", а как положено, безо всяких "глюков" ... + имеют полностью открытые исходники, что дает возможность понять принципы их работы, заглянув в эти исходники, если возникло какое-то непонимание
> Мне нужно одной процедурой конектиться к клиенту и посылать
> ему сообщение
вот тебе процедура на стороне клиента :
procedure SendMsg(const Text: String);
var
cs: TClientSocket;
begin
cs := TClientSocket.Create(nil);
try
cs.ClientType := ctBlocking;
cs.Host := "hostname";
cs.Port := номер_порта;
cs.Open;
cs.SendText(Text);
finally
cs.Free;
end;
end;
ну и чем тебе это не "все в одной процедуре" ?
← →
Dimman1 © (2004-02-25 11:07) [10]Насчет зависания проги, это скорее всего сообщения "склеиваются" и идут одним большим пакетом, а не по отдельности, когда часто отсылаются. А какой клиент виснет, (все/который шлет/отправляет)? А что за чат такой пишешь? В чем "оригинатльность", и чем он будет отличаться от других велосипедов?
← →
Digitman © (2004-02-25 11:13) [11]
> чем он будет отличаться от других велосипедов
трехпедальный)
← →
МАКСЮХА © (2004-02-25 15:21) [12]
> В чем "оригинатльность", и чем он будет отличаться от других
> велосипедов?
Ничем... Просто чат и все, а что нужно? :)
← →
Delirium © (2004-02-25 15:41) [13]Тебе уже сказали, возми NetChat из демок Delphi и разбирайся...
← →
Digitman © (2004-02-25 16:24) [14]
> МАКСЮХА © (25.02.04 15:21) [12]
> а что нужно?
это ты у нас спрашиваешь ?!)
это мы хотели спросить тебя, что тебе нужно от чата такого-эдакого) ... и чем тебя не устраивет куча разного уже существующего на сей день ПО для болтовни по сети)
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.032 c