ServerSocket

[MyIE]

Использую ServerSocket/ClientSocket для многопользовательского чата, когда народу к чату коннектится более 5-ти, и они начинают слать сообщения, то сервер выдает такую ошибку "Stack oferflow"(возможна опечатка ) и программа (сервер) завершает работу.
Что это и как с этим бороться?

[prizrak1390]

MyIE, в обработчиках событий у тебя что?

[MyIE]

Сервер

OnClientConnect:

procedure TForm1.ServerSocketClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
i: integer;
begin
Connections:= Connections+1;
LogWrite(TimeToStr(Time)+' - User Connected, all user='+IntToStr(Connections));
LabelConnections.Caption:= 'Ползователей в сети: '+IntToStr(Connections);

For i:=0 to ServerSocket.Socket.ActiveConnections-1 do
Begin
	ServerSocket.Socket.Connections[i].SendText('#onl# '+IntToStr(Connections));
end;
end;

OnClientDisconnect:

procedure TForm1.ServerSocketClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
i: integer;
begin
if Connections>0 then
	Connections:= Connections-1;
LogWrite(TimeToStr(Time)+' - User Disconnected, all user='+IntToStr(Connections));
LabelConnections.Caption:= 'Ползователей в сети: '+IntToStr(Connections);

For i:=0 to ServerSocket.Socket.ActiveConnections-1 do
Begin
	ServerSocket.Socket.Connections[i].SendText('#onl# '+IntToStr(Connections));
end;
end;

OnClientError:

procedure TForm1.ServerSocketClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
LogWrite(TimeToStr(Time)+' - Error #'+IntToStr(ErrorCode));
ErrorCode:= 0;
end;

OnClientRead:

procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
s:string;
i: integer;
begin
s:=Socket.ReceiveText;
  For i:=0 to ServerSocket.Socket.ActiveConnections-1 do
      ServerSocket.Socket.Connections[i].SendText('['+TimeToStr(Time)+'] '+s);
ParseString('['+TimeToStr(Time)+'] '+s);
RVChat.FormatTail;
RVChat.Update;
end;

Остальные пустые.

[prizrak1390]

ParseString('['+TimeToStr(Time)+'] '+s);
RVChat.FormatTail;
RVChat.Update;

Расскажите нубу, что это?!)

[MyIE]

Да это на сервере есть TRichView, вот прост туда посты заносятся.
------------
Скрин ошибки присутствует в посте.

[MyIE]

Ну что, кто-нить знает ответ? prizrak?)

[prizrak1390]

MyIE, нетипичная ошибка для серверсокета и клиентсокета. Попробуй закомментировать например этот код:

ParseString('['+TimeToStr(Time)+'] '+s);
RVChat.FormatTail;
RVChat.Update;

[MyIE]

Окей, попробую, поставлю пока вместо TRichView обычный Memo От него я думаю такой проблемы не будет.

[MyIE]

Такая же ошибка вылазит ( Еще есть идеи?)

[casper0094]

В школе решаю задачи на free pascal и вот когда пользуешся рекурсивной функцие достаточно большой то бывает такая ошибка так как выполнение следуюшей рекурсии кидается в стек и когда рекурсивных вызовов оч много вылетает ошибка "стек переполнен". Так вот моё мнение что слишком много сообшений большого размера сразу и дут, мне кажется что каждое сообшение стаёт в стек и ждёт своей очереди и вот получается ошибка. В школе в программах я создаю искуственную очередь правда тут я не знаю как это сделать, но я где-то слышал про потоки и вот если удастся каждому клиенту выделить свой поток который обрабатывал бы своего клиента то может быть всё бы и прокатило)))