Жду ответов и советов по написанию чата

← →
МАКСЮХА © (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]

Насчет зависания проги, это скорее всего сообщения "склеиваются" и идут одним большим пакетом, а не по отдельности, когда часто отсылаются. А какой клиент виснет, (все/который шлет/отправляет)? А что за чат такой пишешь? В чем "оригинатльность", и чем он будет отличаться от других велосипедов?

> чем он будет отличаться от других велосипедов

трехпедальный)

> В чем "оригинатльность", и чем он будет отличаться от других
> велосипедов?

Ничем... Просто чат и все, а что нужно? :)

Тебе уже сказали, возми NetChat из демок Delphi и разбирайся...

> МАКСЮХА © (25.02.04 15:21) [12]

> а что нужно?

это ты у нас спрашиваешь ?!)

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

Жду ответов и советов по написанию чата Найти похожие ветки