Показать сообщение отдельно
  #7  
Старый 23.04.2009, 15:40
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от alexnov
сделал примерно так, только не 5 минут а 1 сек:


Вроде и работает, тока потом при простое около часа выдает сообщения что типа буфер сокета слишком мал или типа того каждую секунду.
во первых зачем каждую секунду? утечка памяти, ищи, какой то буфер переполняется, а больше 2 гигов незя
во вторых ошибки Client\ServerSocket обрабатывай событием OnError, Active никаких Raise он не поднимает
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием