Здравствуйте. Использую сетевые компоненты idTCpServer и idTCPClient. По сети изредка возникают затыки и у клиента выскакивает сообщение о разрыве связи (Connection reset by peer). Через некоторое время связь восстанавливается и программа продолжает работать, но сообщение это естественно мозолит глаз пока не квитируешь. Положение ухудшается тем, что программа должна работать круглосуточно и таких сообщений может выпадать довольно много (что, собственно, и происходит). Установка большого (10 минут) таймаута на чтение не помогает (разрыв фиксируется раньше). Использование try... except... тоже не помогает, вот код который я использую:

..........
With tcpclient do
begin
if not connected then
try
connect;
except
end;
if connected then
begin
WriteLn('REQUEST DATA');
try //таймаут на чтение ловиться нормально
CurrString:=CurrentReadBuffer;
except
CurrString:='';
end;
............

Как обработать исключение на разрыв соединения?

Я понял что у тебя творится! проверь событие OnDisconnect (на всякий случай, может там стоит SHowmessage ).
У меня тоже была такая же ошибка, когда я работал с TCP
Проверь все события считывания и отправки информации ... Может че упустил ...

Ниже текст, может он тебе пригодится ...

Можно исключить твою ошибку с помощью обработки классов исключительных ситуаций ...
Я об этом сообщу попозже (надо все проверить), но обязательно сообщу! заглядывай время от времени в свою тему ... Может даже сегодня ...

И лучше пользуйся, если тебе не надо выводить сообщений об ошибке:

Код

if not IdTcpClient1.Connected then    exit;

Это отрывок из моего ЧАТА -
Я использую немного другую технологию:

Код

procedure TForm1.IdTCPClient1Connected(Sender: TObject); begin TRY  IdTCPClient1.WriteLn(edit2.Text); //отправка имени серверу, чтобы он мог зарегистрировать вас в пользователях  EXCEPT END; end;

Подключение/отключение на кнопке (если захочется вручную откл\вкл)

Код

procedure TForm1.SpeedButton2Click(Sender: TObject); begin try if idtcpclient1.Connected then begin idtcpclient1.Disconnect; end else begin    IdTCPClient1.Host := edit3.text;    IdTCPClient1.Port := sePort.Value;      IdTCPClient1.Connect;      IdTCPClient1.WriteLn('@' + 'CLIENTS:REQUEST'); //сообщение серверу, чтобы он выслал список посетителей  end;   end;   end;

Вот так идет прием информации:

Код

procedure TForm1.Timer2Timer(Sender: TObject); var   i,i2:integer;  Com,    Msg,sxt,sx: string; begin  if not IdTcpClient1.Connected then    exit; try  Msg := IdTCPClient1.ReadLn('', 5); \\чтение  if Msg <> '' then    if Msg[1] <> '@' then    begin      {не системные комманды, текст добавляется в поле текста }      memLines.Lines.Add(Msg);    end    else    begin      { системные }            Msg := Trim(msg);      if (pos('CLIENTS',msg)<>0) then              lbClients.Items.CommaText := Msg; \\заполнение LIstBox - а посетителей    end; except statusbar1.SimpleText:='Обрыв связи' end;

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

Исключительными ситуации:

EAbort - Данный класс предназначен для формирования и обработки "невидимых" для пользователя ошибок и используется разработчиками для управления ходом выполнения программы. Диалоговое окно с сообщением об ошибке не показывается.
EAbstractError - попытка выполнения абстрактного метода.
EAssertionFailed - значение процедуры Assert равно false.
EExternal - Неверное функционирование системы Windows.
EExternalException - невозможность распознать исключительную ситуацию средствами Deplhi 7.
EInvalidPointer - неверная операция при работе с указателями.
EMathError - Базовый класс, на основе которого сделаны классы исключительных ситуаций при работе с числами с плавающей запятой.
EWin32Error - ошибка 32-разрядной версии Windows.

Вот проверь - подставь эти классы исключительных ситуаций.
Если че не пойдет, напиши, может еще чем нибудь помогу ...

пример использования:

Код

on E:EAbstractError do E.Message:='Ошибка вычислений'; //что делать при возникновении ошибки

SkilFul
Спасибо. Нет, showmessage-а нету Немного отвлекусь. Один раз купил мышку, принес домой, а она еле ворочается. Позвонил продавцу (типа когда можно поменять прийти), а он мне говорит: а вы фиксатор с колесика сняли?
Да я уже исправил все. writeln как-то между глаз попал Пихнул его в try ... except и естесственно все нормально пошло. Сколько раз себе говорил - посмотри, ведь где-то рядом валяется! Ну все равно спасибо.