从 Delphi 应用程序使用 Windows 身份验证连接到 Sql Server 时以编程方式更改用户名

Question

我有一个使用 Windows 身份验证的 Sql Server。

我想从 Delphi 应用程序连接到服务器。

默认情况下，SQL Server 将采用启动连接进程的用户的凭据。

这意味着要更改登录名，我当前有两个选项：

1. 注销并根据需要登录 用户，然后运行我的应用程序

2. 从命令启动程序 使用 RUNAS 命令行。

我想让用户从应用程序内提供凭据，并以该用户身份登录。通过操作 ConnectionString 或以编程方式更改当前进程的用户是否可能？

我发现的最接近的是此条目，它告诉我如何在特定凭据下启动另一个进程。我可以使用该技术创建一个“启动器”程序，在从用户那里收集凭据后启动连接过程，但我真的想要更干净的东西。

我在这个项目中使用 Delphi 2010。

谢谢

Answer 1

我认为 LogonUser 然后 ImpersonateLoggedOnUser< /code>将为您解决问题。这应该更改当前进程正在运行的用户帐户。正如 gbn 提到的，在更改登录凭据之前，您可能必须断开任何活动连接。

Answer 2

使用 Scott W 建议的方法，这段代码对我有用。其中一些可能需要根据您的特定网络环境进行调整。

procedure ChangeLoggedInUser(username, password, domain: string);
var
  creds: Cardinal;
begin
  try
    if LogonUser(PChar(username)
        ,PChar(domain)
        ,PChar(password)
        ,LOGON32_LOGON_NETWORK
        ,LOGON32_PROVIDER_DEFAULT
        ,creds
      )
    then begin
      ImpersonateLoggedOnUser(creds);
    end
    else begin
      RaiseLastOSError;
    end;
  finally
    //wipe the memory for security
    FillChar(username,SizeOf(username),#0);
    FillChar(password,SizeOf(username),#0);
    FillChar(domain,SizeOf(username),#0);
  end;  //try-finally
end;

这段代码可以这样调用：

...
//at this point i am logged in as whoever is logged into the local machine
DoSomethingMundane;

//change credentials of the current thread
ChangeLoggedInUser('importantuser','secretpassword','mydomain');

//now my process will be logged in as "importantuser"
DoSomethingThatRequiresCreds;

//go back to normal
RevertToSelf;

//now my process is back to normal
DoSomethingMundane;