Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.04;
Скачать: CL | DM;

Вниз

Socket. Восстановление связи.   Найти похожие ветки 

 
TButton ©   (2003-10-05 01:18) [0]


procedure TForm1.gateError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
case ErrorEvent of
eeGeneral:
begin
if MessageDlg("Связь с сервером была потеряна. Восстановить?",mtWarning,[mbyes,mbNo],0)=mrNo
then Close
else
begin
gate.Close;
log("Система: Соединение прервано");
gate.Open;
end;

end;
eeSend:;
eeReceive:;
eeConnect:
begin
if MessageDlg("Произошел сбой при подключении к серверу."
+Chr(13)+"Повторить попытку?",mtWarning,[mbyes,mbNo],0)=mrNo
then Close
else
begin
gate.Close;
log("Система: Соединение прервано");
gate.Open;
end;
end;
eeDisconnect:;
eeAccept:;
else
end;
ErrorCode:=0;
end;

procedure TForm1.gateDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
log("Система: Соединение прервано");
if MessageDlg("Связь с сервером была потеряна. Восстановить?",mtWarning,[mbyes,mbNo],0)=mrNo
then Close
else
begin
gate.Close;
log("Система: Восстанавливаем связь");
gate.Open;
end;

end;


внимание вопрос... :)
ситуация такая, в onError все нормально работает. А вот в onDisconnect - не очень, т.е. я убиваю сервак в клиенте случается дисконнект, выводится сообщения "потеряно соединение", задается вопрос, отвечаю "да", выводится "восстанавливаю соединение" и все. тишина. т.е. gate.Close и gate.Open выполняются, но при этом ничего (заметного) не происходит. т.е. сервера нет, по идее должен случиться еррор ееКоннект, но он не случается, вообщето еррор не случается вообще, это наводит на подозрение "а что-то здесь все-таки не так..." хотелось бы услашать мнения, может быть даже советы по етому поводу.


 
TButton ©   (2003-10-05 17:07) [1]

наверное тема не очень популярная...


 
Hogo ©   (2003-10-06 07:59) [2]

Может не надо коннектится в обработчике ошибок?


 
TButton ©   (2003-10-06 13:37) [3]

так не коннектится в дисконнекте. в обработчике ошибок все ровно.


 
Digitman ©   (2003-10-06 14:13) [4]

в обработчике OnDisconnect() запусти таймер
в обработчике таймера останови таймер и выполни gate.open


 
Hogo ©   (2003-10-07 06:42) [5]

Я делаю так-же как > Digitman , при дисконнекте запускаю таймер и через определенное время пытаюсь снова подключиться, надо еще на сервере обработать что клиент отвалился, для этого у меня они постоянно обмениваются сообщениями, типа говорят "я здесь" :)



Страницы: 1 вся ветка

Текущий архив: 2003.12.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.008 c
4-11735
Chris
2003-10-05 06:23
2003.12.04
Заголовок окна


4-11749
misterix
2003-10-02 17:54
2003.12.04
CoInitialize и OpenDialog


4-11731
KADAN
2003-10-07 21:29
2003.12.04
Shut down the computer (2k, XP)


8-11637
Bond 007
2003-08-04 11:37
2003.12.04
как цифровой сигнал просмотреть с помощью MMTOOLS


4-11717
Elbow
2003-10-11 11:21
2003.12.04
Модуль с RegisterServiceProcess как называется?