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;
не работает все равно винда выдает окно с ошибкой
че делать ???

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

Socket Найти похожие ветки