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

← →
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;

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