Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

Socket 


Lamok   (2001-11-29 23:40) [0]

В инете есть сервер основанный на TServerSocket. Я конекчусь к нему
(спомощью TClientSocket) Так вот мне надо спомощью TClientSocket
т.е спомощью каких функций узнать запушен он там или нет как это
сделать (но чтоб на клиенте ниче не вылезало (ошибки, окна) !!!???
Всем заранее спасибо !!!



wed   (2001-11-30 17:09) [1]

делай обработку ошибок, посмотри в доке, какая ошибка -нет связи- и по ней выводи сообщение о незапущенном сервере



Степа   (2001-11-30 22:58) [2]

в событии у клиента
onerror
или чето типа этого
есть входной парметр
errorcode:integer;

вот в теле процедуры присвайвай его раным нулю.
и тогда он орать перетстанет



Lamok   (2001-12-01 14:42) [3]

to wed я писал
try
clentsocket.open;
except
on Esocketerror do clentsocket.free;
showmessage("net soedinenia");
end;
не работает все равно винда выдает окно с ошибкой
че делать ???



Hawk   (2001-12-01 22:47) [4]

всё элементарно ... тут ответ уже был... но вот поконкретнее:
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode:=0;
end;
всё работает -- не единой ошибки не выдает




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.011 c
1-66524           smiler                2002-02-07 10:33  2002.02.21  
путь к приложению


3-66475           Dima Kopachev         2002-01-29 01:06  2002.02.21  
Как вызвать окно ввода логина и пароля в БД


14-66652          Lune                  2001-12-29 13:48  2002.02.21  
Game Over...:-)


3-66484           EternalWonderer       2002-01-23 20:48  2002.02.21  
Получение списка алиасов Net8


1-66507           VMR                   2002-02-04 16:53  2002.02.21  
Отладка: Data Breakpoint