从外部应用程序查询 MYSQL（我的代码效率低下吗）？

Question

我有一个数据库，需要尽可能快地反复查询。我的查询执行得很快，但似乎有一些额外的延迟。

我有一种感觉，这种滞后是由于我每次启动和取消启动连接造成的。有办法避免这种情况吗？

我没有使用 libmysql（至少不是直接使用）。我在 Lazarus/FreePascal 中使用“mysql50”包（类似于 delphi），它又使用 libmysql（我认为）。

如果有人查看我的代码并指出（或者甚至修复）一些低效率的地方，我将非常感激。

该库的目的是传递从 MQL4（一种用于金融交易市场的类似 C 语言）发送的查询，并从我的 MYSQL 数据库（通过管道连接到该数据库）返回一行。

{$CALLING STDCALL}

library D1Query;

{$mode objfpc}{$H+}

uses
  cmem,
  Windows,
  SysUtils,
  profs_win32exceptiontrap,
  mysql50;

var

  sock: PMYSQL;
  qmysql: st_mysql;

type
  VArray = array[0..100] of Double;
  PArray = ^VArray;


  procedure InitSQL; stdcall;
  begin

    mysql_init(PMySQL(@qmysql));
    sock :=
      mysql_real_connect(PMysql(@qmysql), '.', 'root', 'password', 'data', 3306, 'mysql', CLIENT_MULTI_STATEMENTS);
    if sock = nil then
    begin
      OutputDebugString(PChar('  Couldn''t connect to MySQL.'));
      OutputDebugString(PChar(mysql_error(@qmysql)));
      halt(1);
    end;

  end;

  procedure DeInitSQL; stdcall;
  begin

    mysql_close(sock);
  end;

  function SQL_Query(QRY: PChar; output: PArray): integer; stdcall;
  var
    rowbuf: MYSQL_ROW;
    recbuf: PMYSQL_RES;
    i: integer;
    nfields: LongWord;


  begin
    InitSQL();

    if (mysql_query(sock, QRY) < 0) then
    begin
      OutputDebugString(PChar('  Query failed '));
      OutputDebugString(PChar('   ' + mysql_error(sock)));
    end;

    recbuf := mysql_store_result(sock);
    nfields :=  mysql_num_fields(recbuf);
    rowbuf := mysql_fetch_row(recbuf);


    if (rowbuf <> nil) then
    begin
      for i:=0 to nfields-1 do
          output^[i] := StrToFloatDef(rowbuf[i], -666);
    end;

    mysql_free_result(recbuf);
    DeInitSQL();
    Result := i;


  end;

exports
  SQL_Query,
  InitSQL,
  DeInitSQL;

begin
end.

Answer 1

您可以使用初始化和终结块来处理 SQL 连接的设置和拆除。这样，您就可以从执行的每个查询中消除连接设置的开销。您可以在此处找到有关初始化和终止的更多信息。

从链接：

初始化块用于初始化某些变量或执行单元正确运行所需的代码。单元的初始化部分按照编译器在编译程序时加载单元的顺序执行。它们在执行程序的第一条语句之前执行。

单元的终结部分按照初始化执行的相反顺序执行。例如，它们用于清理在单元的初始化部分或程序的生命周期内分配的任何资源。终止部分总是在程序正常终止的情况下执行：无论是因为程序代码到达最终结束，还是因为在某处执行了 Halt 指令。