保持连接 - mysql

Question

我已经设置了我使用名为Connect 的按钮创建的delphi 应用程序。 一旦我点击它，它就会执行以下代码：

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

同样，我有一个用于Disconnect 目的的按钮，它做同样的事情，但使用 =false;

我的问题是我要连接的数据库托管在共享主机帐户上，并且 mysql 服务器将 wait_timeout 变量设置为 60 秒，interactive_timeout 设置为 30 秒。 如果我 60 秒不使用我的应用程序，这自然会断开我的连接。

有什么办法可以保持这种联系吗？

托管公司不会更改设置，所以我坚持使用它。

我正在使用 RAD Studio 10 Seattle，dbexpress components，TSQLConnection，我的数据库是 mysql

如果我遗漏了任何必要的信息，请在评论中告诉我，谢谢！

Answer 1

您可以使用TTimer 定期“ping”数据库（例如，在 60 秒超时的情况下，间隔 10-20 秒）：

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