Автоматическая смена учетных данных процесса для подключения к SQL Server в приложениях Delphi с аутентификацией Windows

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

Вопрос пользователя заключается в том, как можно автоматизировать процесс подключения к SQL Server с использованием аутентификации Windows из приложения, написанного на Delphi, без необходимости каждый раз вручную менять учетные данные пользователя. По умолчанию SQL Server использует учетные данные пользователя, запустившего процесс подключения, и для смены учетных данных до сих пор требовалось либо выйти из текущей учетной записи и войти в нужную, либо использовать команду RUNAS. Пользователь ищет способ, чтобы позволить пользователю ввести учетные данные непосредственно в приложении, чтобы подключиться к серверу от имени этого пользователя.

Решение проблемы

Опираясь на предоставленный контекст, можно предложить следующий подход к решению проблемы:

1. Использование функции LogonUser для аутентификации пользователя в системе.
2. Использование функции ImpersonateLoggedOnUser для имитации учетных данных текущего процесса.

Пример кода на Object Pascal (Delphi), который реализует описанный подход:

procedure ChangeLoggedInUser(username, password, domain: string);
var
  creds: DWORD;
begin
  try
    if LogonUser(PChar(username), PChar(domain), PChar(password),
      LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT, creds)
    then
      ImpersonateLoggedOnUser(creds)
    else
      raise Exception.CreateFmt('Ошибка аутентификации: %s', [SysUtils.FormatErrorMsg(GetLastError)]);
  except
    on E: Exception do
    begin
      Writeln(E.ClassName, ': ', E.Message);
      // Обработка исключения, возможно, с выводом информации пользователю
    end;
  finally
    // Очистка буфера безопасности
    FillChar(username[1], Length(username), #0);
    FillChar(password[1], Length(password), #0);
    FillChar(domain[1], Length(domain), #0);
    if Assigned(creds) then
      RevertToSelf;
  end;
end;

Этот код можно вызвать следующим образом:

...
// В данный момент процесс выполняется под учетной записью пользователя, запустившего приложение
DoSomethingMundane;

// Изменение учетных данных текущего процесса
ChangeLoggedInUser('Ваш_логин', 'Ваш_пароль', 'Ваш_домен');

// Теперь процесс выполняется под учетной записью "Ваш_логин"
DoSomethingThatRequiresCreds;

// Возврат к исходным учетным данным
RevertToSelf;

// Процесс снова выполняется под исходной учетной записью
DoSomethingMundane;

Важно отметить, что использование техники имитации учетных данных может быть ограничено политиками безопасности операционной системы и настройками SQL Server. Кроме того, после выполнения необходимых операций важно вызвать функцию RevertToSelf, чтобы вернуться к исходным учетным данным процесса.

Заключение

Автоматическая смена учетных данных в процессе подключения к SQL Server из приложения Delphi с использованием аутентификации Windows требует применения специальных функций Windows API. Приведенный пример кода демонстрирует, как можно реализовать такую функциональность, позволяя пользователю вводить учетные данные непосредственно в приложении.

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

Необходимо автоматизировать процесс смены учетных данных для подключения приложения Delphi к SQL Server с использованием аутентификации Windows.

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

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

:: Главная :: SQL ::