Delphi服务应用中TADOConnection无法连接数据库的问题

我在Delphi服务应用里碰到了TADOConnection的连接问题。原本的逻辑是从文本文件读取配置字符串，赋值给ADOConnection的连接串来连接数据库，这段代码在VCL窗体应用里完全正常，但放到服务应用里就无法正常工作。

VCL窗体应用中的正常代码 #

procedure TForm2.FormCreate(Sender: TObject);
Var
  ConnectionFile:TextFile;
  FilePath: string;
  ServerName, DatabaseName, Username, Password: string;
begin
  FilePath := 'Connection.CNF';
  if FileExists(FilePath) then
  Begin
    Try
      AssignFile(ConnectionFile,FilePath);
      Reset(ConnectionFile);
      ReadLn(ConnectionFile,SerVerName);
      ReadLn(ConnectionFile,DatabaseName);
      ReadLn(ConnectionFile,UserName);
      ReadLn(ConnectionFile,Password);
      CloseFile(ConnectionFile);
      AdoConnection1.ConnectionString := Format('Provider=SQLOLEDB;Data Source=%s;Initial Catalog=%s;User ID=%s;Password=%s;',[ServerName, DatabaseName, Username, Password]);
      adoConnection1.Connected:=True;
    Except
      ShowMessage('Invalid Connection String');
    End;
  End
  Else
    ShowMessage('Connection file does not exist');
end;

服务应用中的异常情况 #

把相同逻辑放到服务应用的ServiceStart事件里执行时，ADOConnection始终无法连接数据库。我试过设计时给ADOConnection指定连接字符串，编译安装服务后虽然能修改连接串，但设计阶段ADOConnection连不上数据库，运行服务后还是无法连接。服务端代码如下（注：原代码存在语法笔误，已修正）：

procedure TTelemetryServiceF.ServiceStart(Sender: TService;
  var Started: Boolean);
Var
  ConnectionFile:TextFile;
  FilePath: string;
  ServerName, DatabaseName, Username, Password: string;
begin
  FilePath := 'C:\Connection.CNF';
  if FileExists(FilePath) then
  Begin
    Try
      AssignFile(ConnectionFile,FilePath);
      Reset(ConnectionFile);
      ReadLn(ConnectionFile,SerVerName);
      ReadLn(ConnectionFile,DatabaseName);
      ReadLn(ConnectionFile,UserName);
      ReadLn(ConnectionFile,Password);
      CloseFile(ConnectionFile);
      ADOConnection1.Close;
      ADOConnection1.Connected:=False;
      ADOConnection1.ConnectionString := Format('Provider=SQLOLEDB;Data Source=%s;Initial Catalog=%s;User ID=%s;Password=%s;',[ServerName, DatabaseName, Username, Password]);
      ADOConnection1.Connected:=True;
    Except
      //      TestPoint('Connection Error');
    End;
  End
end;

可能的原因及解决办法 #

• 服务运行权限问题：Windows服务默认以Local System账户运行，该账户无网络访问权限，无法连接远程SQL Server。需将服务登录账户改为具备数据库访问权限的域账户或本地管理员账户。
• 文件权限问题：确认C:\Connection.CNF文件存在，且服务运行账户拥有该文件的读取权限。
• 驱动兼容性问题：服务环境可能缺少对应OLE DB驱动，或驱动版本不兼容。建议改用更现代的驱动，比如将连接串中的Provider改为MSOLEDBSQL：

  Provider=MSOLEDBSQL;Data Source=%s;Initial Catalog=%s;User ID=%s;Password=%s;
  

• 异常日志缺失：服务代码的Except块无任何错误输出，无法定位问题。建议在异常中写入日志到事件查看器或文本文件，比如：

  Except
    on E: Exception do
    begin
      EventLog1.LogMessage('数据库连接失败: ' + E.Message, EVENTLOG_ERROR_TYPE);
    end;
  End;
  

• 语法错误修正：原服务代码中的ADOConnection1.:=False是语法错误，必须修正为ADOConnection1.Connected:=False才能正常执行。
• 设计时配置干扰：设计时不要给ADOConnection设置连接串，保持为空，避免设计时配置干扰运行时动态赋值逻辑。

内容的提问来源于stack exchange，提问作者Fayyaz