Сохранение соединения в сети - mysql

Question

Я установил приложение delphi, которое я создал с помощью кнопки с именем Connect. После я нажимаю его он выполняет следующий код:

begin 
    someConnection.Connected:=true; 
    somecomenziDataSet.Active:=true; 
end; 

Точно так же у меня есть кнопка для Disconnect целей, которая делает то же самое, но с = ложь;

Моя проблема в базе данных я подключении размещен на общей учетной записи хостинга, а сервер MySQL имеет wait_timeout набор переменных на 60 секунд, interactive_timeout устанавливается на 30 секунд. Естественно, это отключает меня, если я не использую свое приложение в течение 60 секунд.

Есть ли способ сохранить это соединение в живых?

Хостинговая компания не изменит настройки, поэтому я застрял с ней.

Я использую RAD Studio 10 Сиэтл, dbexpress компоненты, TSQLConnection и моя база данных mysql

Пожалуйста, дайте мне знать в комментариях, если я оставил всю необходимую информацию из, спасибо!

Answer 1

Вы можете использовать TTimer периодически «пинг» базы данных (например интервал 10-20 секунд заданный тайм-аут 60 сек):

procedure TMyDataModule.ConnectionPingTimer(Sender: TObject); 
begin 
    if not MySQLConnection.InTransaction then 
    MySQLConnection.Exceute('DO 0', nil); // or "SELECT 1" or whatever is cheapest 
end;