Проблема с восстановлением соединения с сервером после простоя
Добавлено: Вт 18 дек 2018 13:32
Добрый день, я успешно соединяюсь с базой mysql. Делаю возможные операции (запросы, изменение данных)
Но после простоя например 5 минут, при попытке выполнить запрос возникает ошибка. Прикрепил в файле.
Пробовал по рекомендациям на форуме Localfavorites - true,
procedure Tdm.DBConnectConnectionLost(Sender: TObject;
Component: TComponent; ConnLostCause: TConnLostCause;
var RetryMode: TRetryMode);
begin
if RetryCount < 2 then begin
Inc(RetryCount);
RetryMode := rmReconnectExecute;
end
else begin
RetryCount := 0;
RetryMode := rmRaise;
end;
end;
Под вызова операции кнопкой стоит код
if not Dbconnect.Connected then Dbconnect.Connect;
tqticket.close;
tqticket.open;
При выполнении этого кода, ошибка, как во вложении.
Пробовал Dbconnect.Open; не помогает.
У меня тестовая версия компонента, хотел проверить. Может в этом проблема ? Доступа к настройкам сервера Mysql , не имею. Хостер говорит, что у них все хорошо и проблема в моем коде. Помогите.
Но после простоя например 5 минут, при попытке выполнить запрос возникает ошибка. Прикрепил в файле.
Пробовал по рекомендациям на форуме Localfavorites - true,
procedure Tdm.DBConnectConnectionLost(Sender: TObject;
Component: TComponent; ConnLostCause: TConnLostCause;
var RetryMode: TRetryMode);
begin
if RetryCount < 2 then begin
Inc(RetryCount);
RetryMode := rmReconnectExecute;
end
else begin
RetryCount := 0;
RetryMode := rmRaise;
end;
end;
Под вызова операции кнопкой стоит код
if not Dbconnect.Connected then Dbconnect.Connect;
tqticket.close;
tqticket.open;
При выполнении этого кода, ошибка, как во вложении.
Пробовал Dbconnect.Open; не помогает.
У меня тестовая версия компонента, хотел проверить. Может в этом проблема ? Доступа к настройкам сервера Mysql , не имею. Хостер говорит, что у них все хорошо и проблема в моем коде. Помогите.