КаК закрыть ошибку ? HEEELP!

← →
MD © (2002-07-08 08:41) [0]

Я пытаюсь подключиться к инету через Client Socket или NMHTTP1.
Но если нету связи , то выскакивает ошибка что не может найти
сервер или ещё что-то. Я не знаю как сделать так , чтоб эта
ошибка не выскакивала (ну или закрыть её програмно).
Я пробовал , делать так :
if findwindow(nil,"Project1")<>0 then
postmessage(findwindow(nil,"Project1"),wm_quit,0,0);
Проблема в том , что окно ошибки имеет заголовок Project1 ,
а форма Form1 , но привыполнении этого кода закрывается всё
приложение. Помогите пожалуйста!!! Может у кого есть реальный
примерчик такого коннекта .

← →
anatol © (2002-07-08 09:12) [1]

esli klient v ctNonBlocking togda v sobitie OnError pishesh":
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0;
end;

a esli ctBlocking togda dostato4no postavit" connect v bloke try except.

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

КаК закрыть ошибку ? HEEELP! Найти похожие ветки