Форум: "Сети";
Поиск по всему сайту: 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.022 c
3-66418           Oleon                 2002-01-25 11:09  2002.02.21  
Здраствуйте. Как мне сжать базу в InterBase.


3-66458           IronHawk              2002-01-25 17:12  2002.02.21  
БД в *.tхt виде


1-66622           Dmitriy_R             2002-02-01 11:05  2002.02.21  
Помогите разобратся что я делаю не так?


1-66598           IronHawk              2002-02-05 16:02  2002.02.21  
Картинка в бэкграунде формы fsMDIForm !


3-66433           EN                    2002-01-26 14:29  2002.02.21  
Выбор БД