как проверить что сервер доступен

[dim 1]

есть сервер DataSnap, если после подключения к нему клиента сервер выключит и включить снова то клиент выдает ошибку

если отловив ее на клиенте делаю    

SQLConnection1.Connected:= False; 

SQLConnection1.Connected:= True;

все равно не работает дальше, надо закрыть программу и снова открыть

как избавится от этого?

xe10.1

[krapotkin 689]

а если пересоздать TClientModule ?

[dim 1]

спасибо, получилось

[zekelive 7]

В Fri Jul 21 2017 в 09:23, krapotkin сказал:

а если пересоздать TClientModule ?

Подскажите, а как пересоздать?

[dim 1]

я сделал так, пробую вызвать метод

  try
    ClientModule1.ServerMethods1Client.Send_messageOperator(Person.Phone,task_operator.Text);
  except
    ClientModule1:=nil;
    ConnectToServer;
    exit;
  end;
    и если ошибка то в ConnectToServer

if ClientModule1=nil then
      ClientModule1:= TClientModule1.Create(self)
    else
      ClientModule1.DataModuleCreate(nil);