| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
КаК закрыть ошибку ? HEEELP! [D6, Win95/98]
MD © (2002-07-08 08:41:00)Я пытаюсь подключиться к инету через Client Socket или NMHTTP1.
Но если нету связи , то выскакивает ошибка что не может найти
сервер или ещё что-то. Я не знаю как сделать так , чтоб эта
ошибка не выскакивала (ну или закрыть её програмно).
Я пробовал , делать так :
if findwindow(nil,"Project1")<>0 then
postmessage(findwindow(nil,"Project1"),wm_quit,0,0);
Проблема в том , что окно ошибки имеет заголовок Project1 ,
а форма Form1 , но привыполнении этого кода закрывается всё
приложение. Помогите пожалуйста!!! Может у кого есть реальный
примерчик такого коннекта .
MD (2002-07-08 09:41:00) [1]у меня nonblocking , но этот способ работает только один раз,
т.е первый раз это срабатывает , а вторая попытка коннекта опять заканчивается ошибкой.
anatol (2002-07-08 09:12:00) [2]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.
| |
