Сравнение строк подключения в Delphi: алгоритм определения идентичности соединений

Delphi , Базы данных , ADO

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

Проблема

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

Решение

Существует метод IDataInitialize::GetDataSource, который возвращает неинициализированный объект данных по заданной строке подключения. Этот метод возвращает указатель на объект данных типа IUnknown, который не позволяет напрямую сравнивать объекты, полученные для сравниваемых строк подключения. Однако, можно запросить интерфейс IDBProperties для этих объектов, что дает возможность доступа ко всем поддерживаемым свойствам провайдера.

Для получения набора свойств используется метод IDBProperties::GetProperties, который возвращает структуру DBPROPSET, содержащую массив элементов DBPROP (свойства). Затем следует проитерировать этот массив и сравнить свойства двух объектов данных.

В примере приведен алгоритм функции IsSameConnStr, которая возвращает True, если строки подключения идентичны, и False в противном случае. Сравнение значений свойств производится без учета регистра, за исключением свойства DBPROP_AUTH_PASSWORD, которое сравнивается с учетом регистра.

uses
  ActiveX, ComObj, OleDB;

function IsSameVarWideStr(const AValue1, AValue2: OleVariant;
  ACaseSensitive: Boolean = False): Boolean;
begin
  Result := VarType(AValue1) = VarType(AValue2);
  if Result then
  begin
    if ACaseSensitive then
      Result := WideCompareStr(VarToWideStr(AValue1),
        VarToWideStr(AValue2)) = 0
    else
      Result := WideCompareText(VarToWideStr(AValue1),
        VarToWideStr(AValue2)) = 0;
  end;
end;

function IsSameConnStr(const AConnStr1, AConnStr2: WideString): Boolean;
var
  I: Integer;
  DataSrc1, DataSrc2: IUnknown;
  DataInit: IDataInitialize;
  PropSet1, PropSet2: PDBPropSet;
  PropSetCnt1, PropSetCnt2: ULONG;
  Properties1, Properties2: IDBProperties;
  const
    DBPROP_AUTH_PASSWORD = $00000009;
begin
  // ... код функции ...
end;

Также можно использовать подход с использованием TADOConnection для получения коллекции свойств строки подключения, что упрощает процесс сравнения.

Альтернативный подход

Можно использовать объект TADOConnection для получения свойств строки подключения и сравнить их. Это позволяет избежать работы с низкоуровневыми интерфейсами и сосредоточиться на конкретных свойствах, таких как Provider, Data Source, Initial Catalog, User ID и Password.

Пример кода для итерации по свойствам TADOConnection:

var
  ADOConnection: TADOConnection;
  PropName, PropValue: WideString;
  I: Integer;
begin
  ADOConnection := TADOConnection.Create(nil);
  try
    ADOConnection.ConnectionString := '...';
    for I := 0 to ADOConnection.Properties.Count - 1 do
    begin
      PropName := ADOConnection.Properties.Item[I].Name;
      PropValue := VarToWideStr(ADOConnection.Properties.Item[I].Value);
      // Здесь может быть код для сравнения свойств
    end;
  finally
    ADOConnection.Free;
  end;
end;

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

Заключение

Для сравнения строк подключения можно использовать различные подходы, включая работу с интерфейсами COM и использование компонентов ADO. Выбор метода зависит от конкретных требований и предпочтений разработчика.

Создано по материалам из источника по ссылке.

алгоритм определения идентичности соединений при сравнении строк подключения в Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: ADO ::