Fórum Erro de conexão com Windows 7 #377925

Olá.   Utilizo Delphi 7. Tenho uma aplicação funcionando perfeitamente em Windows XP e inferiores acessando Windows Server 2003 com Sql Server 2005. Esta mesma aplicação, quando instalada em Windows Vista ou 7 não consegue logar-se ao servidor. Vejamos:   1 - Ao iniciar o sistema utilizo um componente adoConnection ( conTestaConexao ) o qual recebe em tempo de execução as configurações de acesso ao banco, por meio de sua propriedade ConnectionString. Ex.: Provider=SQLOLEDB.1;Password=SENHA;User ID=USUARIO;Initial Catalog=MINHABASE;Data Source=192.168.1.1   Após preencher a propriedade ConnectionString faço um Open. Caso haja algum erro interrompo a execução do sistema, informando ao usuário a impossibilidade e disponibilizo uma tela para que configure a conexão outra vez.   Nesta tela o usuário tem a possibilidade de testar os dados entrados e verificar se a conexão obterá êxito e, somente nesta hipótese, as informações são salvas para serem utilizadas em conexões futuras.   Até aqui tudo vai bem.   2 - Um segundo adoConnection ( adoCon )  tem sua propriedade ConnectionString alimentada pela ConnectionString do primeiro adoConnection ( conTestaConexao ).   Deste ponto em diante todos os componentes ADOQuery, ADOCommand e etc. têm suas propriedades Connection apontadas para o ADOConnection ( adoCon ).   Aqui ocorre o problema. Sem exceção, quaisquer Query, Command e etc. não são executadas e, o sistema detecta o erro: "Login failed for user 'USUARIO'".   Abaixo uma transcrição do Código:   1 - TESTA PARAMETROS DE CONEXAO   Procedure DefineNovoServidor(iTipo : Integer; sProvider, sSenha, sUsuario, sBanco, sServidor : String);
Begin
 sCon := 'Provider=' + sProvider;
 Case iTipo Of
  0 : //Sql Server
   Begin
    sCon := sCon + ';Password=' + sSenha;
    sCon := sCon + ';User ID=';
    sCon := sCon + sUsuario;
    sCon := sCon + ';Initial Catalog=' + sBanco;
    sCon := sCon + ';Data Source=' + sServidor;
   End;
 End;
End;   Function ConexaoOk : Boolean;
Begin
 Result := True;
 Screen.Cursor := crHourGlass;
 With DmGeral.conTestaConexao Do
  Begin
   ConnectionString := sCon;
   Close;
   Try
    Open;
    Close;
   Except
    On e : Exception Do
     Begin
      MensagemDeAviso( 'Sistema não foi capaz de realizar um teste de conexão' +
       ': "' + e.Message + '".' );
      Result := False;
     End;
   End;
  End;
 Screen.Cursor := crDefault;
End;
2 - CONFIGURAÇÃO VÁLIDA É PASSADA AO SEGUNDO ADOCONNECTION. AS QUERYS, SPs E COMMANDS TÊM SUAS PROPRIEDADES CONNECTION PREENCHIDAS. UMA QUERY SENDO DISPARADA.   Procedure AtribuiStringDeConexao;
Var
 i : Integer;
Begin
 //Atribui a nova string de conexão ao objeto principal de conexão
 DmGeral.adoCon.Close;
 DmGeral.adoCon.ConnectionString := sCon;  Screen.Cursor := crHourGlass;
 Try
  For i := 0 To DmGeral.ComponentCount - 1 Do
   Begin
    If (DmGeral.Components[i] is TADOQuery) Then
     (DmGeral.Components[i] as TADOQuery).Connection := DmGeral.adoCon;
    If (DmGeral.Components[i] is TADOStoredProc) Then
     (DmGeral.Components[i] as TADOStoredProc).Connection := DmGeral.adoCon;
    If (DmGeral.Components[i] is TADOCommand) Then
     (DmGeral.Components[i] as TADOCommand).Connection := DMGeral.adoCon;
   End;
  For i := 0 To DMEstoque.ComponentCount - 1 Do
   Begin
    If (DMEstoque.Components[i] is TADOQuery) Then
     (DMEstoque.Components[i] as TADOQuery).Connection := DMGeral.adoCon;
    If (DMEstoque.Components[i] is TADOStoredProc) Then
     (DMEstoque.Components[i] as TADOStoredProc).Connection := DMGeral.adoCon;
    If (DMEstoque.Components[i] is TADOCommand) Then
     (DMEstoque.Components[i] as TADOCommand).Connection := DMGeral.adoCon;
   End;
 Finally
  Screen.Cursor := crDefault;
 End;
End;   Function  ObtemNomeDoUsuarioLogadoNoMomento( sAplicacao : String; Var cdUsuario : Smallint ) : String;
Var
 qryLocal                         : TADOQuery;
 sScriptParaAR                    : String;
Begin
 Result   := '';
 qryLocal := TADOQuery.Create( Nil );
 Try
  Screen.Cursor := crHourGlass;
  Progresso( 'Identificando usuário...', 1 );
  If UpperCase( sAplicacao ) = 'APLICACAO' Then
   Begin
    sScriptParaAR                    :=
     'Select ' +
     ' * ' +
     'From ' +
     ' [Log] As l ' +
     'Where ' +
     ' l.nmComputador = ' + QuotedStr( UpperCase( ObtemNomeDoComputador ) ) + ' ' +
     ' And l.chOpcao = ' + QuotedStr( 'ENTRADA NO SISTEMA' ) + ' ' +
     ' And Not Exists ( ' +
     '  Select Top 1 ' +
     '   1 ' +
     '  From ' +
     '   [Log] As lg ' +
     '  Where ' +
     '   lg.nmComputador = l.nmComputador ' +
     '   And lg.chOpcao = ' + QuotedStr( 'SAIDA DO SISTEMA' ) + ' ' +
     '   And lg.DtLog > l.DtLog ' +
     ' ) ' +
     'Order By ' +
     ' l.DtLog Desc ';
    Try
     With qryLocal Do
      Begin
       Connection := DmGeral.adoCon;
       CommandTimeout := 36000;
       Sql.Add( sScriptParaAR );
       Open;
       If Not IsEmpty Then
        Begin
         cdUsuario := FieldByName( 'cdUsuario' ).AsInteger;
         Result    := FieldByName( 'NmCompletoUsuario' ).AsString;
        End;
      End;
    Except
     On e : Exception Do
      Begin
       MensagemDeAviso( 'Não foi possível obter usuário logado no momento: "' + e.Message + '".' );
      End;
    End;
   End;
  Progresso;
 Finally
  Progresso( 'Identificando usuário...', 1, False );
  Screen.Cursor := crDefault;
  FreeAndNil( qryLocal );
 End;
End;

Desde já muito obrigado pela atenção de todos.