在Web服务中向web.config添加值

时间:2009-06-12 07:03:58

标签: web-services delphi web-config

我需要在Web服务中为AppSettings添加自定义值

我有这个代码,但没有任何反应。

procedure TWebService1.AddStrConn(KeyConn, ValueConn: String);
var
config  : System.Configuration.Configuration;
begin
config:=ConfigurationManager.OpenExeConfiguration(System.Reflection.Assembly.GetExecutingAssembly().Location);
config.AppSettings.Settings.Add(KeyConn,ValueConn);
config.Save(ConfigurationSaveMode.Modified);
ConfigurationManager.RefreshSection('appSettings');
end;

也试试

procedure TWebService1.AddStrConn(KeyConn, ValueConn: String);
var
config  : System.Configuration.Configuration;
begin
config:=ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None);
config.AppSettings.Settings.Add(KeyConn,ValueConn);
config.Save(ConfigurationSaveMode.Modified);
ConfigurationManager.RefreshSection('appSettings');
end;

1 个答案:

答案 0 :(得分:4)

您正在使用OpenExeConfiguration,它适用于* .exe.config。要打开web.config,请尝试类似

的内容
Configuration cfg = WebConfigurationManager.OpenWebConfiguration("~");

如果您的服务有权这样做,它应该允许您保存。