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




Вниз

ClientSocket - обработка ошибок. 


Bioside   (2001-12-03 13:56) [0]

Здравствуйте,
Ситуация такая:
ClientSocket ждет подключение к ServerSocket через таймер -
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not clientsocket1.active then clientsocket1.open ;
Clientsocket1.socket.SendText(ip) ;
end;

И в обработчике ошибок ставлю только ErrorCode:=0 -
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
errorcode:=0;
end;

Естественно, что долго такое безобразие длится не может и через
некоторое время (если ServerSocket не активирован) на каждый вызов по таймеру появляется ошибка
SokcetError (10055) on API "connect".
Подскажите, что добавить в procedure TForm1.ClientSocket1Error
чтоб этого не происходило.



digitman   (2001-12-03 14:03) [1]

Socket.Close



Wizard_Ex   (2001-12-03 14:49) [2]

Application.OnException
{
if E is ESocketError then
begin...
}
И так отловишь полностью все ошибки сокетов



Bioside   (2001-12-03 17:16) [3]

digitman, в обработчике ошибок ClientSocket1.Close стоял (мать его так).
Проблему он не решает, а только вызывает другую - как только клиентский сокет дорывается до серверного сокета, то на нем (на серверном) могут
появляться двойные соединения т.е. ServerSocket.Socket.Connections[X].RemoteAddress=ServerSocket.Socket.Connections[Y].RemoteAddress что не есть ИМХО хорошо.
Может еще чего надо дополнительно прописать...

Wizard_Ex, спасибо, попробую.

Вообще, я предполагаю, что есть какой-то стек ошибок, переполнение которого
и вызывает эти ошибки. Думал, что мне и подскажут как его освобождать, но
может его и нет вовсе :-)



Wizard_Ex   (2001-12-04 08:19) [4]

Насчет стека это ты прав я думаю.
Причем в NT этот стек гораздо больше (поведение программ несколько другое при еррорах)




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




Наверх





Память: 0.72 MB
Время: 0.019 c
3-66477           VLL                   2002-01-29 11:13  2002.02.21  
Как упаковать таблицу DBF


1-66590           xmapa                 2002-02-06 09:41  2002.02.21  
Как пролистать отчет QuickReport?


3-66492           Do№                   2002-01-27 15:20  2002.02.21  
Проблема с кодировкой при перносе данных в табл Visual Foxpro


1-66608           tovSuhov              2002-02-06 11:56  2002.02.21  
BlockRead в массив...


14-66650          Ross                  2001-12-30 16:28  2002.02.21  
С новым годом всех!!!!!!!!!!!!