Скачать: CL | DM;

Выгрузка программы-сервера без ведома программы-клиента   Найти похожие ветки 

← →
B-boy-Dimo-N   (2005-08-19 19:24) [0]

Суть вопроса:
запустили программу-сервер и программу-клиент.
допустим в программе-сервер произошла критическая ошибка, и её закрыли.
Как клиенту узнать, что сервера нет ?
насколько я предполагал клиент отправляет серверу информацию
ClientSkt.Socket.SendText("...");
в этом случае должна произойти ошибка, или я не прав ?
далее, обрабатываем её
procedure TForm1.ClientSktError(...);
begin
 ClientSkt.Active := False;
 ClientSkt.Close;
end;
Если это не правильный ход мыслей, поправте меня.

---

← →
B-boy-Dimo-N   (2005-08-19 19:27) [1]

если связь с сервером нарушается, то данная программа-клиент должна стать сервером.
procedure TForm1.ClientSktError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
 ClientSkt.Active := False;
 ClientSkt.Close;

 ServerSkt.Open;

 ClientSkt.Open;
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c