从Web访问配置文件-无AppSettings [英] Accessing Config File From Web - No AppSettings

问题描述

我正在一个项目上，该项目需要我为编写的Windows服务(用ASP.NET编写)修改.config文件.需要从我正在开发的管理网站中进行更改.当用户选择Web应用程序上的更新"按钮时，将执行以下代码:

I am working on a project that requires me to modify the .config file for a Windows service (written in ASP.NET) I wrote. The changes need to be made from an administrative website I am developing. When the user selects the 'UPDATE' button on the web app, the code below is executed:

Protected Sub ModifyAppConfig()
        Try
            Dim configFile = "C:\App\App.exe.config"
            Dim configFileMap As New ExeConfigurationFileMap
            configFileMap.ExeConfigFilename = configFile
            Dim config As System.Configuration.Configuration
            config = ConfigurationManager.OpenMappedExeConfiguration(configFileMap, ConfigurationUserLevel.None)
            config.AppSettings.Settings("LogDirectory").Value = txtLogDirectory.Text '* EXCEPTION IS THROWN HERE *
            config.Save()
        Catch ex As Exception

        End Try
    End Sub

当应用程序尝试访问"LogDirectory" AppSettings索引时，将引发异常.对象引用未设置为对象的实例.在调试过程中， AppSettings.Count = 0 .为什么没有任何AppSettings导入?

When the application is trying to access "LogDirectory" AppSettings index, an exception is thrown. Object reference not set to an instance of an object. During debugging, the AppSettings.Count = 0. How come none of the AppSettings are imported?

我知道它正确打开了文件，因为有ConnectionString数据.下面是配置文件:

I know that it is correctly opening the file because there are ConnectionString data. Below is the config File:

<?xml version="1.0" encoding="utf-8"?>
<configuration>
    <connectionStrings>
      <add name="conn" connectionString="Data Source=DBASE;Initial Catalog=NGDevl;Integrated Security=True" providerName="System.Data.SqlClient"/>
    </connectionStrings>
    <startup> 
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
    </startup>
    <appSettings>
      <add key="LogDirectory" value="C:\CTemp\"/>
    </appSettings>
</configuration>

如何访问和修改AppSettings("LogDirectory")值?

How can I access and modify the AppSettings("LogDirectory") value?

推荐答案

坦白说，我的程序没有任何问题.

Frankly, I don't see anything wrong with your program.

我已经创建了一个VB.Net/控制台模式MCVE，可以帮助您进行故障排除

I've created a VB.Net/Console mode MCVE that might help your troubleshooting

Module1.vb

Imports System.Configuration

'
' EXAMPLE OUTPUT:
'   Reading config file(test.exe.config)...
'   config.AppSettings.Settings("LogDirectory") : C : \CTemp\
'   connectionStrings: <connectionStrings>
'   <add name = "conn" connectionString="Data Source=DBASE;Initial Catalog=NGDevl;
'   Integrated Security=True" providerName="System.Data.SqlClient"/>
'     </connectionStrings>
'   appSettings: <appSettings>
'   <add key = "LogDirectory" value="C:\CTemp\"/>
'     </appSettings>
'   startup: <startup>
'   <supportedRuntime version = "v4.0" sku=".NETFramework,Version=v4.5"/>
'     </startup>
'   3 sections were found.
'
Module Module1

    Sub Main()
        ' Get filename
        Dim args() As String = System.Environment.GetCommandLineArgs()
        If args.Length <> 2 Then
            Console.WriteLine("USAGE: ReadAppConfig <\path\to\app.config>")
            Return
        End If
        Dim configFilePath As String = args(1)

        ' Open config file
        Try
            Console.WriteLine("Reading config file(" & configFilePath & ")...")
            Dim configFileMap As New ExeConfigurationFileMap
            configFileMap.ExeConfigFilename = configFilePath
            Dim config As System.Configuration.Configuration
            config = ConfigurationManager.OpenMappedExeConfiguration(configFileMap, ConfigurationUserLevel.None)

            ' Try to read AppSettings["LogDirectory"]
            Dim obj = config.AppSettings.Settings("LogDirectory")
            If IsNothing(obj) Then
                Console.WriteLine("config.AppSettings.Settings(""LogDirectory""): NULL")
            Else
                Console.WriteLine("config.AppSettings.Settings(""LogDirectory""): " & obj.Value)
            End If

            ' Dump all Sections
            Dim ct As Integer = 0
            For Each section As ConfigurationSection In config.Sections
                Dim xml = section.SectionInformation.GetRawXml
                If Not xml = Nothing Then
                    Console.WriteLine(section.SectionInformation.Name & ": " & xml)
                    ct = ct + 1
                End If
            Next
            Console.WriteLine(ct & " sections were found.")
        Catch ex As Exception
            System.Console.WriteLine("ERROR:   " & ex.Message)
        End Try

    End Sub

End Module

test.exe.config

<?xml version="1.0" encoding="utf-8"?>
<configuration>
  <connectionStrings>
    <add name="conn" connectionString="Data Source=DBASE;Initial Catalog=NGDevl;Integrated Security=True" providerName="System.Data.SqlClient"/>
  </connectionStrings>
  <startup>
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
  </startup>
  <appSettings>
    <add key="LogDirectory" value="C:\CTemp\"/>
  </appSettings>
</configuration>

• 项目> test.exe.config::我将复制到输出"属性设置为如果较新则复制"

  • Project > test.exe.config: I set the "Copy to Output" property to "Copy if Newer"

    项目>属性>调试:我将命令行参数"设置为"test.exe.config"

    Project > Properties > Debug: I set "Command line arguments" to "test.exe.config"

    '希望有帮助...

    这篇关于从Web访问配置文件-无AppSettings的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！