Как избежать многократного использования mysql_real_connect() для каждого запроса?

Я запрашиваю свою базу данных через коннектор, который я сделал в Lazarus/Freepascal. Он использует libmysql из MySQL 5.0. Насколько я могу судить, функции, которые я могу вызывать, идентичны функциям MYSQL C Connector.

База данных не предназначена для удаленного доступа; это доступная по каналу база данных, которую я пытаюсь оптимизировать для локального чтения, используя таблицы только для памяти (без MyISAM или InnoDB). Скорость является основным направлением.

Клиентское приложение написано на ограниченном языке сценариев под названием MQL4 (для финансовых рынков) и использует мою библиотеку для повторных запросов к базе данных и возврата результатов для анализа.

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

Если я не уничтожу и не создам соединение заново, я получу нарушение доступа для чтения, потому что моя библиотека коннекторов потеряет значение *MYSQL, назначенное mysql_real_connect().

Я бы передал это значение через свое клиентское приложение, но, к сожалению, оно написано на языке, который может обрабатывать только типы данных LongInt, Double и String.

Я попытался передать значение через приведение клиентского приложения к LongInt, а затем вернуть его *MYSQL в свою библиотеку, но это не сработало.

Честно говоря, я не понимаю, почему моя библиотека теряет значение для *MYSQL.

Вот код моей библиотеки:

{$CALLING STDCALL}

library D1Query;

{$mode objfpc}{$H+}

uses
  cmem, Windows, SysUtils, mysql50;

var
  sock: PMYSQL;
  qmysql: st_mysql;

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

  procedure InitSQL; stdcall;
  begin
    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
    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);
    Result := i;   
  end;

exports
  SQL_Query, InitSQL, DeInitSQL;

begin
end.